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.
ễ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: