Câu 1 :

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

- Input : hai số nguyên x và y

- Output : x > y hoặc x < y hoặc x = y

* Mô tả thuật toán :

- Bước 1 : nhập hai số x  và y

- Bước 2 : nếu x > y thì thông báo x > y

- Bước 3 : nếu x < y thì thông báo x < y

- Bước 4 : nếu x = y thì thông báo x = y

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

* Viết chương trình :

uses crt;

var x, y : integer;

begin

clrscr;

write('nhap hai so x va y : ');readln(x, y);

if x > y then writeln('x > y');

if x < y then writeln('x < y');

if x = y then writeln('x = y');

readln

end.

Câu 2 :

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

- Input : hệ số a và b

- Output : nghiệm x thõa mãn ax + b = 0

* Mô tả thuật toán :

- Bước 1 : nhập hệ số a và b

- Bước 2 : nếu a = 0 và b = 0 thì thông báo phương trình vô số nghiệm

- Bước 3 : nếu a = 0 và b <>0 thì thông báo phương trình vô nghiệm

- Bước 4 : nếu a <> 0 thì thông báo nghiệm x ← - b / a

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

* Viết chương trình :

uses crt;

var a, b, x : real;

begin

clrscr;

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

if (a = 0) and (b = 0) then writeln('phuong trinh vo so nghiem');

if (a = 0) and (b <> 0) then writeln('phuong trinh vo nghiem');

if a <>0 then writeln('x = ', (-b / a) : 2: 1);

readln

end.