Viết chương trình a,b a) viết thủ tục hoán đổi 2 giá trị cho nhau b) viết thủ tục kiểm tra xem a và b phần tử nào lớn hơn
2 câu trả lời
var a,b,r,max:longint;
begin
read(a,b);
r:=a;
a:=b;
b:=r;
max:=a;
if a<b then max:=b;
write(max);
end.
program thu_tuc;
uses crt;
var a,b:integer;
{---Thu-tuc-hoan-doi---}
procedure hoandoi(a,b:integer);
var tg:integer;
begin
tg:=a;
a:=b;
b:=tg;
writeln('a= ',a,' b= ',b);
end;
{---Thu-tuc-kiem-tra---}
program lonhon(a,b:integer);
begin
if a=b then write('Hai so bang nhau')
else if a>b then write('a lon hon')
else write('b lon hon');
end;
{---Chuong-trinh-chinh---}
BEGIN
clrscr;
write('Nhap a: '); readln(a);
write('Nhap b: '); readln(b);
hoandoi(a,b);
lonhon(a,b);
readln;
end.
