SỬ DỤNG CÂU LỆNH ĐiỀU KiỆN IF…THEN.. TÓM TẮT KiẾN THỨC.[r]
(1)Thực hành 4:
(2)(3)Bài 1: Viết chương trình nhập hai số nguyên a b khác nhau từ bàn phím in hai số hình theo thứ tự khơng giảm.
Mơ tả thuật tốn
Input: Hai số nguyên a b Output: in số a b theo thứ tự khơng giảm
Bước 2:
Nếu a<b xuất a, b; Ngược lại xuất b, a
Bước 1: Nhập a, b
program Sap_xep; uses crt;
begin clrscr;
readln
var a, b: integer;
write('Nhap so a: '); readln(a); write('Nhap so b: '); readln(b);
if a<b then writeln(a,' ',b)
else writeln(b,' ',a);
(4)Bài 2: Viết chương trình nhập chiều cao hai bạn Long Trang, in hình kết so sánh chiều cao hai bạn, chẳng hạn "Bạn Long cao hơn".
Input: Chiều cao Long, Trang Output: Kết so sánh
Bước 3: Kết thúc thuật toán
Bước 2:
Nếu Long<Trang ‘Trang cao hon’;
Nếu Long<Trang ‘Long cao hon’ ngược lại ‘Hai ban bang nhau’
Bước 1: Nhập chiều cao bạn
(5)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<Trang then
writeln('Ban Trang cao hon') else
(6)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<Trang then
writeln('Ban Trang cao hon')
else writeln('Hai ban cao bang nhau'); readln
(7)Bài 3: Dưới chương trình nhập ba số dương a, b c từ bàn phím, kiểm tra in hình kết kiểm tra ba số độ dài cạnh tam giác hay không.
Mơ tả thuật tốn
+ Input: Ba số dương a, b, c
+ Output: Thông báo “a, b c cạnh tam giác” hoặc “a, b c không cạnh tam giác”
Bước 1: Nhập a, b, c
Bước 2: Nếu (a+b>c) (b+c>a) (c+a>b) ‘a, b và c ba cạnh tam giác’ ngược lại ‘a, b c không ba cạnh tam giác’
(8)Bài 3: Dưới chương trình nhập ba số dương a, b c từ bàn phím, kiểm tra in hình kết kiểm tra ba số độ dài cạnh 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 canh cua mot tam giac!') else