Question

Viết chương trình thực hiện các công việc sau:
-chương trình con đọc tệp 'DL.TXT' gồm 3 số nguyên
-Chương trình con tìm GTLN của 2 số nguyên bất kì
-chương trình chính gọi các chương trình con trên ,đưa ra màn hình GTLN của 3 số nguyên trong tệp trên

Answer 1

uses crt;
const fi='dl.txt';
var f1:text;
a,b,c,kq:integer;
{---------------------------chuong-trinh-con-doc-tep------------------------}
procedure docfile;
begin
assign(f1,fi); reset(f1);
readln(f1,a,b,c);
end;
{---------------------------chuong-trinh-con-tim-gtln-----------------------}
function gtln(n,m:integer):integer;
begin
gtln:=n;
if gtln<m then gtln:=m;
end;
{---------------------------chuong-trinh-chinh------------------------------}
begin
clrscr;
docfile;
kq:=gtln(a,b);
if kq<c then kq:=c;
writeln(kq);
close(f1);
readln;
end.