Viết chương trình để đọc chiều dài a và rộng b từ tệp ‘Dientich.txt’ và ghi kết quả tính diện tích hình chữ nhật vào tệp ‘Ketqua.txt’

0 bình luận về “Viết chương trình để đọc chiều dài a và rộng b từ tệp ‘Dientich.txt’ và ghi kết quả tính diện tích hình chữ nhật vào tệp ‘Ketqua.txt’”

1. Const Fi=’Dulieu.TXT’;
         Fo=’Ketqua.TXT’;
   Var f,g: text;
       a,b: extended;

   Function dientich(a,b: extended): extended;
   Begin
           dientich:=a*b;
   End;

   Function chuvi(a,b: extended): extended;
   Begin
           chuvi:=(a+b)*2;
   End;

   Begin
           Assign(f,Fi); Reset(f);
           Assign(g,Fo); Rewrite(g);
           Read(f,a,b);
           Writeln(g,dientich(a,b):0:2);
           Write(g,chuvi(a,b):0:2);
           Close(f);
           Close(g);
   End.

   Bình luận

2. var
   f: text;
    a,b: integer;
    begin
           assign (f,’dientich.txt’);
           reset (f);
           readln (f,a,b);
           close (f);
           assign (f,’ketqua.txt’);
           rewrite (f);
           writeln (f,a*b);
           close (f);
    end.

   Bình luận