Trường THCS Minh Thạnh

ĐỀ CƯƠNG ÔN TẬP HỌC KỲ I

Câu 1: Viết chương trình tính diện tích hình tròn có bán kính R nguyên dương được nhập từ bàn phím. ( Kết quả làm tròn đến số thập phân thứ 2 )

Bài làm
Program Dien_Tich_Hinh_Tron ;
Uses crt;
Var R: Integer ;
S: Real;
Begin
Clrscr;
Write ( ` Moi ban nhap ban kinh R = ` );
Read ( R );
S:= R*R*3.14 ;
Write (` Dien tich hinh tron ban kinh la ` , R , ` = `, S:3:2);
Readln (S);
End.

Câu 2: Viết chương trình tính kết quả của a chia cho b, với a và b là 2 số bất kỳ được nhập từ bàn phím. Chương trình chỉ thực hiện được khi b ≠ 0, nếu b bằng 0 thì thông báo lỗi “phép chia không thực hiện được”.

Bài làm
Program chuongtrinhphepchia;
Uses crt;
Var a,b : integer;
x: real;
Begin
Clrscr;
Write ( ` Moi ban nhap so a= `);
Read ( a );
Write ( ` Moi ban nhap so b= `);
Read ( b );
X:=a/b;
If b 0 Then Writeln ( ` a/b = ` , X:6:3 ) Else Writeln ( ` b = 0 khong thuc hien duoc phep chia ` );
Readln ( X );
End.

Câu 3: Viết chương trình nhập vào một số nguyên dương N có 2 chữ số bất kỳ từ bàn phím sau đó cho biết số vừa nhập là số chẵn hay số lẻ.

Bài làm
Program sochan_sole;
Uses crt ;
Var N: Integer;
Begin
Clrscr;
Write ( ` Moi ban nhap so N: ` );
Readln (N);
If N mod 2 = 0 Then Write ( ` Day la so chan ` ) Else Write ( ` Day la so le ` );
Readln;
End.

Câu 4: Viết chương trình nhập vào 2 số a và b từ bàn phím sau đó in số lớn nhất ra màn hình. Nếu a và b bằng nhau thì thông báo “ hai số bạn vừa nhập bằng nhau ”

Bài làm
Program ingiatrilonnhatramanhinh;
Uses crt;
Var a,b: integer;
Begin
Clrscr;
Write ( ` moi ban nhap so a ` );
Read ( a );
Write ( ` moi ban nhap so b ` );
Read ( b );
If a=b Then Writeln ( ` Hai so bang nhau ` ) Else If a > b Then Writeln ( ` So lon nhat la ` , a )
Else Writeln ( ` So lon nhat la so ` , b );
Read (a);
Read (b);
End.

Câu 5: Viết chương trình nhập vào 2 số nguyên dương a và b từ bàn phím sau đó hoán đổi giá trị của 2 số vừa nhập.

Bài làm
Program hoandoigiatrihaiso;
Uses crt ;
Var a,b,c: Integer;
Begin
Clrscr;
Write ( ` Moi ban nhap so a: ` );
Readln ( a );
Write ( ` Moi ban nhap so b: ` );
Readln ( b );
c:= a;
a:= b;
b:= c;
Write ( ` So sau khi hoan doi la: ` , ` a = ` , a , ` ` , ` b = ` , b );
Readln;
End.