A) .EXE

D) integer, char, real, boolean

E) integer, char, real, array

*****

67×10^-5 санының эспоненциалды түрде жазылуын көрсет

A) 67

B) 67Е-5

C) 670Е-4

D) 6700000

E) 0.000067

*****

Нүктесі жылжымалы түрде жазылған 234Е-2 санын нүктесі бекітілген түрдегі санға келтір:

A) 234Е-2

B) 23.4Е-3

C) 23400

D) 2.34

E) 23.4

*****

Паскаль тіліндегі айнымалы идентификаторларының дұрысын көрсет

A) alfa, a15, a1c2, tania1, termos

B) боря, точка, 1t3, вес1

C) a.12, mouse, 1-zap, 2-call, while

D) load, true, start, tryin

E) точка, a.12, true, termos

*****

a=5,75x²+Ö`x өрнегі үшін Паскаль тіліндегі меншіктеу операторының дұрысын көрсет

A) а=5.75*x^2+х;

B) а:=5.75*sqr(x);

C) a:=5,75*x*x+sqr(x);

D) a:=5,75*x^2;

E) а:=5.75*sqr(x)+sqrt(x);

*****

Паскальдағы келесі өрнектің дұрыс жазылуын көрсет

y= +lna-a^b

A) y:= (a+b)/(a-b + exp(a)) + ln(а) - a^b;

B) y:= a+b / a-b + exp (a) + log (а) - a exp (b);

C) y:= (a+b)/(a-b + exp(a)) + ln(а) - exp(b*ln(a));

D) y:= [a+b]/[a-b+exp(a)] + ln(а) - a ln (b);

E) y:= (a+b)/(a-b + exp(a)) + ln[а] - exp(b/ln(a));

*****

Паскальдағы келесі өрнектің дұрыс жазылуын көрсет

A) y:= (ax+1,5)/(a^2-b^3+exp(a+1))+sin(a);

B) y:= a*x+1.5 / a*a- exp(3*ln(b)) + exp (a+1)+sina;

C) y:= (a*x+1.5)/( a*a-b*b*b+exp(a+1))+sin(a);

D) y:= [ax+1.5] / [a*a-b530+exp (A+1)] + sina;

E) y:= (a*x+1.5)/( a/a-b*b/b+exp(a+1)+sin(a);

*****

Паскальдағы келесі өрнектің дұрыс жазылуын көрсет

A) 0,3*(((sqr(cos(x))-i)/(2i+sin(sqr(x))-exp(a-bx)*ln(x)-sqrt(x-1))

B) 0.3*((((sqr(cosx)-i)/(2*i+sin(sqr(x)))-exp(a-b*x))*lnx-sqrt(x-1))

C) 0.3*((sqr(cos(x))-i)/(2*i+sin(sqr(x)))-exp(a-b*x)*ln(x))-sqrt(x-1)

D) 0.3*((((sqr(cos(x))-i)/(2*i+sin(sqr(x)))-exp(abs(a-b*x))*ln(x)-sqr(x-1)))

E) C) 0.3/((sqr(cos(x))-i)/(2*i+sin(sqr(x)))-exp(a-b*x))*(ln(x)-sqrt(x-1))

*****

Write операторының қызметі

A) b1,b2,...,bn атауларына сәйкес мәндердi енгiзудi орындайды

B) b1,b2,...,bn, атауларына сәйкес мәндердi бiр жолға орналастыра отырып енгiзудi орындайды

C) b1,b2,...,bn, атауларына сәйкес мәндердi әр жолға өте отырып шығарады

D) b1,b2,...,bn атауларына сәйкес мәндердi әр жолға өте отырып енгiзудi орындайды

E) b1,b2,...,bn, атауларына сәйкес мәндердi бiр жолға бос орын аркылы орналастыра отырып шығаруды орындайды

*****

Паскальдағы енгізу-шығару операторы

A) print
B) for
C) output, writeln
D) readln

E) read, write

*****

n=3 болсын. Келесі құрама оператор орындалғаннан кейін

begin f :=1; i:=2;

1: if i>n then goto 9;

f:=f*i; i:=i+1; goto 1;

9: end;

f айнымалысының мәні неге тең:

A) 6;

B) 2;

C) 1;

D) 3;

E) 12;

*****

Келесі операторлар

S:=0; i:=0;

While i<5 do i:=i+1; S:=S+1/i; орындалғаннан кейінгі S айнымалысының мәнін анықтаңдар:

A) 2.25;

B) 0.2;

C) 0.25;

D) 0.1;

E) 1.1;

*****

Келесі операторлар

S:=0; i:=1;

Repeat S:=S+1/i; i:=i-1 until i<=1; орындалғаннан кейінгі S айнымалысының мәнін анықтаңдар

A) 2.1;

B) 1.5;

C) 1.1;

D) 0;

E) 1.0;

*****

Параметрлі цикл операторын көрсет:

A) For <индекс> := <бастап мән> To <соңғы мән> Do <дене>

B) Do While <шарт> <дене> Loop

C) While < шарт > < дене > Wend

D) Select Case <өрнек> Case <мән> <сөйлем> … Case Else < сөйлем > End Select

E) If (<шарт >, < мән, егер ақиқат болса>, < мән, егер жалған болса >)

*****

Таңдау операторын көрсет:

A) For <индекс> := <бастап мән> To <соңғы мән> Do <дене>

B) Do While <шарт> <дене> Loop

C) While < шарт > < дене > Wend

D) Case <өрнек> of

<мән>: <сөйлем>

…

<мән>: <сөйлем>

Else < сөйлем >

End

E) If (<шарт >, < мән, егер ақиқат болса>, < мән, егер жалған болса >)

*****

Шартты операторды көрсет:

A) For <индекс> := <бастап мән> To <соңғы мән> Do <дене>

B) Do While <шарт> <дене> Loop

C) If <шарт> Then <өрнек> Else < өрнек >

D) Case <өрнек> of

<мән>: <сөйлем>

…

<мән>: <сөйлем>

Else < сөйлем >

End

E) If (<шарт>, < мән, егер ақиқат болса>, < мән, егер жалған болса >)

*****

Паскальдағы өрнектің дұрыс жазылуын көрсет:

A) if a>b then a+b else a-b;

B) if a>b then y:=a+b else y:= a-b;

C) if a<b then y=a-b else a+b;

D) if a>b; then y=a+b else a-b;

E) if a>b then y:=a-b else y:=a+b;

*****

repeat операторының дұрыс жазылуын көрсет:

A) repeat y:= x*x do until x>20;

B) repeat y:= x*x; x:=x+1 until x>20;

C) repeat for i:=1 to 20 until x>20;

D) repeat y:=x*x do for until x>20;

E) repeat y:=x*x do for until x<20;

*****

Паскаль тілінің стандартты функциялары

A) tan(х), ctg(x), log(x), cosec(x), lg(x)

B) real(x), string(x), full(x), odd(x), tor(x)

C) col(x), asin(x), save(x),load(x), log(x)

D) int(x), sqr(x), sqrt(x), sin(x), cos(x)

E) tan(х), string(x), save(x), sin(x), cos(x)

*****

Деректі енгізудің дұрыс процедурасын көрсет:

A) write(x,y);

B) writeln(x,y);

C) readline(s,t);

D) readln(s,t);

E) writeline(a,b);

*****

Паскаль тіліндегі өрнектің дұрыс жазылуын көрсет:

A) if ( -3<x) and (x<3) then y:=1+x else if x<-3 then y:=0 else y:=3*x;

B) if x<-3 then y:=0 if x>3 then y=3*x else y=1+x;

C) if x>3 then y:=3x else if x<-3 then y:=0 else y:=1+x;

D) if x<-3 then y:=0 else if x>3 then y:=3*x else y:=1+x;

E) if x>-3 then y:= 1+x else if x<-3 then y:=0 else y:= 3x

*****

x(1),x(2),…,x(15) массивінің қосындысын табу керек. Есептің дұрыс нұсқасын көрсет:

A) var x: array[1..15] of real;

s: real; k: integer;

begin s:=0;

for k:=1 to n do:

input(x[i]);

s:=s+x[i];

write(x,y) end.

B) var x: array[1..15] of real;

s: real; k: integer;

begin s:=0;

for k:=1 to 15 do

begin readln(x[k]);

write('x[',k,']=',x[k]:8:2); s:=s+x[k];

end; writeln('s=', s:12:4) end.

C) var x: array of real;

s: real; k: integer;

begin; s:=0;

for k:=1 to n do:

readln(x[i]);

s:=s+x[i];

write(x,y);

end.

D) var x:array [1..15] of real;

s: real; k: integer;

begin s:=0;

for k:=1 to 15 do

begin write('x[',i,']=');

readln(x[i]); s:=s+x[i]; end;

writeln('x=',x:12:3,'y=',y:15:3)

end.

E) дурыс жауап жок

*****

дұрыс құрама операторды көрсет:

A) ( a:3; b:=3,2*x; write (a,b));

B) begin a:=3; b:=3.2*a; write (a,b) end;

C) 1) a:3; 2) b:=3,2*2; 3) write (a,b);

D) begin a=3; b=3,2*x; write (a,b) end;

E) begin a:=3; b:=3.2*a; write (a:b); end;

*****

for операторының дұрыс жазылуын көрсет:

A) for k:=1 to 20 do y:=x*x;

B) for i=1 to n do begin y:= x^2 end;

C) for i:=1 to 20 begin y=x*x end;

D) for k=1 to 20 do y:= x*x;

E) for k=1 to 20 do; y= x*x;

*****

z=(sinx-1+2|y|)/cos(2+y) өрнегінің мәндерін айнымалылардың келесі x=1; y=-2 мәндері үшін Паскаль тiлiнде есептеңдер

A) program asan;

const x=1; y=-2;

var z: real;

begin

z:=(sin(x)-1+2*abs(y))/cos(2+y);

writeln('z=',z:12:3)

end.

B) program ysen;

var x=1; y=-2;

z: real;

begin

z:=(sin(x)-1+2*abs(y))/cos(2+y);

writeln('z=',z:12:3)

end.

C) program esen;

var z: real;

begin

x=1; y=-2;

z:=(sin(x)-1+2*abs(y))/cos(2+y);

writeln('z=',z:12:3) end.

D) program xasen;

var x,y,z: real;

begin

x:=1; y:=-2;

z:=(sinx-1+2abs(y)/cos(2+y);

writeln('z=',z:12:3) end.

E) дұрыс жауап жок

*****

Экранға шығарудың дұрыс жазуын көрсет:

A) writeline (`x=`, x:8:3);

B) readln (`x=`,x:5:0);

C) read (s,t);

D) writeln ('y=',y:12:3);

E) readln(y=,’y:8:2’);

*****

"х-тiң мәнi 0-ден 3–ке дейiнгi аралықта 0,25 қадаммен өзгергендегi y=3x²-e^x функциясының мәнiн есептеңдер " есебінің дұрыс жазылуын көрсет:

A) Program funkcia(input,output);

var k: integer;

begin

for k:=0 to 12 do

begin

x:=k/4;y:=3*sqr(x)-exp(x);

writeln('x=',x:5:2,'y=',y:12:3);

end end.

B) Program funkcion(input,output);

var x,y: real;x,y:integer;

begin x:=0;

while x<=3 do begin

y:=3*sqr(x)-exp(x);

writeln('x=',x:5:2,'y=',y:12:3);

x:=x+0.25;

end; end.

C) Program funk1(input,output);

var k:real;x,y:array of real;

begin

for k:=0 to 12 do begin

x:=k/4; y:=3*sqr(x)-exp(x);

writeln('x=',x:5:2,'y=',y:12:3)

end end.

D) Program funkcia(input,output);

var k:real; x,y:integer;

begin

for k:=0 to 3 do

y:=3*sqr(x)-exp(x);

writeln('x=',x:5:2,'y=',y:12:3);

end.

E) дұрыс жауап жоқ

*****

1-ден 10-ға дейнгі бүтін сандардың қосындысын есептейтін дұрыс программаны көрсетіңіз

A) Program a;

var i, s: integer;

begin

s:= 0;

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

end.

B) program b;

var k,s: integer

begin

while k<=10 do

begin

k = k+1;

s = s+k end;

C) Program C;

var k,s:integer;

repeat s=s+k; k=k+1

while k<=10;

end.

D) program d;

var k,s:real

for k:=1 to 10

s = s+k;

end.

E) дұрыс жауап жоқ

*****

while операторының дұрыс жазылуын көрсет

A) while i=1 to 20 do read (u);

B) while k:=1 to 20 do read ln(u);

C) while k<10 do begin s:=s+k; k:=k+0.5 end;

D) while eof(f) do read (f2,u);

E) while k=1 to 20 do read ln(u);

*****

Паскаль тіліндегі GOTO операторының қызметі: