a/

thuật toán:

 b1: nhập chiều cao của Lan (dl) và Trang (dt)

 b2: so sánh và in ra màn hình hợp lí

         if dl>dt then write ('Lan cao hon Trang');

         if dl<dt then write ('Trang cao hon Lan');

         if dl=dt then write ('Lan cao bang Trang');

b/chương trình

uses crt;

var dl,dt: integer;

begin

 clrscr;

 write ('nhap chieu cao cua Lan(cm): ');   readln (dl);

 write ('nhap chieu cao cua Trang(cm): ');   readln (dt);

         if dl>dt then writeln ('Lan cao hon Trang');

         if dl<dt then writeln ('Trang cao hon Lan');

         if dl=dt then writeln ('Lan cao bang Trang');

readln;

end.

 

Mô tả thuật toán :

- Bước 1 : nhập chiều cao Lan (a) và Long (b)

- Bước 2 :

- Bước 2.1 : nếu a > b thì Lan cao hơn Long

- Bước 2.2 : nếu a < b thì Lan thấp hơn Long

- Bước 2.3 : nếu a = b thì Lan bằng Long

- Bước 3 : kết thúc

Viết chương trình :

uses crt;

var a, b : real;

begin

clrscr;

write('nhap chieu cao hai ban : '); readln(a, b);

if a > b then write('Lan cao hon Long')

else if a < b then write('Lan thap hon Long')

else if a = b then write('Lan bang Long');

readln

end.