A) цикл операторы b)& шартсыз өту операторы
C) шартты өту операторы
D) дыбыс эффектiлерiн тудыратын оператор
E) шарты соңында тексерiлетiн оператор
*****
Константаларды дұрыс сипаттауды көрсет:
A)& const k=100; N=50;
pi=3.141592;
LMP='P';
B) const k:=100; N:=50;
pi:=3.141592;
LMP='P';
C) const k=100,N=50,pi=3.141592,LMP='P';
D) var k,N,pi,LMP:real;
E) const k=100, N=50,
pi=3,141592;
*****
Айнымалыларды дұрыс сипаттауды көрсет
A)& var cop:array[1..nmax]of real; nor:array[1..istr,1..istb]of integer;
B) var cop:array(1..nmax)of real; nor:array(1..istr,1..istb)of integer;
C) var cor;array[1..nmax]of real: nor;array[1..istr; 1..istb]of integer;
D) var cor:array(1..nmax) real; nor:array(1...istr;1...istb) integer;
E) var cor;array[1..nmax)of real: nor;array[1..istr; 1..istb]of integer;
*****
Келесі өрнектің ax2+b2 eln x +2.64 дұрыс жазылуын көрсет
A) asqrt(x)+b*bexp(ln(x)/3)+2.64;
B)& a*sqr(x)+sqr(b)*exp(ln(x))+2.64;
C) a*sqrt(x)+sqr(b)*exp(3lnx)+2.64;
D) a*sqrt(x)+b*b*exp(3lnx)+2,64;
E) a*sqr(x)+sqr(b)/exp(ln(x))+2.64
*****
Меншіктеу операторының дұрыс жазылуын көрсет
A)& im:=0; p:=1; im:=im+2; p:=p*im;
B) im:3; b:=3,2*x;5 0write(a,b);
C) im=0; p=1;
D) begin im:=0; p:=p*im:5 0writeln(p);
E) im:=0; p;=1; im:=im+2; p:=p*im;
*****
Табаны үшбұрыш болатын пирамида көлемін есептейтін программаның дұрыс нұсқасын көрсет:
A)& Program Piram; B) Program Piram;
Var A,B,C,P,H,S,V:real; Var A,B,C,H,P:real;
begin begin
read(A,B,C,H); read(A,B,C,H);
P:=(A+B+C)/2; P:=(A+B+C)/2;
S:=SQRT(P*(P-A)*(P-B)*(P-C)); S:=SQRT(P(P-A)(P-B)(P-C));
V:=S*H/3; V:=S*H/3;
write('объем=',V:8:3) end. write (V); end.
C) Program Piram; D) Program Piram;
Var A,B,C,H,S,V:real; Var A,B,C,H,S,V:real;
begin read(A,B,C); begin read(A,B,C);
S:=SQRT(P*(P-A)*(P-B)*(P-C)); P:=(A+B+C)/2;
V:=S*H/3; S:=SQRT(P*(P-A)*(P-B)*(P-C));
write ('объем=',V:8:3) V:=S*H/3;
end. write('объем=',V:8:3)
end.
E) дұрыс жауап жоқ
*****
Case операторының қызметі
A) &бiрнеше оператордың бiрiн таңдау арқылы тармақталуды ұйымдастырады
B) программаның орындалуының екi нұсқасының бiреуiн таңдайды
C) басқару белгiсi бар операторға берiледi
D) қате туралы хабарламасы бар программа текстiн шығарады
E) программаның орындалуының көп нұсқасының бiрiн таңдайды
*****
n! есептейтін программаның дұрыс нұсқасын көрсет, есептеу барысында көбейтіндіні жинақтау әдісін қолдану керек
A) Program Fact; B) Program Fact;
Var NF,K,N: integer; Var NF,K,N:integer;
begin begin
read(N); NF:=1; read(N); NF=1;
for k:=2 to N do for k=2 to N do
NF:=NF*K; NF:=NF+K;
wruteln(NF); write(NF)
end. end.
C) Program Fact; D) &Program Fact;
Var NF,K,N:real; Var NF,K,N: integer:
begin read(N); begin read(N);
NF:=1; NF:=1;
for k:=2 to N do for k:=2 to N do
NF:=NF+K; NF:=NF*K;
wrute(NF) end. write(NF); end.
E) дұрыс жауап жоқ
*****
1-ден 10-ға дейінгі бүтін мәндерді өсу реті бойынша баспаға шығаратын программаның дұрыс нұсқасын көрсет:
A) Program NUM; B) Program NUM;
Const KN:=10; Const KN=10;
Var N:real; Var N:integer;
begin begin
for N:=1 to KN do for N=1 to K do
write(N:5) write(N)
end. end.
C)& Program NUM; D) Program NUM;
Const KN=10; Const KN=10;
Var N:integer; Var N:integer;
begin begin
for N:=1 to KN do or N:=1 to KN do;
write(N:5); writeln(N:5);
end. end.
E) дұрыс жауап жоқ
*****
1-ден 10-ға дейінгі бүтін мәндерді өсу реті бойынша баспаға шығаратын программаның дұрыс нұсқасын көрсет:
A)& Program NUM; B) Program NUM;
Const KN=10; Const KN:=10;
Var N:integer; Var N:real;
begin N:=0; begin N=0;
while N<=KN do while N=KN do
begin begin
N:=N+1; write(N:5); N:=N+1; write(N:5);
end ; end;
end. end.
C) Program NUM; D) Program NUM;
Const KN=10: Const KN=10;
Var N:integer; Var N:real;
begin N=0; begin N=0;
while N<=KN do while N<KN do
begin begin
N=N+1; write(N:5) N:=N-1; write(N:5);
end; end. end end.
E) дұрыс жауап жоқ
*****
1-ден 10-ға дейінгі бүтін мәндерді өсу реті бойынша баспаға шығаратын программаның дұрыс нұсқасын көрсет:
A) Program NUM; B) &Program NUM;
Const KN:=10; Const KN=10;
Var N:real; Var N:integer;
begin N:=0; begin N:=0;
repeat do repeat
N:=N+1; write(N:5) N:=N+1; write(N:5)
until N=KN; until N>KN
end. end.
C) Program NUM; D) Program NUM;
Var KN=10; Const KN=10;
Var N:integer; Var N:integer;
begin N:=0; begin N:=0;
repeat begin repet
N=N+1; writeln(N:5) end; N:=N+1; write(N:5)
until N<KN antil N<=KN
end. end.
E) дұрыс жауап жоқ
*****
Жылжымайтын нүктелі нақты мәндерді шығаратын оператордың дұрыс жазуын көрсет:
A) writln(X:10)
B) write(X:10:8:3)
C) writeln(x)
D)& writeln(X:10:3)
E) writeline(X:10:3)
*****
Паскальдегі деректерді енгізуді қамтамасыз ететін процедура:
A) begin B) input C)& read немесе readln D) print
E) clrscr
*****
Паскаль тілінің шартты операторларының қызметі:
A)& белгiлi бiр шартқа (мұнда әрекеттiң бiрi бос болуы мүмкiн, яғни болмауы мүмкiн) байланысты мүмкiн әрекеттiң (операторлардың) бiреуiн орындауды тандау. B) шарт бойынша белгiлi бiр белгiге өту C) өту алдында логикалық шартты анализ жасау D) логикалық шарттың мәнiн есептеу
E) арифметикалық өрнектiң мәнiн есептеу
*****