TIẾT 69 ÔN TẬP

BÀI TẬP
* C�U H?I T? CH?N
TRƯỜNG THCS MỸ HỘI ĐÔNG
Tin học khối 8
1
2
3
4
Đáp án
15s
rra
Hãy tìm lỗi đoạn chương trình sau :
:
Program tinh toan;
Begin
n:=0;s:=2;
While n<=6 do
Begin
n:=n+1;
s:=s+n;
End.
15s
rra
:
Program tinh toan;
Begin
n:=0;s:=2;
While n<=6 do
Begin
n:=n+1;
s:=s+n;
end;
End.
Program tinhtoan;
Begin
n:=0;s:=2;
While n<=6 do
Begin
n:=n+1;
s:=s+n;
end;
End.
Đáp án
15s
rra
:
Hãy hoàn thiện để chương trình sau chạy được :
Program tinhtoan;
Begin
n:=0;s:=2;
While n<=6 do
Begin
n:=n+1;
s:=s+n;
end;
End.
15s
rra
:
Program tinhtoan;
Var s,n: interger;
Begin
n:=0;s:=2;
While n<=6 do
Begin
n:=n+1;
s:=s+n;
End.
Đáp án
15s
rra
:
Hãy tìm sữa lỗi chương trình sau :
Program Tong;
Uses crt;
Var S: read;
n,i: interer;
Begin
Clrscr;
Write(`Nhap so n= `) Readln(n);
S:=0;
For i:=1 to n do S:=S+1/i;
Writeln(`Tong can tim la: `,S:6:2);
Readln
End.
15s
rra
:
Program Tong;
Uses crt;
Var S: real;
n,i: integer;
Begin
Clrscr;
Write(`Nhap so n= `) Readln(n);
S:=0;
For i:=1 to n do S:=S+1/i;
Writeln(`Tong can tim la: `,S:6:2);
Readln
End.
Đáp án
15s
rra
:
Program Tong;
Uses crt;
Var S: real;
n,i: integer;
Begin
Clrscr;
Write(`Nhap so n= `) Readln(n);
S:=0;
For i:=1 to n do S:=S+1/i;
Writeln(`Tong can tim la: `,S:6:2);
Readln
End.
Nếu chương trình sau bỏ đi phần tên chương trình Program Tong; và thư viện Uses crt; Clrscr; thì chương trình chạy k?
15s
rra
:
CHƯƠNG TRÌNH CHẠY BÌNH THƯỜNG
Dặn dò
1.Học đề cương
2. Sáng Thứ tư tuần sau thi tiết 2