Question

Câu 1: Viết chương trình tổng có 4 số nhập từ bàn phím trong đó có sử dụng chương trình con. Tính tổng của hai số.

Câu 2: Giả sử tệp DULIEU.DAT được tạo trên thư mục gốc ở ổ đĩa C, muốn mở tệp để đọc dữ liệu phải dùng những thủ tục nào?

Answer 1

Câu 1:

uses crt;
var a,b,c,d,t:integer;
{------------------------chuong-trinh-con-tinh-tong-cua-hai-so-----------------}
function tong(var x,y:integer):integer;
begin
tong:=x+y;
end;
{------------------------chuong-trinh-chinh----------------------}
begin
clrscr;
write('Nhap so thu nhat: '); readln(a);
write('Nhap so thu hai: '); readln(b);
write('Nhap so thu ba: '); readln(c);
write('Nhap so thu tu: '); readln(d);
t:=tong(a,b)+tong(c,d);
writeln('Tong cua bon so la: ',t);
readln;
end.

Câu 2:

const fi='dulieu.dat';

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