Tin hoc 8 Thuc Hanh 4

SỬ DỤNG CÂU LỆNH ĐiỀU KiỆN IF…THEN.. TÓM TẮT KiẾN THỨC.[r]

Thực hành 4:

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);

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

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

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

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’

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