a,

Input : 2 số a và b

Output : So sánh a và b

Thuật toán

b1 : Nếu a > b in a lớn hơn b

       ngược lại thì in b lớn hơn a

b2 : In kết quả và kết thúc chương trình

 Chuong trinh

program az;

uses Crt;

var a,b : real;

begin

clrscr;

Write('Nhap 2 so a va b : '); readln(a,b);

If (a > b) then Write(a,'lon hon',b) else Write(b,'lon hon',a);

readln

end.

b,

Input : 2 số a và b

Output : Số lớn nhất

Thuật toán

b1 : Nếu a > b in a là số lớn hơn

       ngược lại thì in b là số lớn hơn

b2 : In kết quả và kết thúc chương trình

Chuong trinh

program az;

uses Crt;

var a,b : real;

begin

clrscr;

Write('Nhap 2 so a va b : '); readln(a,b);

If (a > b) then Write(a,'la so lon hon') else Write(b,' la so lon hon');

readln

end.

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.