1:
Xác định bài toán:
-Input: Hai số thực a,b(a≠b)
-Output: So sánh a và b
Mô tả thuật toán
-Bước 1: Nhập a và b
-Bước 2: Nếu a>b thì viết a lớn hơn b
Ngược lại thì a nhỏ hơn b
-Bước 3: Kết thúc
Viết chương trình:
uses crt;
var a,b:real;
begin
clrscr;
repeat
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
until (a<>b);
if a>b then writeln(a,' lon hon ',b)
else writeln(a,' nho hon ',b);
readln;
end.
2:
Xác định bài toán:
-Input: Hai số thực a,b(a≠b)
-Output: Tìm số lớn hơn
Mô tả thuật toán
-Bước 1: Nhập a,b
-Bước 2: Nếu a>b thì viết a lớn hơn b
Ngược lại thì viết b lớn hơn a
-Bước 3: Kết thúc
Viết chương trình:
uses crt;
var a,b:real;
begin
clrscr;
repeat
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
until (a<>b);
if a>b then writeln(a,' lon hon ',b)
else writeln(b,' lon hon ',a);
readln;
end.