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
2 câu trả lời
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.
program bai_giai;
var f,g:text;
a,b,x:integer;
S:real;
begin
Assign(f,'SN.Dat'); reset(f);
Assign(g,'SM.Dat'); rewrite(g);
readln(f,a,b,x);
S:=abs(a)+abs(b)/x;
write(g,S:0:3);
close(f); close(g);
end.
Trong đó abs(x) là trả về giá trị tuyệt đối của x
