Lập chương trình s = a + b/c với a b là các số nguyên lấy từ tệp SN. Dat . kết quả s ghi vào sm.out giúp em với ạ .em cảm ơn trước ❤

0 bình luận về “Lập chương trình s = a + b/c với a b là các số nguyên lấy từ tệp SN. Dat . kết quả s ghi vào sm.out giúp em với ạ .em cảm ơn trước ❤”

1. program tinhphuongtrinh;

   uses crt;

   var f,g:text;

        a,b,c:integer;

        s:real;

   begin

          Assign(f,’SN.DAT’);   reset(F);

          Assign(g,’SM.OUT’);   rewrite(g);

          readln(f,a,b,c);

          s:=a+b/c;

          write(g,s:0:3);

          close(f);  close(g);

   end.

   Bình luận

2. var f: text;

          a, b, c: integer;

          s: real;

   Begin

        Assign(f, ‘sm.dat’); reset(f);

        Read(f, a, b, c); close(f);

       S:=a+b/c; 

       Assign(f, ‘sm.out’); rewrite(f);

       Write(f, s); close(f);

   End.

   Bình luận