Bài thực hành 4. Sử dụng câu lệnh điều kiện If….Then

SỬ DỤNG CÂU LỆNH
IF ….THEN
Bài thực hành số 4
Bài 1 : Viết chương trình nhập hai số nguyên a và b từ bàn phím. In 2 số đó ra theo thứ tự tăng dần.

Yêu cầu:
+ Xác định bài toán.
+ Mô tả thuật toán.
+ Viết chương trình.

Xác định bài toán:
+ Input: 2 số nguyên a và b.
+ Output: 2 số a và b theo thứ tự tăng dần.


Mô tả thuật toán
+ b1: Nhập 2 số a và b.
+ b2: Nếu (a+ b3: Kết thúc.
Viết chương trình
Program sapxep;
Uses crt;
Var a, b : integer;
Begin
Clrscr;
Write (‘Nhap so a=’) ;
readln(a);
Write (‘Nhap so b=’) ;
readln(b);
If (a < b) then write (a, ‘ ‘, b)
else write (b, ‘ ‘, a);
Readln;
End.
Bài 2. Viết chương trình nhập chiều cao của hai bạn Long và Trang, in ra màn hình kết quả so sánh chiều cao của hai bạn.

Yêu cầu:
+ Xác định bài toán.
+ Mô tả thuật toán.
+ Viết chương trình.
Xác định bài toán:
+ Input: Chiều cao của 2 bạn.
+ Output: Kết quả so sánh chiều cao.
Mô tả thuật toán
+ b1: Nhập chiều cao Long và Trang.
+ b2: Nếu (Long>trang) thì “Bạn Long cao hơn”.
+ b3: Nếu (Long+ b4: Kết thúc.
Viết chương trình
program Ai_cao_hon;
uses crt;
var Long, Trang: Real;
begin
clrscr;
write(`Nhap chieu cao cua Long:`); readln(Long);
write(`Nhap chieu cao cua Trang:`); readln(Trang);
 
If (Long>Trang) then
writeln(`Ban Long cao hon`);
If (Long writeln(`Ban Trang cao hon`)
else writeln(`Hai ban cao bang nhau`);
readln;
end.
Bài 3. Dưới đây là chương trình nhập ba số dương a, b, và c từ bàn phím, kiểm tra và in ra màn hình kết quả kiểm tra ba số đó có thể là độ dài các cạnh của một tam giác hay không.

Ý tưởng: Ba số dương a, b, và c là độ dài các cạnh của một tam giác khi và chỉ khi a + b > c, b + c > a
và c + a > b.

Yêu cầu:
+ Xác định bài toán.
+ Mô tả thuật toán.
+ Viết chương trình.
Xác định bài toán:
+ Input: 3 số a,b,c.
+ Output: Kết quả kiểm tra 3 số có là độ dài của các cạnh tam giác hay không.
Mô tả thuật toán
+ b1: Nhập 3 số a,b,c.
+ b2: Nếu (a+b>c) và (a+c>b) và (b+c>a) thì “a,b,c là ba cạnh của tam giác”.
Ngược lại, “a,b,c không là 3 cạnh của tam giác”.
+ b3: Kết thúc.
Viết chương trình
Program Ba_canh_tam_giac;
uses crt;
Var a, b, c: real;
Begin
Clrscr;
write(`Nhap ba so a, b va c:`);
readln(a,b,c);
If (a+b>c) and (b+c>a) and (c+a>b) then
writeln(`a, b va c la 3 canh cua mot tam giac!`)
else
writeln(`a, b, c khong la 3 canh cua tam giac!`);
readln;
end.