XĐBT:

Inp: a và b

Out: a lớn hơn b hoặc a nhỏ hơn b hoặc a = b

Thuật toán:

B1: nhập a, b

B2: nếu a>b thì in ra màn hình a>b nếu ko thì nếu a<b thì in ra màn hình a<b nếu ko thì in ra màn hình a=b

B3: kết thúc

Vt chg trình

uses crt;

var a,b:integer;

begin

write('nhap a:');readln(a);

write('nhap b:');readln(b);

if a>b then writeln('a>b') else if a<b then writeln('a<b') else writeln('a=b');

readln;

end.

xác định thuật toán:

input: nhập hai số a,b;

output: đưa kết quả ra màn hình: a lớn hơn b hoặc a nhỏ hơn b hoặc a=b;

mô tả thuật toán:

B1: nhập hai số a,b;

B2: nếu a>b thì xuất ( a lớn hơn b );

B3: nếu a<b thì xuất ( a nhỏ hơn b );

B4: nếu a=b thì xuất ( a=b )

viết chương trình:

program bai_giai;

uses crt;

var a,b:longint;

begin

clrscr;

write('nhap a:');readln(a);

write('nhap b:');readln(b);

if(a>b)then write('a lon hon b');

if(a<b)then write('a be hon b');

if(a=b)then write('a=b');

readln;

end.