Câu 1:Viết chương trình tính chu vi và diện tích hình tròn A và bán kính r(r>0), r được lưu trong tệp BK.TXT, kết quả chu vi được lưu vào tệp CV.DAT, diện tích được lưu vào tệp DT.DAT
Câu 2: Cho tệp DL.DAT chứa các số nguyên, các số cách nhau bởi dấu cách, và kết thúc bằng ký tự xuống dòng. Viết chương trình tính tổng bình phương các số có trong tệp DL.DAT. Kết quả ghi vào tệp KQ.TXT
Cau 1
program tinhvc;
uses crt;
var f,f1,f2: text; r,cv,dt:real;
begin
clrscr;
assign(f,’d:\BK.txt’);
assign(f1,’d:\CV.dat’);
assign(f2,’d:\DT.dat’);
reset(f);
rewrite(f1);
rewrite(f2);
read(f,r);
if r >0 then
begin
dt:=3.14*r*r;
cv:=2*r*3.14;
end;
writeln(f1,’Chu vi’,cv);
writeln(f2,’dien tich’,dt);
close(f1);
close(f2);
readln
end.
cau 2:
program bai12;
uses crt;
var f,f1:text; k,t:integer;
begin
clrscr;
assign(f,’D:\DL.txt’);
assign(f1,’D:\KQ.txt’);
reset(f);
rewrite(f1);
t:=0;
while not eof(f) do
begin
read(f,k);
t:=t+sqr(k);
end;
write(f1,t);
close(f1);
readln
end.