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

Thực hành 4:

SỬ DỤNG CÂU LỆNH ĐiỀU KiỆN
IF…THEN
TÓM TẮT KiẾN THỨC
Bài 1: Viết chương trình nhập hai số nguyên a và b khác nhau từ bàn phím và in hai số đó ra màn hình theo thứ tự không giảm.
Mô tả thuật toán
Input: Hai số nguyên a và b Output: in 2 số a và b theo thứ tự không giảm
Bước 3: Kết thúc thuật toán
Bước 2:
Nếu aBước 1: Nhập a, b
program Sap_xep;
uses crt;

begin
clrscr;





readln
end.
var a, b: integer;
write(`Nhap so a: `); readln(a);
write(`Nhap so b: `); readln(b);
if aChương trình
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, chẳng hạn "Bạn Long cao hơn".
Input: Chiều cao của Long, Trang
Output: Kết quả so sánh
Bước 3: Kết thúc thuật toán
Bước 2:
Nếu LongNếu LongBước 1: Nhập chiều cao 2 bạn
Mô tả thuật toán
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.
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`);
else
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.
Mô tả thuật toán
+ Input: Ba số dương a, b, c
+ Output: Thông báo “a, b và c là 3 cạnh của một tam giác” hoặc “a, b và c không là 3 cạnh của một tam giác”
Bước 1: Nhập a, b, c
Bước 2: Nếu (a+b>c) và (b+c>a) và (c+a>b) thì ‘a, b và c là ba cạnh của một tam giác’ ngược lại ‘a, b và c không là ba cạnh của một tam giác’
Bước 5: Kết thúc thuật toán.
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.
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 1 tam giac!`);
end.