Bài giảng Tin học 8 - 9

một số bất kì từ bàn phím và in ra màn hình giá trị tuyệt đối của số đó.. KIỂM TRA[r]

BÀI 1: Viết chương trình nhập

Program bai1; Var a: real;

Begin

writeln(‘nhap so a la:’); readln(a);

If a>=0 then writeln(‘Gia tri tuyet doi cua a la’,a) else writeln(‘Gia tri tuyet doi cua so a la’, -a) ;

Bài 2: Viết chương trình nhập

số nguyên, kiểm tra xem số có phải ước hay

Program bai1; Var a,b: integer; Begin

writeln(‘nhap so a va b la:’); readln(a,b);

If a mod b =0 then writeln(b,'la uoc cua',a) else If b mod a=0 then

writeln(a,'la uoc cua',b) else writeln('a va b khong la uoc cua nhau');

Bài 3*: Hãy viết chương trình nhập

điểm hai mơn Tốn Văn từ bàn phím, sau tính điểm trung bình (ĐTB) mơn đó, xếp loại học lực và báo kết hình.

Biết ĐTB 8: xếp loại giỏi; 6,5 ĐTB < 8: xếp loại khá; ĐTB < 6,5:

KIỂM TRA

Nhập độ dài cạnh một hình chữ nhật (số

Bài **

Viết chương trình nhập số thực

a,b,c từ bàn phím, kiểm tra số có phải độ dài tam giác hay

không?

Nếu độ dài cạnh tam