Cau hỏi trac nghiem pascal

CÂU HỎI TRẮC NGHIỆM PASCALCâu 1: Cho S và i là biến nguyên... Ðể lệnh ReadlnA được thực hiện ít nhất một lần, phải điền vào chỗ... ;Muốn biến Max lưu gía trị lớn nhất của mảng A thì cần

CÂU HỎI TRẮC NGHIỆM PASCAL

Câu 1: Cho S và i là biến nguyên Khi chạy đoạn chương trình :

s:=0;

for i:=1 to 10 do s := s+i;

writeln(s);

Kết quả in lên màn hình là :

s = 11

s = 55

s = 100

s = 101

Câu 2: Cho S, i và N>0 là các biến nguyên Ðể tính S = N!, chọn câu nào :

S := 1; For i := 1 to N do S := S * i;

S := 0; For i := 1 to N do S := S * i;

S := 1; For i := 1 to N do S := S * N;

S := 1; For i:= 1 to N do S := S + i;

Câu 3: Cho S = 1^2 + 2^2 + + 100^2 Nhóm lệnh nào tính sai Giá trị của S: S:=0; FOR i:=1 TO 100 DO S := S + i*i;

S:=0; FOR i:=1 TO 100 DO S := S + SQR(i);

S:=0; FOR i:=100 DOWNTO 1 DO S := S + i*i;

S:=1; FOR i:=1 TO 100 DO S := S + i*i;

Câu 4: Khi chạy chương trình :

Var S, i, j : Integer;

Begin

S := 0;

for i:= 1 to 3 do

for j:= 1 to 4 do S := S + 1 ;

End

Giá trị sau cùng của S là :

4 3  12  0 

Câu 5: Cho S và i biến kiểu nguyên Khi chạy đoạn chương trình :

S:= 0;

i:= 1;

while i<= 6 do

begin

S:= S + i;

i:= i + 2;

end;

Giá trị sau cùng của S là :

6

9

11

0

Câu 6: Khi chạy chương trình :

Var S, i : Integer;

Begin

S:= 0; i:= 1;

Repeat

S:= S + i * i;

i:= i + 1;

Until i > 4 ;

End

Giá trị sau cùng của S là :

0

14

16

30

Câu 7: Cho i là biến nguyên Khi chạy đoạn chương trình :

i := 5;

Repeat

i := i + 1;

Until i > 4 ;

Giá trị sau cùng của i là :

6

4

5

0

Câu 8: Cho m, n, i là các biến nguyên Khi chạy đoạn chương trình :

m:=4; n:=5; i:=5;

Repeat

i:=i+1;

Until (i Mod m = 0) and (i Mod n = 0);

Giá trị sau cùng của i là :

20

5

4

0

Câu 9: Cho chương trình :

Var A : Real;

Begin

While A = 0 do

begin

write ('nhap A # 0:');

Readln (A);

end;

End

Ðể lệnh Readln(A) được thực hiện ít nhất một lần, phải điền vào chỗ lệnh nào trong các lệnh dưới đây ? :

 A:=0;

A:=1;

A:=-1;

A <> 0;

Câu 10: Giả sử các khai báo biến đều hợp lệ Ðể tính S = 10!, chọn câu nào :

S := 1; i := 1;

while i<= 10 do S := S * i;

i := i + 1;

S := 1; i := 1;

while i<= 10 do i := i + 1;

S := S * i;

S := 0; i := 1;

while i<= 10 do

begin

S := S * i;

i := i + 1;

end;

S := 1; i := 1;

while i<= 10 do

begin

S := S * i;

i := i + 1;

end;

Câu 11: Chọn khai báo đúng :

Var A: array[1 10] of integer;

Var A= array[1 10] of integer;

Var A:= array[1 10] of integer;

Var A: array[1,10] of integer;

Câu 12: Cho khai báo:

Var

A: Array[1 4] of Real;

i : Integer ;

Ðể nhập dữ liệu cho A, chọn câu nào :

For i:=1 to 4 do Write(‘ Nhập A[‘, i, ‘]:’); Readln(A[i]);

For i:=1 to 4 do Readln(‘ Nhập A[‘, i, ‘]:’);

For i:=1 to 4 do Begin Write(‘ Nhập A[‘, i, ‘]:’); Readln(A[i]); End;

Write(‘ Nhập A:’); Readln(A);

Câu 13: Cho khai báo biến :

Var A : array[1 5] of Integer;

Chọn lệnh đúng :

A[1] := 4/2 ;

A[2] := -6 ;

A(3) := 6 ;

A := 10 ;

Câu 14: Trong khai báo sau còn bỏ trống một chỗ, vì chưa xác định được kiểu dữ liệu của biến Max :

Var

A: Array[‘a’ ’d’] of Real ;

Ch : Char ;

Max : ;Muốn biến Max lưu gía trị lớn nhất của mảng A thì cần khai báo biến Max kiểu gì vào chỗ :

 Char

Integer

String

Real

Câu 15: Cho khai báo:

Var

A: Array[1 4] of Integer ;

i : Integer ;Sau khi thực hiện các lệnh :

For i:=1 to 4 do A[i]:= i;

For i:=1 to 4 do A[i]:= A[i]+1;

thì mảng A có gía trị là :

A[1]=1, A[2]=2, A[3]=3, A[4]=4

A[1]=2, A[2]=3, A[3]=4, A[4]=5

A[1]=0, A[2]=1, A[3]=2, A[4]=3

A[1]=1, A[2]=1, A[3]=1, A[4]=1

Câu 16: Khai báo nào đúng :

Var A : array[1 n,1 m] of integer;

Const n=2; m=3; Var A: array[1 n,1 m] of integer;

Var n, m : integer ; A: array[1 n,1 m] of integer;

Var A: array[3, 2] of Integer;

Câu 17: Cho khai báo :

Var

A : array[1 2,1 3] of Real;

i, j : integer;

Ðể nhập dữ liệu cho ma trận A, chọn :

Write(‘ Nhập A:’); Readln(A) ;

For i:=1 to 2 do Readln(A[i, j]);

For i:=1 to 2 do

For j:=1 to 3 do

begin

write(‘Nhập A[‘, i, j, ‘]:’);

readln(A[i, j]);

end;

For i:=1 to 2 do

For j:=1 to 3 do

write(‘Nhập A[‘, i, j, ‘]:’);

readln(A[i, j]);

Câu 18: Cho khai báo :

Var

A : array[1 2,1 3] of Real;

i, j : integer; Max : Real;

Ðể tìm số lớn nhất của ma trận A, chọn câu nào :

Max:=A[1,1];

If Max < A[i,j] then Max:=A[i,j];

Max:=A[1,1];

For i:=1 to 2 do

if Max < A[i,j] then Max:=A[i,j];

A[1,1]:=Max ;

For i:=1 to 2 do

For j:=1 to 3 do

if Max< A[i,j] then A[i,j]:=Max;

Max:=A[1,1];

For i:=1 to 2 do

For j:=1 to 3 do if Max < A[i,j] then Max:=A[i,j];

Câu 19: Khi chạy chương trình :

Var

A : array[1 2,1 3] of integer;

i, j, S : integer;

Begin

A[1,1]:= 3 ; A[1,2]:= -1 ; A[1,3]:= -4 ;

A[2,1]:= -9 ; A[2,2]:= 0 ; A[2,3]:= 5 ;

S:=0;

for i:=1 to 2 do

for j:=1 to 3 do If A[i,j] < 0 then S:=S+1;

Write(S);

End.Kết qủa in ra gía trị của S là :

0

-9

 3

5

Câu 20: Cho biến SS kiểu lô gic Lệnh nào làm SS có gía trị là TRUE :

SS := 'a' < 'A';

SS := 'A' = 'a';

SS := 'an' < 'a';

SS := 'PASCAL' < 'pascal';

Câu 21: Cho khai báo :

Var

Ho, ten : String[15];

-Lệnh nào sai :

Write('Ho ten la : ' ; Ho ; Ten);

Write('Ho ten la : ' + Ho + Ten);

Write('Ho ten la : ', Ho , Ten);

Write('Ho ten la : ', Ho + Ten);

Câu 22: Cho khai báo :

Var

Chuoi : string[10];

x : real;

- Lệnh nào đúng :

Chuoi := Str(x:5:2) ;

Str(x:5:2, Chuoi);

Chuoi := x ;

x := Chuoi ;

Câu 23: Cho St là biến chuỗi, sau khi thực hiện hai lệnh : St:= Copy( 'PASCAL VERSION 5.5' , 8, 7) ;

Write(St);

- Kết qủa in lên màn hình là:

VERSION 5.5

VERSION

PASCAL

5.5

Câu 24: Cho St là biến chuỗi, sau khi thực hiện bốn lệnh: St:=’ABCDEF’;

Delete(St, 3, 2);

Insert(‘XYZ’, St, 2);

Write(St);

-Kết qủa in lên màn hình là:

 ABXYZEF

AXYZBCDEF

AXYZ

AXYZBEF

Câu 25: Cho i và x là hai biến kiểu nguyên Khi thực hiện lệnh : VAL('1234', x, i);

-Gía trị của x và i là bao nhiêu :

x = 0 , i = 1234

x = 1234 , i = 4

x = 1234 , i = 0

x = 0 , i = 0

Câu 26: Cho các biến St chuỗi và k nguyên Sau khi gán: St:='Sinh vien Tin hoc hoc Tin hoc';

k := Pos('Tin', ST) ; -Gía trị của k là :

k=13

k=11

k=26

k=23

Câu 27: Khi chạy chương trình :

Var

St : string;

i, L : integer;

Begin

St :='So Buu chinh Vien thong'; L:=Length(St);

For i := 1 to L do

If (St[i] >= 'a') and (St[i] <= 'z') then St[i]:= Upcase (St[i]); Write (St);

End

-Chương trình in ra :

So Buu chinh Vien Thong

so buu chinh vien thong

So Buu Chinh Vien Thong

SO BUU CHINH VIEN THONG

Câu 28: Khi chạy chương trình :

Var

St : String;

i,L : integer;

Begin

St:='ABCD'; L := Length(St);

For i:= L Downto 1 do write (St[i]);

End

-Chương trình in ra :

DCAB

ABCD

4321

 DCBA

Câu 29: Cho St là biến chuỗi và St:=’AAABAAB’;

Sau khi thực hiện hai lệnh :

While St[1]=’A’ do Delete(St,1,1);

Write(St);Kết qủa in ra là:

AABAAB

BAAB

BB

AAA

Câu 2: tính n! chọn S := 1; For i := 1 to N do S := S * i;

Câu 3 nhóm lệnh tính sai giá trị của s là : S:=1; FOR i:=1 TO 100 DO S := S + i*i; Câu 4: 12

Câu 5: 9

Câu 6:30

Câu 7: 6

Câu 9: a:=0;

Câu 10 : S := 1; i := 1;

while i<= 10 do

begin

S := S * i;

i := i + 1;

end;

Câu 11:khai báo đúng :

Var A: array[1 10] of integer;

For i:=1 to 4 do Begin Write(‘ Nhập A[‘, i, ‘]:’); Readln(A[i]);Câu 12: End; A[2] := -6 ;Câu 13:

RealCâu 14:

A[1]=2, A[2]=3,Câu 15: A[3]=4, A[4]=5

Const n=2; m=3; Var A: array[1 n,1 m] ofCâu 16: integer;

Câu 17: For i:=1 to 2 do

For j:=1 to 3 do

begin

write(‘Nhập A[‘, i, j, ‘]:’);

readln(A[i, j]);

end;

Câu 18: Max:=A[1,1];

For i:=1 to 2 do

For j:=1 to 3 do if Max < A[i,j] then Max:=A[i,j];

3Câu 19:

SS := 'PASCAL'Câu 20: < 'pascal';

Câu 21: Write('Ho ten la : ' ; Ho ; Ten);

Str(x:5:2, Chuoi);Câu 22:

Câu 23: VERSION

AXYZBEFCâu 24:

x = 1234 , i = 0Câu 25:

Câu 26: k=11

SO BUU CHINH VIEN THONGCâu 27: DCBACâu 28:

BAABCâu 29: