a)
Input: a,b
Output: So sánh
Bước 1: Nhập hai số thực a và b
Bước 2:
2.1: Nếu a>b thì xuất ra màn hình a>b
2.2: Nếu a<b thì xuất ra màn hình a<b
Bước 3: Kết thúc chương trình
Program NN;
Uses crt;
Var a,b: real;
Begin
Clrscr;
Write('Nhap a,b: '); Readln(a,b);
If a>b then Write(a:0:2,' > ',b:0:2)
Else if b>a then Write(a:0:2,' < ',b:0:2);
Readln
End.
b)
Input: a và b
Output: Số lớn hơn
Bước 1: Nhập hai số thực a và b
Bước 2:
2.1: Nếu a>b thì xuất ra màn hình a
2.2: Nếu a<b thì xuất ra màn hình b
Bước 3: Kết thúc chương trình
Program NN;
Uses crt;
Var a,b: real;
Begin
Clrscr;
Write('Nhap a,b: '); Readln(a,b);
If a>b then Write(a:0:2)
Else if b>a then Write(b:0:2);
Readln
End.