Question

Viết chương trình ghi 2 số 5 15 vào tệp so.txt sau đó đọc tệp so.txt, gán giá trị vào 2 biến x y. Tính tổng hiệu tích thương của x,y rồi in kq ra màn hình.

Answer 1

*Viết chương trình ghi hai số 5 và 15 vào tệp so.txt:

const f='so.txt'

var f1:text;

begin

assign(f1,f); rewrite(f1);

writeln(f1,'5 15');

close(f1);

end.

*Viết chương trình tính tổng, hiệu, tích, thương của x,y và in kết quả ra màn hình:

uses crt;

const fi='so.txt'

var x,y:integer;

f1:text;

begin

clrscr;

assign(f1,fi); reset(f1);

readln(f1,x,y);

writeln('Tong la: ',x+y);

writeln('Hieu la: ',x-y);

writeln('Tich la: ',x*y);

writeln('Thuong la: ',x/y:4:2);

close(f1);

readln;

end.