Lập chương trình tính s= |a|+|b|/x với a,b,x là số nguyên lấy từ tệp SN.Dat kết quả S ghi vào tệp SM.out

0 bình luận về “Lập chương trình tính s= |a|+|b|/x với a,b,x là số nguyên lấy từ tệp SN.Dat kết quả S ghi vào tệp SM.out”

1. var f1, f2: text;

         s: real;

         a, b, x: longint;

   Begin

       Assign(f1, ‘sn.dat’); reset(f1);

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

       Read(f, a, b, x);

       S:= abs(a) + abs(b)/x;

       Write(f2, s);

       Close(f1); close(f2);

   End.

   Bình luận