Bài giảng Tin học Lớp 8 - Tiết 43: Bài tập cấu trúc rẽ nhánh

Tiết 43
Bài tập cấu trúc rẽ nhánh
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. 
Nếu a > b thì in giá trị của a ra màn hình
Var a,b:integer;
BEGIN
Readln(a);
Readln(b);
If a>b Then write (‘Gia tri cua a: ’, a);
Readln;
END.
Bài 2: Viết chương trình nhập hai số nguyên a và b. Kiểm tra xem chúng có
cùng dấu hay không.
Var a,b:integer;
BEGIN
Readln(a);
Readln(b);
If a*b>0 Then write (‘2 so cung dau’)
Else write (‘2 so khac dau’);
Readln;
END.
Bài 3: Viết chương trình nhập hai số nguyên a và b. Kiểm tra xem chúng có
cùng dấu hay không. Nếu 2 số cùng dấu thì thực hiện phép cộng, ngược lại thực
hiện phép chia.
Var a,b :integer;
Begin
Readln(a,b);
If a*b>0 Then
Begin
Writeln(‘2 so cung dau’);
Write(‘Phep cong 2 so’,a+b);
End
Else
Begin
Writeln(‘2 so cung dau’);
Write(‘Phep cong 2 so’,a/b:0:1);
End;
Readln;
End.
Bài 4: Viết chương trình nhập độ dài 3 cạnh của 1 tam giác. Kiểm tra xem 3 số
đó có tạo thành 1 tam giác hay không?
Điều kiện tam giác: tổng của 2 cạnh phải lớn hơn cạnh còn lại
if (a+b>c) and (b+c>a) and (a+c>b) then write (‘Tam giac’)
Else write (‘Khong la tam giac’);
Bài 5: Viết chương trình nhập độ dài 3 cạnh của 1 tam giác. Kiểm tra xem 3 số
đó có tạo thành 1 tam giác hay không? In ra là loại tam giác nào?
Tam giác cân => 2 cạnh bằng nhau
Tam giác đều => 3 cạnh bằng nhau
Tam giác vuông => tổng bình
phương 2 cạnh bằng bình phương
cạnh thứ 3
Bài 5: Viết chương trình nhập độ dài 3 cạnh của 1 tam giác. Kiểm tra xem 3 số
đó có tạo thành 1 tam giác hay không? In ra là loại tam giác nào?
var a,b,c:real;
begin
readln(a,b,c);
if (a+b>c) and (b+c>a) and (a+c>b) then
begin
if (a=b) and (b=c) then write ('tam giac deu')
else if(a=b) or (a=c) or (b=c) then write ('tam giac can')
else if (a*a+b*b=c*c) or (b*b+c*c=a*a) or (a*a+c*c=b*b) then
write('tam giac vuong')
else write('tam giac thuong');
end
else write('Khong la tam giac');
readln;
end.