tin học lớp 8
Trường THCS TÂN BÌNH
Câu 1: Cho S và i là biến nguyên. Khi chạy đoạn chương trình :
s:=1;
for i:=1 to 4 do
s := s+i;
writeln(s);
Kết quả in lên màn hình là của s là :
a) 55 b) 15 c) 10
d) 11


Cho chương trình sau:
Var a,b : integer ;
Begin
a:=24 ; b:=12 ;
If a< b then a:= a + b
else
begin
a:= a- b;
b:= b + a;
end;
Writeln( ‘ a= ‘, a , ‘ b = ‘, b);
End.
Biến a và b có giá trị là mấy:

a=12 ;b = 24

a= 24 ; b= 36

a = 8 ; b =16

d) a =24 ; b =16

Cho biến S:=0;
Để tính tổng S=1 + 2 +3 +4 … + n; em chọn đoạn lệnh:

A) for i:=1 to n do
if ( i mod 2)=0 then S:=S + i;
B) for i:=1 to n do
S:= S + i ;
C) for i:=1 to n do
if ( i mod 2)=1 then S:=S + i;
D) for i:=1 to n do
if ( i mod 2)<>0 then S:=S + i;
Thực hiện đoạn lệnh sau, x nhận giá trị bao nhiêu:
x:=8;
if x mod 3 = 2 then x:= x +1;
x=7

x=8

x=9

d) x=10

Cho biến S:=0;
Để tính tổng S=1 +3 +5 … + n; Em chọn đoạn lệnh:

A) for i:=1 to n do
if ( i mod 2)=0 then S:=S + i;
B) for i:=1 to n do
S:= S + i ;
C) for i:=1 to n do
if ( i mod 2)=1 then S:=S + i;
D) for i:=1 to n do
if ( i mod 3)<>0 then S:=S + i;
Sau khi thực hiện đoạn chương trình
j:= 1;
for i:= 1 to 3 do j:=j+2;
thì giá trị j in ra màn hình là?
10
b) 6
c) 8
d) 7
Chọn khai báo hợp lệ
A) Var n: real;
Var a,b: array[1:n] of real;
Const n=5;
Var a,b: array[1..n] of real;
C) Var a,b: array[100..1] of real;
D) Var a,b: array[1..5..10] of real;
Lần lượt thực hiện đoạn lệnh:
a[1]:=2;
a[2]:=3; t:=(a[1]+a[2])*2+2;
Giá trị của t là
a) t=12
b) t=11
c) t=10
d) t= 6
Câu lệnh nào sau đây lặp vô hạn lần
s:=5; i:=0;
While i<=s do
s:=s + 1;

b) s:=5; i:=1;
While i> s do i:=i + 1;
c) s:=5; i:=1;
While i<=s do i:=i + 1;
d) s:=0; i:=0;n:=3;
While i<=n do begin
if (i mod2)=1 Then
S:=S + i
Else i:=i+1;
end;
s:=5; i:=0;
While i<=s do
s:=s + 1;

b) s:=5; i:=1;
While i> s do i:=i + 1;
c) s:=5; i:=1;
While i<=s do i:=i + 1;
d) s:=0; i:=0;n:=3;
While i<=n do begin
if (i mod2)=1 Then
S:=S + i
Else i:=i+1;
end;
s:=5; i:=0;
While i<=s do
s:=s + 1;

b) s:=5; i:=1;
While i> s do i:=i + 1;
c) s:=5; i:=1;
While i<=s do i:=i + 1;
d) s:=0; i:=0;n:=3;
While (i<=n) or(s<=n) do begin
if (i mod2)=1 Then
S:=S + i
Else i:=i+1;
end;
Cho đoạn chương trình sau:

n:= 7; s:=2;
for i:=4 to n do
if (i mod 3)=2 then
S:= S +2;
Lần lượt điền các giá trị khi thực hiện đoạn lệnh bên:


1
2
2
4
0
4
1
4
Chương trình nhập từ bàn phím N số .Yêu cầu:
1./ Xuất ra màn hình các SỐ LẺ.
2./ Xuất ra màn hình Tổng các số lẻ đó.
Program TinhTongSole;
USES CRT;
Var i,n :byte; S: Longint;
A : Array[1..100] of integer;
BEGIN
Clrscr;
Write(‘Nhap so n :’); Readln(n); For i:=1 to n do
begin
write(‘So thu’,i); Readln(a[i]);
end;
Write(‘Day so lẻ ’);
S:=0;
For i:=1 to n do
If a[i] mod 2=1 then
begin
write(a[i]:4);
S:=S+a[i];
end;
Writeln;
Write(‘Tong cac so le da nhap = ’,S);
Readln;
END.
Khai Báo Biến
Nhập dãy số từ bàn phím
Chọn Số lẻ ,hiển thị các Số lẻ,Tính Tổng các số lẻ