ví dụ

nhập 2 số nguyên a,b tìm giá trị lớn nhất

input 2 số nguyên a,b

output giá trị lớn nhất

b1 nhâp a,b

b2 nếu a>b thì kết luận a là giá trị lớn nhất rồi kết thúc

b3 nếu a<b thi kết luân b là giá trị lón nhất rồi kết thúc

b4 kết thúc

uses crt;

var a,b:longint;

begin

readln(a,b);

if a>b then wrirte(a,' la max') else writre(b,'la max');

readln;

end.

`#khgoadang09`

VD: cho 2 túi kim cương nguyên chất, nhập cân nặng 2 túi, sau đó so sánh túi nào nặng hơn

a,XĐBT:

Inp: nhập cân nặng 2 túi kim cương

Out: túi nào nặng hơn

b,Thuật toán:

B1: nhập cân nặng túi a và b

B2: nếu a>b thì in ra màn hình "túi a nặng hơn túi b" nếu ko thì nếu a<b in ra màn hình "túi b nặng hơn túi a" nếu ko thì in ra màn hình "2 túi nặng = nhau"

B3: Kết thúc

Vt chg trình:

uses crt;

var a,b:integer;

begin

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

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

if a>b then writeln('Tui a nang hon tui b') else if b>a then writeln('Tui b nang hon tui a') else writeln('2 tui bang nhau');

readln;

end.