Giúp mk vs
1 Viết chương trình bằng NNLT pascal
+ Đọc từ tệp dayso.txt mỗi lần ra 1 số nguyên (tệp dayso.txt có 1 dòng chứa các số nguyên, mỗi số cách nhau một dấu cách )
+ Hiện ra màn hình bình phương số nguyên đó
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Những câu hỏi liên quan
22 tháng 7 2021
Uses crt;
var f1,f2:text;
i,n,tong,tongchan,dem:integer;
tb:real;
Begin
clrscr;
Assign(f1,'DAYSO.txt');
Assign(f2,'KETQUA.txt');
reset(f1);dem:=0;tong:=0;tongchan:=0;
While Not EOF(f1) do
Begin
read(f1,i);
inc(tong,i);
If i mod 2 = 0 then
begin
inc(dem);
inc(tongchan,i);
end;
End;
tb:=tongchan/dem;
close(f1);
rewrite(f2);
writeln(f2,tong);
writeln(f2,tongchan);
writeln(f2,tb:0:2);
close(f2);
write(tong);
readln;
End.
30 tháng 12 2021
1:
uses crt;
const fi='songuyen.doc';
var i:integer;
f1:text;
begin
clrscr;
assign(f1,fi); rewrite(f1);
for i:=1 to 10 do write(f1,i:4);
close(f1);
readln;
end.
28 tháng 4 2020
Câu 1:
uses crt;
const fi='dayso.txt';
var f1:text;
a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
n:=0;
while not eoln(f1) do
begin
inc(n);
read(f1,a[n]);
end;
writeln('Binh phuong cua cac phan tu trong day so la: ');
for i:=1 to n do
write(sqr(a[i]):4);
close(f1);
readln;
end.
Câu 2:
uses crt;
const fo='hcn.txt';
var f:text;
d,r,cv,dt:real;
begin
clrscr;
assign(f,fo); rewrite(f);
write('nhap chieu dai:'); readln(d);
write('nhap chieu rong:'); readln(r);
if (d>0) and (r>0) and (d>=r) then
begin
cv:=(d+r)*2;
dt:=d*r;
writeln(f,'chieu dai la: ',d:4:2);
writeln(f,'chieu rong la: ',r:4:2);
writeln(f,'chu vi la: ',cv:4:2);
writeln(f,'dien tich la: ',dt:4:2);
end
else writeln('Vui long nhap lai');
close(f);
readln;
end.
16 tháng 1 2022
const fi='dulieu.txt';
fo='ketqua.txt';
var i,t:integer;
f1,f2:text;
a:array[1..9]of integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
t:=0;
for i:=1 to 9 do
begin
read(f1,a[i]);
t:=t+a[i];
end;
writeln(f2,t);
close(f1);
close(f2);
end.
10 tháng 5 2022
uses crt;
const fi='dayso.inp',
var a:array[1..100]of integer;
i,n:integer;
f1:text;
begin
clrscr;
assign(f1,fi); reset(f1);
readln(f1,n);
for i:=1 to n do readln(f1,a[i]);
for i:=1 to n do write(a[i]:4);
close(f1);
readln;
end.
16 tháng 1 2022
const fi='dataln.txt';
fo='dataout.txt';
var f1,f2:text;
x,i,t:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
t:=0;
for i:=1 to 24 do
begin
read(f1,x);
t:=t+x;
end;
writeln(f2,t);
close(f1);
close(f2);
end.
31 tháng 3 2022
uses crt;
const fi='so.inp';
var f1:text;
a,b:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
while not eof(f1) do
begin
readln(f1,a,b);
writeln((a+b)/2:4:2);
end;
close(f1);
readln;
end.
uses crt;
const fi='dayso.txt';
var f1:text;
a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
n:=0;
while not eof(f1) do
begin
inc(n);
read(f1,a[n]);
end;
writeln('Binh phuong cac so nguyen trong day lan luot la: ');
for i:=1 to n do
write(sqr(a[i]:4);
close(f1);
readln;
end.