Giáo án Tin học Lớp 8 - Tiết 68: Ôn tập (T2) - Năm học 2009-2010

Giáo án Tin học Lớp 8 - Tiết 68: Ôn tập (T2) - Năm học 2009-2010

Trả lời:

program Tinh_tong;

uses crt;

Var n,i:integer;

 S: longint;

begin

clrscr;

Write('nhap so n='); readln(n);

S:=0;

for i:=1 to n do S:=S+i;

write('tong cua',n ,'so tu nhien dau tien la:',S:6);

readln

end.

 

doc 3 trang Người đăng tuvy2007 Lượt xem 872Lượt tải 1 Download
Bạn đang xem tài liệu "Giáo án Tin học Lớp 8 - Tiết 68: Ôn tập (T2) - Năm học 2009-2010", để tải tài liệu gốc về máy bạn click vào nút DOWNLOAD ở trên
ễN TẬP
Tuần 34
Tiết 68
Ngày soạn: 11/04/2010
Ngày dạy: 20/04/2010
I. mục tiêu
1. Kiến thức
 - ễn lại những kiến thức đó học trong kỳ 2
2. Kỹ năng
- Luyện kỹ năng viết chương trỡnh trờn mỏy cho HS 
3. Thái độ
- Nghiêm túc học tập 
II. CHUẨN BỊ
1. Giỏo viờn
a. Phương phỏp: Trực quan 
b. Phương tiện: Giỏo ỏn, đề kiểm tra 
2. HS: Sỏch, vở đọc trước bài ở nhà.
III. TIẾN TRèNH DẠY - HỌC
1.Ổn định lớp
- Ổn định trật tự
- Kiểm tra sĩ số
2. Kiểm tra bài cũ 
3. Kiểm tra 
GV: Phỏt đề cho HS 
HS: Nhận đề và làm trờn mỏy 
1. Em hãy khởi động Pascal và lưu bài theo đường dẫn sau:
D\lop\ KT_ten và Viết chương trỡnh Pascal nhập vào dóy gồm n (n<=100) điểm trung bỡnh của học sinh. Tỡm điểm trung bỡnh cao nhất. 
Đỏp ỏn và biểu điểm 
Hoạt động của thầy và trũ
Nội dung
GV: Ra một số đề ụn tập cho HS làm
HS: Ghi bài tập 
GV: Hướng dẫn cho HS cỏch làm 
HS: lắng nghe 
GV: Yờu cầu HS nhỏp ra giấy chuẩn bị lờn bảng làm bài 
HS: thực hiện yờu cầu 
Bài 5: viết chương trình tính tổng của n số tự nhiên đầu tiên , với n là số tự nhiên nhập vào từ bàn phím (Sử dụng For ...do)
Bài8: Cần cộng bao nhiờu số tự nhiờn đầu tiờn để tổng nhỏ nhất lớn hơn một số A bất kỳ, A là số tự nhiờn nhập từ bàn phớm (Phõn tớch bài toỏn,mụ tả thuật toỏn và viết chương trỡnh)
Bài 9: Viết chương trình Pascal tính lũy thừa bậc n của số nguyên X. Với X,n là số tự nhiờn nhập từ bàn phớm
Trả lời: 
program Tinh_tong;
uses crt;
Var n,i:integer;
 S: longint;
begin
clrscr;
Write('nhap so n='); readln(n);
S:=0;
for i:=1 to n do S:=S+i;
write('tong cua',n ,'so tu nhien dau tien la:',S:6);
readln
end.
Trả lời: 
program Tinh_tong;
uses crt;
Var A,i:integer;
 S: longint;
begin
clrscr;
Write('nhap so A='); readln(A);
S:=0;i:=0;
While S<= A do 
Begin
 i:=i+1;
S:=S+i; 
end;
write('Can cong',i,'so tu nhien de tong nho nhatlon hon',A,'la',S:6);
readln
end. 
Trả lời: 
Program Tinh_luy_thua;
Uses crt;
var x,i,n: integer;
 T: Longint;
Begin
Clrscr;
write('x='); readln(x);
write('n='); readln(n);
T:=1;
for i:=1 to n do T:=T*X;
writeln(x,'mu',n,'bang', T);
readln
end.
4. Củng cố 
 5. Dặn Dũ
 - Học sinh về nhà ụn bài, tiết sau chỳng ta thi HK2
IV. RÚT KINH NGHIỆM

Tài liệu đính kèm:

  • doctuan34_68.doc