a) Xác định bài toán:

INPUT: Hai số a, b

OUTPUT: Số lớn hơn

b) Thuật toán:

Bước 1: Nhập a, b

Bước 2: Nếu a>b thì xuất a lớn nhất

Nếu b>a thì xuất b lớn nhất

Nếu b=a thì xuất bằng nhau

c) Chương trình:

Program BTT;
Uses crt;
Var a,b: longint;
Begin
        Clrscr;
        Write('Nhap a, b: '); Readln(a,b);
        If a>b then Write(a,' lon nhat')
        Else If a<b then Write(b,' lon nhat')
        Else Write('Bang nhau');
        Readln
End.

Xác định bài toán :

Input : nhập hai số a và b

Output : số lớn nhâts trong hai số a và b

Mô tả thuật toán :

Bước 1 : nhập hai số a và b

Bước 2 : nếu a <> b thì chuyển đến bước 3

Bước 2.1 : ngược lại chuyển đến bước 4

Bước 3 :

Bước 3.1 : nếu a > b thì thông báo a là số lớn nhất

Bước 3.2 : nếu a < b thì thông báo b là số lớn nhất

Bước 4 : kết thúc

Viết chương trình :

uses crt;

var a, b : integer;

begin

clrscr;

write('nhap hai so a va b :');readln(a, b);

if a <> b then 

begin

if a > b then writeln(a ,' la so lon nhat');

if a < b then writeln(b ,' la so lon nhat');

end;

readln

end.