1. Viết chương trình nhập vào dữ liệu từ file có sẵn với tên là dulieu.txt trong ổ đĩa D, mỗi lần 2 giá trị và xuất ra tổng và hiệu của 2 số vừa đọc được.
2. Viết ct nhập vào dữ liệu từ file có sẵn với tên là dulieu.txt trong ổ đĩa D, mỗi lần 3 giá trị và xuất ra kết quả 3 số đó có phải là cạnh của 1 tam giác hay k, nếu là tam giác hãy xuất ra chu vi ra file có tên kq.txt trong ổ đĩa D.
Giúp mình với ạ..thanks
Bài 1:
Program hotrotinhoc_hoc24;
const fi='dulieu.txt';
var a,b: integer;
f: text;
procedure ip;
begin
assign(f,fi);
reset(f);
read(f,a,b);
close(f);
end;
begin
ip;
writeln('Tong la : ',a+b);
write('Hieu la : ',a-b);
readln
end.
Program hotrotinhoc_hoc24;
const fi='dulieu.txt';
fo='ketqua.txt';
var f: text;
a,b,c : integer;
procedure ip;
begin
assign(f,fi);
reset(f);
read(f,a,b,c);
close(f);
end;
procedure out;
begin
assign(f,fo);
rewrite(f);
if (a+b>c) and (a+c>b) and (b+c>a) then write(f,a+b+c);
close(f);
end;
begin
ip;
out;
end.
