ZixDoc gửi tặng quý thầy cô và các em học sinh Đề cương ôn tập giữa học kỳ 2 - Tin học 8 dưới định dạng word hoàn toàn miễn phí. Tài liệu có 3 trang gồm cấc phần: Kiến thức trọng tâm và các đề tự luận giúp các em ôn tập trong mùa thi sắp tới.
Trích dẫn Đề cương ôn tập giữa học kỳ 2 - Tin học 8:
III. ĐỀ TỰ LUYỆN:
Đề 1
Câu 1 (4,5đ). Bạn An viết chương trình tính tổng các số Q = 1+2+3+4+5+…+n, với n là số nguyên dương được nhập vào từ bàn phím như sau:
Program Tong;
Var i, n, Q: Interger;
Begin
For i:=1 to n do Begin
Q:= Q*i;
End;
Readln(n);
Write('Nhap n=');
Q:=1;
i:=1;
Writeln('Tong:', Q);
Readln;
End.
Em hãy gõ lại chương trình trên phần mềm Free Pascal và sửa lỗi để chương trình chạy và cho kết quả đúng.
Câu 2 (3,5đ). Viết chương trình nhập vào một số tự nhiên n. Tính và xuất ra màn hình tổng A = 2+ 4+ 6 + 8+…+ n.
Câu 3 (2đ). Viết chương trình tính và xuất ra màn hình tổng
Đề 2
Câu 1 (4,5đ). Cho đoạn chương trình tính tích các số T = 1.2.3.4.5.….n, với n là số nguyên dương được nhập vào từ bàn phím như sau:
Program Tich;
Var i, n, T: Longint;
Begin
T:=0; i:=1;
For i:=1 to n do
Begin
T:= T*i;
End;
Readln(n);
Write('Nhap n=');
Writeln('Tich= ', T);
Readln; End.
Tải về để xem bản đầy đủ và chính xác nhất!
Trích dẫn Đề cương ôn tập giữa học kỳ 2 - Tin học 8:
III. ĐỀ TỰ LUYỆN:
Đề 1
Câu 1 (4,5đ). Bạn An viết chương trình tính tổng các số Q = 1+2+3+4+5+…+n, với n là số nguyên dương được nhập vào từ bàn phím như sau:
Program Tong;
Var i, n, Q: Interger;
Begin
For i:=1 to n do Begin
Q:= Q*i;
End;
Readln(n);
Write('Nhap n=');
Q:=1;
i:=1;
Writeln('Tong:', Q);
Readln;
End.
Em hãy gõ lại chương trình trên phần mềm Free Pascal và sửa lỗi để chương trình chạy và cho kết quả đúng.
Câu 2 (3,5đ). Viết chương trình nhập vào một số tự nhiên n. Tính và xuất ra màn hình tổng A = 2+ 4+ 6 + 8+…+ n.
Câu 3 (2đ). Viết chương trình tính và xuất ra màn hình tổng
Đề 2
Câu 1 (4,5đ). Cho đoạn chương trình tính tích các số T = 1.2.3.4.5.….n, với n là số nguyên dương được nhập vào từ bàn phím như sau:
Program Tich;
Var i, n, T: Longint;
Begin
T:=0; i:=1;
For i:=1 to n do
Begin
T:= T*i;
End;
Readln(n);
Write('Nhap n=');
Writeln('Tich= ', T);
Readln; End.
Tải về để xem bản đầy đủ và chính xác nhất!