Đề cương ôn thi HK I ( Thực hà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.



  Thông tin chi tiết
Tên file:
Đề cương ôn thi HK I ( Thực hành )
Phiên bản:
N/A
Tác giả:
Nguyễn Mạnh Cường
Website hỗ trợ:
N/A
Thuộc chủ đề:
Tin học 8
Gửi lên:
08/12/2013 21:12
Cập nhật:
08/12/2013 21:12
Người gửi:
N/A
Thông tin bản quyền:
N/A
Dung lượng:
30.50 KB
Xem:
212
Tải về:
58
  Tải về
Từ site Trường THCS Minh Thạnh:
   Đánh giá
Bạn đánh giá thế nào về file này?
Hãy click vào hình sao để đánh giá File

  Ý kiến bạn đọc

Tìm kiếm tài nguyên

Thành viên
Hãy đăng nhập thành viên để trải nghiệm đầy đủ các tiện ích trên site
Thống kê truy cập
  • Đang truy cập4
  • Hôm nay280
  • Tháng hiện tại3,411
  • Tổng lượt truy cập2,509,794
Liên kế hữu ích
Thể thức văn bản hành chính
Văn bản pháp luật của bộ giáo dục và đào tạo
Tài nguyên giáo dục và học liệu
Violympic
Bộ giáo dục và đào tạo
Thăm dò ý kiến

Thông tin bạn cần cung cấp từ website là gì?

Đối tác
Nukviet edu
Vinades
Trang thông tin điện tử huyện Dầu Tiếng
Phần mềm quản lý phổ cập Giáo dục
Trường THCS Minh Thạnh
Địa chỉ: Xã Minh Thạnh, Huyện Dầu Tiếng, tỉnh Bình Dương
Điện thoại: ( 0274) 3545064

Mail:lanntminhthanh@dt.sgdbinhduong.edu.vn
Bạn đã không sử dụng Site, Bấm vào đây để duy trì trạng thái đăng nhập. Thời gian chờ: 60 giây