Lấy số liệu từ tệp cho trước (bài2.inp) .viêat chương trình tính diện tích hình tròn và viết vào tệp (bài2.out) Dòng 1 lấy N là số dòng của tệp Tên v

0 bình luận về “Lấy số liệu từ tệp cho trước (bài2.inp) .viêat chương trình tính diện tích hình tròn và viết vào tệp (bài2.out) Dòng 1 lấy N là số dòng của tệp Tên v”

1. uses crt; 
   var f,d:text; n,r,i:longint;
   begin
      clrscr;
      assign(f,’input.pas’);reset(f);
      assign(d,’output.pas’);rewrite(d);
         readln(f,n);
         for i:=1 to n Do 
            begin
               readln(f,r);
               writeln(d,r*r*pi);         
            end;     
      close(d);
      close(f);
   end.

   Bình luận