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.