Thuật toán
B1 : MAX ← a ; i ← 1
B2 : nếu a > MAX , gán MAX ← a ;
B3 : nếu b > MAX , gán MAX ← b ;
B4 : nếu c > MAX , gán MAX ← c ;
Input : 3 số nguyên a,b,c
Output : MAX=max{a,b,c}
Viết chương trình (lớn nhất)
var a,b,c,MAX : integer ;
begin
write('nhap gia tri a'); readln(a);
write('nhap gia tri b'); readln(b);
write('nhap gia tri c'); readln(c);
if a>b then MAX:=a ;
if b>c then MAX:=b;
if c>a then MAX:=c;
write('so lon nhat trong 3 so la',MAX);
readln
end.
Viết chương trình (bé nhất)
var a,b,c,MIN : integer ;
begin
write('nhap gia tri a'); readln(a);
write('nhap gia tri b'); readln(b);
write('nhap gia tri c'); readln(c);
if a<b then MIN:=a ;
if b<c then MIN:=b;
if c<a then MIN:=c;
write('so be nhat trong 3 so la',MIN);
readln
end.