Ai giúp em với ạ.
Câu 1: cho tệp mang .txt có nội dung là 4 số nguyên như sau: 1 3 2 1. Hãy viết chương trình đọc dữ liệu từ tệp này. Tính tổng các giá trị đọc được. Ghi giá trị đọc được từ tệp mang.txt và tổng này vào tệp tong.txt
Câu 2: Viết chương trình thực hiện các công việc sau:
- đọc ba số a,b,c từ tệp ptb2.txt
- giải phương trình bậc 2 với hệ số a b c vừa đọc được
- ghi kết quả giải phương trình bậc 2 vào tệp ketqua.txt
Câu 5: Cho file dulieu.dat gồm hai dòng, mỗi dòng chứa hai số nguyên. ghi lên file tb.dat từ giá trị trung bình cộng của các số trên file dulieu.dat
Câu 1:
Program hotrotinhoc_hoc24;
const fi='mang.txt';
fo='tong.txt';
var f: text;
a,b,c,d: integer;
procedure ip;
begin
assign(f,fi);
reset(f);
read(f,a,b,c,d);
close(f);
end;
procedure out;
begin
assign(f,fo);
rewrite(f);
write(f,a+b+c+d);
close(f);
end;
begin
ip;
out;
end.
Câu 1:
const fi='mang.txt';
fo='tong.txt';
var f1,f2:text;
dem,i,t:integer;
a:array[1..4]of integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
dem:=0;
while not eoln(f1) do
begin
inc(dem);
read(f1,a[dem]);
end;
t:=0;
for i:=1 to dem do
t:=t+a[i];
writeln(f2,t);
close(f1);
close(f2);
end.
Câu 2:
const fi='ptb2.txt';
fo='ketqua.txt';
var f1,f2:text;
a,b,c,delta,x1,x2:real;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,a,b,c);
delta:=sqr(b)-4*a*c;
if delta>0 then
begin
x1:=(-b-sqrt(delta))/2*a;
writeln(f2,'x1=',x1:4:2);
x2:=(-b+sqrt(delta))/2*a;
writeln(f2,'x2=',x2:4:2);
end
else if delta=0 then writeln(f2,'x1=x2=',-b/(2*a):4:2)
else writeln(f2,'phuong trinh vo nghiem');
close(f1);
close(f2);
end.
Câu 5:
const fi='dulieu.dat';
fo='tb.dat';
var f1,f2:text;
a:array[1..4]of integer;
dem,i:integer;
tb:real;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
dem:=0;
while not eof(f1) do
begin
inc(dem);
read(f1,a[dem]);
end;
tb:=0;
for i:=1 to dem do
tb:=tb+a[i];
writeln(f2,tb/dem:4:2);
close(f1);
close(f2);
end.
Câu 2:
Program hotrotinhoc_hoc24;
const fi='ptb2.txt';
fo='ketqua.txt';
var f: text ;
a,b,c,denta: real;
procedure ip;
begin
assign(f,fi);
reset(f);
read(f,a,b,c);
close(f);
end;
procedure out;
begin
assign(f,fo);
rewrite(f);
denta:=sqr(b)-4*(a)*(c);
if denta<0 then write(f,'Phuong trinh vo nghiem');
if denta=0 then write(f,'Phuong trinh co nghiem kep ,gia tri x=',-(b/2*a));
if denta>0 then write(f,'Phuong trinh co hai nghiem phan biet,gia tri x1=',(-(b)+sqr(denta))/(2*a):1:2,' gia tri x2=',(-(b)-sqr(denta))/(2*a):1:2);
close(f);
end;
begin
ip;
out;
end.
Câu 3:
Program hotrotinhoc_hoc24;
const fi='dulieu.dat';
fo='dtb.dat';
var a,b,c,d: integer;
procedure ip;
begin
assign(f,fi);
reset(f);
readln(f,a,b);
read(f,c,d);
close(f);
end;
procedure out;
begin
assign(f,fo);
rewrite(f);
write(f,(a+b+c+d)/4:1:2);
close(f);
end;
begin
ip;
out;
end.