A b c d

D) SIN(X)

E) SIN(X/3.1415)

• Паскальда мына операторлар тізбегі кө мегімен қ андай eceпті шығ аруғ а болады?

М: =А[1];

FOR K: =2 TO N DO

IF A[K]> =M THEN M: =A[K]; А массивтің ең ү лкен элементін табады

• ө рнектің мә нін есепте

(X*Y< > 0) AND (Y> X), erep X: =2, Y: =1 FALSE

• C: =20/4 орындалғ аннан кейін С-айнымалысының типі қ андай болады? REAL
• Паскальда мына ө рнекті есептеу ү шін қ анша операция орындалады

(X+l/2)*(Y+7/10)-3/4? 7

Паскальда WRITELN(A: 3, 2: 1) операторы орындалғ анда, нә тижесінде не шығ ады? А2

• 10* 10-5/2 -ө рнегінің мә ні не? 97, 5
• Erep X-REAL типі айнымалы, Y-INTEGER меншіктеу операторларының қ айсысы дұ рыс емес? Y: =X+Y;
• Erep X, Y айнымалылары INTEGER типті болса, онда қ андай ө рнек BOOLEAN тииті нә тиже береді? X=Y
• Паскальда 9 mod 4 ө рнегінің нә тижесі қ андай? 1
• Паскальда 9 div 4 ө рнегінің нә тижесі қ андай? 2

• ө рнегінің паскаль тіліндегі тү рі d: =sqrt(sqr(xl-x2)+sqr(yl-y2))
• Егер мынадай хабарландыру

TYPE Х=(мектеп, лицей, университет, академия);

VARY: 1..32; Z: X;

берілсе, онда РRED(мектеп) функциясының мә ні не? 'академия'

ODD(10) функциясынын шешімі қ андай болады? FALSE

• Егер X-REAL типті айнымалы, Y-INTEGER меншіктеу операторларының қ айсысы дұ рыс? X: =X/Y;

• READ(a, b); READLN(c); READ(d) опрераторлары берілсін. Егер пернеуіштен

-5 6

7 1

cандарды енгізсек, онда a, b, c, d айнымалылары қ андай мә нге ие болады? а=5, b=-5, c=6, d=7

• а=1, b=-l, c=8, d=10, болсынОнда WRITELN(a, b); WRITE(c); WRITE(d) операторлары орындалғ анда экранғ а не шығ ады? 1 -1

8 10

• m: =5, n: =2 болсын. Онда

IF (n> 0) AND ((M div N)> 0) THEN m: =m- n ELSE m: =m+n

операторы орындалғ анда m айнымалысы неге тең? 3

• m: =5, n: =2, R-INTEGER типті

R: =m*n

CASE R OF

1..10: m: =m+n;

11..19: m: =m-n;

20...30: m: =m mod 2;

END;

Операторы орындалғ анда m айнымалысы неге тең? 7

• Циклдік операторына мына оператор жатады. WHILE
• VAR A: ARRAY['a'..'d'] OF INTEGER деп аныкталғ ан массивтің А элементі қ андай бола алады? Бү тін саны
• VAR A: ARRAY['a'..'d'] OF REAL деп берілгенА массивтің элементі қ анша бола алады? 4
• А(3, 4) деген екі ө лшемді бү тін санды массив қ ай жауапта дұ рыс берілген? VAR A: ARRAY[1..3, 1..4] OF INTEGER;

• Қ андай операторда шарт орындалғ ан кезде циклден шығ амыз? REPEAT
• Қ андай операторда шарт орындалмағ ан кезде циклдан шығ амыз? WHILE
• Erep циклдің денесі операторлардан кұ ралса, онда қ андай циклдік операторда операторлық жақ шалар (BEGIN жә не END) қ оймауғ а болады? REPEAT
• VAR A: STRING; X: INTEGER

BEGIN A: ='ә pіп'; X: =LENGTH(А)

END

берілсін, онда Х айнымалысы нешеге тең? 4

· Бағ дарламадан ү зінді берілді.

s: ='Сила есть-'

Р: ='ума не надо! '

q: =concat(S, P);

R: =pos(P, q)

R неге тең? 11

· Бағ дарлама берілген

PROGRAM FIK VAR X: INTEGER;

Y, Z: REAL

BEGIN

X: =2*X; Y: =X+Z WRITE (Y);

END

Бағ дарламада қ анша қ ате бар? 4

· Егер санап айтылғ ан типтер болмаса, онда ORD(А) функциясындағ ы А-бұ л не? Кез-келген символ

· CHR(А) функциясыньң жазылуындағ ы А қ андай типтi болады INTEGER

· ROUND(2.56) функциясының нә тижесі қ андай? 3

· TRUNC(2.56) функцияның нә тижесі қ андай? 2

· TRUNC типті айнымалымен жұ мыс істегенде қ атардын ұ зындығ ы қ андай функцияның немесе процедураның кө мегімен анық талады? LENGTH

· STRING типті бipнеше айнымалыны қ андай функцияның немесе процедураның кө мегімен бipiктipyre болады? CONCAT

· STRING типті айнымалымен жұ мыс істегенде ішіндегі қ атарды қ андай функцияның немесе процедураның кө мегімен бө ліп шығ аруғ а болады? COPY

· Ішкі қ атар бipiншi рет қ атарда кездескенде қ андай функцияның немесе процедураның кө мегімен позициясы анық талады. POS

· SUCC(2+3) функцияның нетижесі қ андай? 6

· PRED('C') функцияның нә тижесі қ андай? ‘B’

· 5 MOD 3+1 ө рнегінің нә тижесі қ андай болады? 3

· 2.4/2-24 div 20 ө рнегінің нә тижесі қ андай болады? 0.2

· 2*6/2/3 ө рнегінің нә тижесі қ андай болады? 2

· Қ ай функцияның нә тижесі TRUE болады? not ODD (8)

· Шартты оператор қ айсысы? IF

· UNTIL сө зі қ андай оператормен бipгe қ олданылады? REPEAT

• STRING типі бұ л катардың
• Мынадай хабарландыру бар VAR A: ARRAY [‘a’.‘z’] OF INTEGER;

бұ л массивтың элементтepi қ андай? бү тін сандар

• Тө менде берілген операциялардың қ айсысы бip операндпен жұ мыс істейді? not
• Келтірілген операторлардың қ айсысы операторлық жакшалар деп атайды begin...end
• Қ айсысын шартты оператор деп атайды? if..then
• Қ айсысын таң дау операторы деп атайды? case..of
• Қ айсысын аттап ө ту операторы деп атайды? goto
• Қ айсысын қ айталау (циклдік) оператор деп атайды? дұ рыс жауабы жоқ
• Қ айсысы параметрі бар қ айталау операторы деп атайды? for...to...do
• Тө менде берілген операторлардың қ айсысы шартты алдын ала тексеретін қ айталау операторы деп атайды. while...do
• Тө менде берілген шартты соң ында тексеретін қ айталау операторы деп атайды. repeat...until
• Keлеci бағ дарламаның ү зіндісінің

const n=7;

var I, S: integer;

begin S: =0;

for 1: =1 to n do S: =S+1

writeln(S);

end.

Нә тижесі қ андай? 7

• PRED (7div3), ө рнегінің мә ні неге тең? 1
• SUCC (7mod3), ө рнегінің мә ні неге тең? 2
• ORD (9/3), ө рнегінің мә ні неге тең? қ ате

• NOT TRUE (7AND(2> --1)) ө рнегінің мә ні неге тең False

• Бағ дарламаның ү зіндісінен берілген

VAR str: STRING;

BEGIN

Str: ='Computer';

WRITELN (CONCAT(str, '-'), LENGTH(str)) END

Нә тижесі не болады Computer-8

• Бағ дарламаның ү зіндісінен берілген

VAR str: STRING;

BEGIN

Str: ='This computer'; INSERT ('is', str, 6);

WRITELN (str);

END

Нә тижесі не болады This iscomputer

• Бағ дарламаның ү зіндісінен берілген

VAR str: STRING;

BEGIN

Str: ='This is my coputer';

WRITELN (POS('my\ str))

END

Нә тижесі не болады 9

• Абсолюттік мә н қ андай функция арқ ылы табылады abs (x)
• Мә ннің шаршы қ андай функция арқ ылы табылады sqr (x)
• Мә нінің шаршы тү бірі қ андай функция арқ ылы табылады sqrt (x)
• ROUND (3.5)*TRUNC (3.5) ө рнегінің мә ні неге тең? 12
• ODD (4) ө рнегінің мә ні неге тең? false
• Sqr (Round (3.6)*Succ (1)) ө рнегінің мә ні неге тең? 64
• (3 div 2)*(3 mod 2) ө рнегінің мә ні неге тең? 1
• ODD ((3 div 2)*(3 mod 2)) ө рнегінің мә ні неге тең? true
• Массив элементінің индексі қ андай жақ шағ а алынады []
• a, b, c, n: INTEGER; d, e: REAL;

берілген a*d ө pнегінің типі қ андай real;

• a, b, c, n: INTEGER; d, e: REAL;

берілген (b/с)*100 ө рнегінің типі қ андай? Real;

• a, b, c, n: INTEGER; d, e: REAL; берілген а-2 ө рнегінің типі қ андай Integer;
• Егер a, b, c, n: INTEGER; d, e: REAL;

екені белгілі болса, онда a+b+c/n ө рнегінің нә тижесі қ андай болады? Real;

· Айнымалылардың келтірілген аттарының арасында Паскаль тіліне сә йкес келмейтіндер бар. Дұ рыс жауапты таң даң ыз.

1) _55

2) _fiVe

3) SIX

4) maMa

5) 3step 5 айнымалылардың аттары дұ рыс емес

·. Программаның белгіленген жолында қ ате болуы мү мкін. Дұ рыс жауапты таң даң ыз.

Programm ggg;

Begin

a b sum: integer;

a: =1;

b: =2;

sum: =a+b;

writeln(‘summa ravna’ sum);

end. Программа аты дұ рыс жазылмағ ан, program ggg; деп жазу керек

· Егер келесі командаларғ а жауап ретінде

Read(x, y, z, m);

readln(n, p); readln(q);

экранғ а мынаны терсек

1 3 5 7 9 11 13 15

3 5 7 9

3 5 7 9

Онда командалар орындалу нә тижесінде айнымалылар қ ай мә ндерге ие болады: x=1 y=3 z=5 m=7 n=9 p=11 q=3

·. Программа орындалғ аннан кейін I айнымалысы қ ай мә нге ие болады?

Program pp;

Var I: integer;

Begin I: =1;

If ((I> 0) or (I=2)) and (I< > 1) then I: =3 else I: =4;

Writeln(‘I=’, I);

End. 4

· Программа орындалғ ан кезде Привет сө зі неше рет қ айталанып келеді?

Program primer;

Const n=10;

Var I: integer;

Begin

I: =0;

While I< N do

Writeln(‘Привет’);

I: =I+1

End. шексіз ретті сан

· Программаның белгіленген жолында қ ате болуы мү мкін. Дұ рыс жауапты таң даң ыз.

Programm ggg;

Begin

a b sum: integer;

a: =1;

b: =2;

sum: =a+b;

writeln(‘summa ravna’ sum);

end. Жол дұ рыс жазылмағ ан. Программа денесі begin сө зінен басталуы керек, жә не бұ л сө з айнымалылар сипатталу бө лімінен кейін тұ ру керек

· Егер келесі командаларғ а жауап ретінде

Read(x, y);

readln(z); readln(q);

экранғ а мынаны терсек

-5 6

7 1

онда командалар орындалу нә тижесінде айнымалылар қ ай мә ндерге ие болады: x=5 y=-5 z=6 q=7

· Программа орындалғ ан кезде Привет сө зі неше рет қ айталанып келеді?

Program primer;

Const n=10;

Var I: integer;

Begin

I: =0;

While I< N do

begin

Writeln(‘Привет’);

I: =I+1

end

End. 10 рет

· Программа орындалғ аннан кейін I айнымалысы қ ай мә нге ие болады?

Program pp;

Var I: integer;

Begin I: =3;

If I-3> 0 then If i=3 then I: =1 else I: =2;

Writeln(‘I=’, I);

End. 3

· Программа орындалғ ан кезде Привет сө зі неше рет қ айталанып келеді?

Program primer;

Const n=10;

Var I: word;

Begin

I: =0;

While I< N do

Begin

Writeln(‘Привет’);

I: =I-1

end

End. 1 рет

END;

• Жазба тектi деректердегi мә лiметтер тектерi ә ртү рлi болуы мү мкiн бе?

A) жоқ

B) тек бiр тектi

C) Иә

D) нақ ты тектi бола алмайды

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

• Тө менде келтiрiлген программа бө лiгi келесi тұ жырымдаманы дұ рыс суреттей ме?

Нақ ты X жә не Y айнымалыларының кiшiсiн нө лмен, ө зара тең болса екеуiн де нө лмен алмастырып қ орытындылау керек.

If x < y then x: = 0

else if x > y then y: =0

else begin x: =0; y: = 0 end; дұ рыс емес (jj)

• Тө менде келтiрiлген шартты операторлардың қ айсысы дұ рыс емес?

1. if a < b then a: = a*a else b: =b * b;

2. if x and y then s: =s+1; else s: = s - 1;

3. if k < > m then k: = m;

4. if 5 then s: = s+5;

5. if (a = b) and p then p: = p+10.5; барлығ ы дұ рыс емес |(jj)

• ө рнектiң нә тижесi неге тең? CHR (ORD(‘2’)) ‘2’
• Нә тиже неге тең?

ORD (CHR (50)) 50

• Логикалық коньюнция оператор амалын анық таң ыз: and
• Тө менде келтiрiлген меншiктеу операторларының қ айсысы келесi шартты қ анағ аттандырады?

var x, y: integer x: =3; y: =4

• Тө менде келтiрiлген операторларының орындалу барысында қ андай нә тиже қ орытындыланады?

...k: = 53; case k mod 5 of

0: writeln (‘ k= 5m’);

1: writeln (‘k=5m+1’);

2: writeln (’k=5m+2);

3: writeln(‘k=5m+3’); end; k=5m+3

• Тө менде келтiрiлген сипаттаулардың қ айсысы дұ рыс?

1. const a=2..30; b: =’b’; pi=3, 14159;

2. type otrezok = (1..30);

3. type gorod = (moskwa; tomsk; omsk; baky);

4. type bukwy = (‘a’, ’b’, ’c’, ’d’);

5. type zifra=(0, 1, 2, 3, 4, 5, 6, 7, 8, 9); 1 жә не 2 (jj)

• Тө менде келтiрiлген қ айталау операторының орындалу барысында қ андай нә тиже қ орытындыланады?

… var k: integer;

begin

k: =0; while k< =8 do

begin k: =k+2;

write (k: 2);

end; end. 2 4 6 8 10

• x=0.1, y= - 0.2 болғ андағ ы нә тиже неге тең?

…var x, y, mm: real;

if x > y then mm: =y else mm: = x;

writeln (mm); end. –0.2

• Нә тиже неге тең?

…var n: integer;

begin n: =1000; writeln (n div 10); end. 100

• Нә тиже неге тең?

…var s: string; mI, k, k1: integer;

begin k1: =0; k: =0; s: = ‘bcbccckk’;

for mI: =1 to 8 do begin

if s[mI]=’c’ then k: =k+1;

if s[mI] =’b’ then k1: =k1+1; end;

writeln (k, ’ ‘, k1); end. 4 2

• неге тең?

…var x, y, z: real;

begin x: =2; y: = 4; z: =-0.1;

if (x> =y) and (y> =z) then x: = 2*x else y: = abs(y);

writeln ('x=', x, 'y=', y, 'z=', z); end. x=2, y=4, z=-0.1

• Нә тиже неге тең?

… var n: integer;

begin n: = 1000; writeln (n mod 23); end; 11

• Тө менде келтiрiлген операторлардың орындалу нә тижесi неге тең?

… for k: =5 to 8 do

begin pm: =k*k; writeln ('pm=', pm); end; … pm=25

pm=36

pm=49

pm=64

• Тө менде келтiрiлген екi ө лшемдi массивтердiң қ айсысы дұ рыс сипатталмағ ан?

1. var b: array [1..10, 1..15] of integer;

2. var a: array [11..10], [1..8] of real;

3. type maska = (www, lll, mmm); var a: array [maska] of array[1...5] of char; 2 жә не 3

• Массив A: array [-5..5] of char; болып сипатталғ ан. Тө менде келтiрiлген массив элементтерiн енгiзу-қ орытындылау операторы дұ рыс па?

Var i: integer;

begin

for I: = - 5 to 5 do

begin

readln (a[i]); writeln(a[I]); end; end. жоқ

• Тө менде келтiрiлген екi ө лшемдi массивтердi сипаттаудың қ айсысы дұ рыс?

1. var x: array [1..4, 1..3] of real;

2. type mss = array [‘b’..’f’, -10..8] of integer; var b: mss;

3. type mk = array [1..10] of char; 1 жә не 2

• Тө менде келтiрiлген қ айталау операторының орындалу барысында қ андай нә тиже қ орытындыланады?

For c: =’Z’ downto ‘A’ do write (c); ZYXWVUTSRQPONMLKJIHGFEDCBA

• Тө менде келтiрiлген айнымалылардың ә ртұ рлi мә ндерi ү шiн қ орытындылау операторының орындалу барысында қ андай нә тиже шығ ады?

…var CH: char; writeln(CH);

1. CH: = ‘A’; 2. CH: = #65; 1)’A’ 2) 65

• Келесi тек ненi сипаттайды?

type sss = array [‘A’..’C’] of array [1..4] of boolean; логикалық шамалар жолын

• Қ айталау операторын кө рсетiнiз. Repeat until
• Таң балардың келесi сипатталуының қ айсысы дҰ рыс? label: 4, 8, 12;

• Тұ рақ тылар қ алай сипатталады? барлық айнымалылар сипатталғ анғ а дейiн;
• Процедурадағ ы формальды параметрлер қ алай аталады? процедура операторлар мә нiнiң сипаттау бө лiмiнде;

· ө рнектiң мә нiн есептеу керек.

SUCC (ROUND (5/2)-PRED(3)) 2

· Паскаль тiлiнде сқ йкес меншiктеу операторын жазу керек

· Y=X⁵+COS(X²+1) y: =sqr(sqr(x))*x+cos(sqr(x)+1);

· Келесi цикл операторының денесi қ анша рет орындалады.

k: =0;

for i: =1 to k + 3 do

k: =k+1; 3

• A [5, 5] массив нақ ты элементтерден тұ рады. Осы массивтi баспағ а шығ ару керек (ә рбiр жолда 5 элементтен) For i: =1 to 5 do

For j: =1 to 5 do

Writeln (A[ i, j]: 6: 2);

• Келтiрiлген программа қ андай нә тиженi баспағ а шығ арады.

PROGRAM PR1;

VAR B, C, D: REAL;

BEGIN

READ (B, C);

D: =SQRT(SQR(B)- 4*C);

WRITELN('X1=', (- B+D)/2, ' X2= ', (- B- D)/2);

END. Егер бастапқ ы мә ндер ретiнде келесi мә ндер берiлген болса 1.0 жә не –2.0? X1=1 X2=-2

• Келтiрiлген программа баспағ а қ андай сандарды шығ арады?

Program swp;

VAR c, d: real;

Procedure sw1(var x, y: real);

Var z: real;

begin

z: =x; x: =y; y: =z;

end;

begin

Read (c, d);

sw1(c, d);

Write('c=', c, 'd=', d);

end.

Егер бастапкы мә ндер ретiнде келесi мә ндер берiлген болса 3.5 1.6 C=1.6 D=3.5

• Келесi Паскаль тұ рiндегi операторлардың қ айсысы дұ рыс.

Барлық операторлар жекеше қ арастырылғ ан.

1. IF (x=y) and (z=5) THEN 1;

2. GOTO abc;

3. IF x> y THEN GOTO 3;

4. IF a=b THEN WRITE ‘дұ рыс’; ELSE ‘дұ рыс емес’;

5. FOR I: =10 TO 1 DO;

6. WHILE A> B DO S: =S+1;

А) 2, 3, 6

B) 1, 2, 5, 6

C) 2, 3, 5

D) 1, 2

E) 2, 4, 6

• Келесi программалар ү зiндiсi ұ шiн айнымалылардың мә нiн анық тау керек:

a=6, b=5, c=2

IF (a< c) OR (b< c) THEN a: =ABS(b-c) ELSE IF a< b THEN

a: =(b-a) *3 ELSE b: =(a+b) *3;

WRITE(a, b); 10 5 (jj)

• Тө мендегi программа орындалғ аннан кейiн баспағ а не шығ ады?

A: =1; S1: =0; S2: =0;

FOR I: =1 TO 3 DO

BEGIN

S1: =S1-A*I;

S2: =S2+A*I*I;

A: =-A;

END;

WRITE(S1, S2, A); -2, 6, - 1 (jj)

• Келесi кө рсетiлген программаның нә тижесiн анық тау керек?

f0: =0; f1: =1;

WRITE(f0, f1);

FOR I: =1 TO 4 DO

BEGIN

f: =f0+f1;

WRITE (f);

f0: =f1; f1: =f

END; 0, 1, 1, 2, 3, 5

• А (-3, 2, 5, -1, 0, 3) бiр ө лшемдi массивi берiлген. Программа орындалуының дұ рыс нә тижесiн табу керек?

BEGIN

FOR I: =1 TO 6 DO

BEGIN

READ(A[I]);

IF (I mod 2=0) AND (A[I]> 0) THEN A[I]=SQR(A[I]);

END;

FOR I: =1 TO 6 DO

WRITE A[I];

END. -3, 4, 5, -1, 0, 9

114. Егер де массивтiң элементтерi келесiдей болса, А (3, 14, -3, 6, -9, 5, 12) онда келтiрiлген программа қ андай нә тиженi бередi.

FOR I: =1 TO 7 DO

IF (A[I] mod 3=0) AND (A[I]> 0) THEN WRITELN(A[I] * 2); 6, 12, 24

• Келесi программа орындалғ аннан кейiн баспағ а не шығ ады?

FOR I: =1 TO 3 DO

BEGIN

FOR J: =1 TO 3 DO

WRITE (I*J);

WRITELN;

END; 1 2 3

2 4 6

3 6 9

• Бү тiн санды бү тiн санғ а бө лгендегi бү тiн бө лiгiн табу амалын кө рсет: DIV
• . FOR цикл нұ сқ ауындағ ы қ адам параметрi қ ай типке жатады? INTEGER

Cанды санғ а бө лгендегi қ алдық ты табу амалын кө рсет: MOD

· Нә тиже неге тең?

Var a, b, c: integer;

Begin

a: = 100 div 11;

b: = 100 div 10;

c: = 100 div 9;

writeln(‘a = ’, a, ‘b = ’, b, ‘c = ’, c);

End. a = 9 b = 10 c = 11

· Нә тиже неге тең?

Var a, b, c: integer;

Begin

a: = 120 div 1;

b: = 200 mod 150;

c: = 20 div 3 * 8;

writeln(‘a = ’, a, ‘b = ’, b, ‘c = ’, c);

End. a = 120 b = 50 c = 48

· Нә тиже неге тең?

Var a, b, c: integer;

Begin

a: = 200 mod 60;

b: = 200 mod 40;

c: = 200 mod 400;

writeln(‘a = ’, a, ‘b = ’, b, ‘c = ’, c);

End. a = 20 b = 0 c = 200

· Нә тиже неге тең?

Var a, b, c: integer;

Begin

a: = 90 div 8;

b: = 85 div 8;

c: = 80 div 8;

writeln(‘a = ’, a, ‘b = ’, b, ‘c = ’, c);

End. a = 11 b = 10 c = 10

·. Нә тиже неге тең?

Var a, b, c: integer;

Begin

a: = 5;

b: = a * 10 div 8;

c: = a * b mod 4;

writeln(‘a = ’, a, ‘b = ’, b, ‘c = ’, c);

End. a = 5 b = 6 c = 2

· Нә тиже неге тең?

Var a, b, c: integer;

Begin

a: = 2 + 20 mod 3;

b: = 2 + 19 mod 3;

c: = 2 + 18 mod 3;

writeln(‘a = ’, a, ‘b = ’, b, ‘c = ’, c);

End. a = 4 b = 3 c = 2

i = 21, j = 11, k =5 болғ андағ ы келесi программаның дұ рыс шешiмiн таң да

var i, j, k, x: integer;

begin

if j> k then x: =2;

if i< k then x: =3;

writeln(x);

end. 2

· i = 7 j = 19 k =0 болғ андағ ы келесi программаның дұ рыс шешiмiн таң да

var i, j, k, x: integer;

begin

if j> k then x: =20;

if i< k then x: =10;

writeln(x);

end. 20

· i = 2 j = 8 k =9 болғ андағ ы келесi программаның дұ рыс шешiмiн таң да

var i, j, k, x: integer;

begin

if j> k then x: =2;

if i< k then x: =3;

writeln(x);

end. 3

· Келесi программаның дұ рыс шешiмiн таң да

var i, j: integer;

begin

i: = 4; j: = 9;

repeat

i: = i + j;

j: = j –1;

until i> = j;

writeln(i, ‘ ‘, j);

end. 13 8

· Келесi программаның дұ рыс шешiмiн таң да

var i, j: integer;

begin

i: = 2; j: = 20;

repeat

i: = i + j - 1;

j: = j –1;

until i> = j;

writeln(i, ‘ ‘, j);

end. 21 19

· Жолдық ө рнекте символды жою функциясын кө рсет: DELETE

· Келесi операторларды орындау кезiнде дұ рыс қ орытындысын таң даң ыз:

S: =0; i: =1;

REPEAT

S: =s+1/(2*I+1);

Dec(i);

UNTIL i< 1; 1.0;

• х айнымалысын 5-ке ұ лғ айтатын стандартты процедураны кө рсет INC (X, 5)
• х айнымалысын 3-ке азайтатын стандартты процедураны кқ рсет DEC (X, 3)
• Циклдан шығ удың стандартты процедурасын кө рсетiң iз break
• Қ олдану нә тижесiнде Boolean тип болатын стандартты функцияны кө рсетiң iз odd
• Символдарды коды бойынша анық тайтын стандартты функцияны кқ рсетiң iз ORD
• Элемент массивi сандық болып табылатын болса программа фрагментiн орындау кезiнде қ орытындысында не басылады

(-5, -4, 8, -16, 2, -12, 7)

FOR I: =1 TO 7 DO

IF (A[I] mod 4=0) AND (A[I]< O) THEN

WRITE (A[I]*4, ’, ’); –16, -64, -48

• Программа фрагментiн орындаудың қ орытындысын кө рсетiң iз:

X0: =0; x1: =1;

WRITE (X0, ’, ’, X1);

FOR I: =1 TO 5 DO

BEGIN

X: =X0+X1;

WRITE (X, ’, ’);

X0: =X1; X1: =X;

END; 0, 1, 1, 2, 3, 5, 8

• Программа фрагментiн орындаудың қ орытындысын кө рсетiң iз:

S: =0; f1: =1;

FOR I: =1 TO 3 DO

F1: =f1*I;

FOR I: =1 TO 3 DO

BEGIN

F2: =1;

FOR k: =1 TO I DO

F2: =f2*k;

S: =s+(f2+3);

END;

S: =s/f1;

WRITE (S); 3

• Программа фрагментiн орындағ андау кезiнде қ орытындысында баспағ а не басылады

FOR I: =1 TO 4 DO

FOR J: =1 TO 2 DO

WRITE (I*sqr (J), ’, ’); 1, 4, 2, 8, 3, 12, 4, 16

Ү шiншi сиволдан бастап ST жолына ST1 жолын қ оюдың стандартты процедурасынын қ олданып дұ рыс вариантын таң даң ыз: INSERT (ST1, ST, 3)

• Символдар жолын санғ а тү рлендiрудiң стандартты процедурасын кқ рсетiң iз VAL
• Мына ө рнек a+bx+cyz Паскаль тiлiнде келесi тү рде кө рсетiледi: a+b*x+c*y*z;
• cos²x³ ө рнегiнiң дұ рыс жазылғ ан вариантын таң даң ыз? sqr(cos(x*sqr(x)));
• EOF(F) логикалық функциясы ақ иқ ат мқ нiн қ абылдайды, егер F файлының соң ы болғ анда;
• Нә тижесi екiншi жиынғ а жатпайтын бiрiншi жиын элементiнiң жиыны болатын жиындарғ а арналғ ан операцияны кө рсетiң iз? айырымы

• ө рнектi есептеу кезiндегi жауаптардың дұ рыс вариантын таң даң ыз?

[3…16] * [14, 15...25] + [5…19]*[7..9] [7…9, 14…16]

· ө рнектi есептеу кезiндеi жауаптардың дұ рыс вариантын таң дамыз?

[5..9, 17..20]*[8..18]-[8, 9] [17, 18]

· ө рнектi есептегендегi дұ рыс вариантын кө рсетiң iз?

[4..10]-[5..14]*[9..19]+[3..9] [3..9]

· Программа фрагментінің орындалу нә тижесін таң да.

for c: =’a’ to ‘d’ do

begin

for s: =’a’ to ‘c’ do

write (s);

writeln(‘ ‘);

end; a

A b

A b c

a b c d

· Программа фрагментінің орындалу нә тижесін таң да.

S: = ‘abc*12**d’; St: =’’; i: =1;

while (S[i] < > ‘*’ do

begin

St: =St + S[i]+ S[i];

Inc(i);

End;

Writeln(St); aabbcc

· Келесі есепті шешу ү шін программаның дұ рыс фрагментін таң да:

Бү тін сандардан тұ ратын f файлы берілген, 3-ке бө лінетін жә не 7-ге бө лінбейтін сандарды g файлғ а жазу керек