IF A[I]>A[I+1] THEN Begin PR:=0; break; END;

IF A[I]> A[I+1] THEN Begin PR: =0; break; END;

if a[j]. god> a[i]. god then begin p: =a[i]; a[i]: =a[j]; a[j]: =p; end; for i: =1 to n do with a[i] do begin writeln(fio); writeln(grup); writeln(den); writeln(mes); end;

if DAY=1 THEN WRITELN(‘Дѕйсенбi’) ELSE IF DAY=2 THEN WRITELN(‘сейсенбi’) ELSE. . IF DAY=7 THEN WRITELN(‘жексенбi’); Жазбасын таѕдау операторын қ олданып жазың ыз. CASE DAY OF 1: WRITELN(‘дѕйсенбi’); 2: …….. . . . 7: WRITELN(‘жексенбi’); END;

INITGRAPH функциясы адаптер жұ мысының графикалық режимін инициализациялайды

N бү тін сандардан тұ ратын тізімді қ ұ растыратын программа фрагментін таѕда. Типтелген кө рсеткіш келесідей хабарланады: Type Tp = ^ posl; Posl=record A: integer; Next: tp; End; Var p, g: tp; i: integer; p: =nil; for i: =1 to n do begin new(g); read(g^. a); g ^. next=p; p: =g; end;

n натурал сан берілген. а1, a2, …a n бү тін сандар. Осы сандардың арасында беттесетін сандар бар екенін аныќтау керек? Программаныѕ дўрыс фрагментін таѕда. label M; Type t=array [1.. n] of integer; Var a: ^ t; i, j: integer; begin new(a); for i: = 1 to n do read(a^[i]); for i: = 1 to n-1 do for j: = i+1 to n do if (a^[j] = a^[i]) then begin writeln(‘ўќсас сандар бар’); goto M; end; writeln(‘ўќсас сандар жоќ’); M: End.

N: =TRUNC ( SQRT(1. 0/EPS)+0. 5) -јрнегi EPS: =0. 01 бол№ан жа№дайда N=10;

N=12579 саны ѕшiн Нјтижелер орындал№аннан кейiн баспа№а єандай программа шы№ады? p: =0; k: =1; WHILE N> 0 DO BEGIN A: =N MOD 10; if (A=1) OR ( A=5) THEN N: = N DIV 10 ELSE BEGIN P: =P+A*K; K: =K*10; N: =N DIV 10 END; END; WRITE(P); 279

p^ типтелмеген кө рсеткішке бейненің кө шірмесі сақ талынғ ан. Программаныѕ келесі фрагменті нені орындайды? x: =10; y: =200; while x< 600 do begin putImage (x, y, p^, xorput); delay(100); putImage (x, y, p^, xorput); inc(x, 5); end; Суретті экранныѕ сол жаєынан оѕ жаєына ќарай жїргізеді.

Repeat.. Until нЅсєауыныѕ жалпы жазылу тѕрi дЅрыс па? Repeat < НЅсєау1> < нЅсєау2>................ Until < јрнек>; Иа

ROUND (X) стандартты функциясында Х қ алай сипатталуы керек? real;

SUCC () функциясы - келесi мә нiн;

TRUNC (X) стандартты функциясында Х қ алай сипатталуы керек? real;

TRUNC (X) стандартты функциясының Нә тижесi ненi қ айтарады? Х мә нiнiң бү тiн бө лiгiн;

While < шарт> DO < цикл денесi >; Цикл нұ сқ ауында < цикл денесi> орындалу ѕшiн < шарт> ө рнегiнiң мә нi неге тең болуы қ ажет? True;

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

Xⁿ мёнiн есептейтiн степ (x, n) функциясын баяндау керек (х- најты типтi; n – натурал типтi) сонан кейiн осы функцияны келесi b = 2. 7^k+ (A+ 1)^-k есептеу ѕшiн пайдалану єажет PROGRAM ВЫЧСТЕП; TYPE НАТУР = 1 … MAXINT; VAR A, B: REAL; K: НАТУР; FUNCTION СТЕП ( X: REAL; N: НАТУР): REAL; VAR I: INTEGER; Y: REAL; BEGINY: = 0; FOR I: = 2 TO N DOY: = Y * X; СТЕП: =YEND; BEGINREAD ( K, A); B: = СТЕП( 2. 7, K) + 1/ СТЕП( A+ 1, K); WRITELN(‘B = ‘, B: 7: 3 ) END.

А (-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

А жёне В тЅжырымдамаларыныѕ дЅрысты№ын келесi логикалыј амал арєылы аныјтайтын тЅжырымдама: A and B

А: =10; В: =2; С: =100; Writeln (А, В: 2, С: 4); бол№анда тјмендегi Нјтижелердiѕ єайсысы дЅрыс? 10 2 100;

а₁,..., а_nтізбегінің ө спелі екенін тексерудіѕ дўрыс вариантын таѕдаѕыз (егер тізбек ґспелі болса, PR-ге 1-ді меншіктеу керек, кері жаєдайда PR-ге 0-ді меншіктеу керек). PR: =1; FOR I: =1 TO N-1 DO

Адамның бойымен фамилиясы берілген. Бос орын арќылы бґлектенген. Еѕ їлкен адамныѕ бойын баспағ а шығ ару керек. Программаныѕ дўрыс фрагмент таѕда. var S, C1, C2, C3: string; i, k, p, max, cod: integer; Max: =0; For i: =1 to n do Begin P: =pos(‘ ‘, s[i]); C1: = copy( s[i], 1, p-1); C2: = copy( s[i], p+1, length(s[i]-i); Val (C2, k, cod); If k> max then begin max: =k; C3: = C1; end; End; Writeln(C3, max);

Айнымалылар келесідей хабарланады: p1, p2: integer; p3: real; Осы операторлар ќанша байтты їймеге ќайтарады? Dispose (p1); Dispose (p2); Dispose (p3); 10

Айнымалылар келесідей хабарланады: p1, p2: integer; p3: real; Программа фрагментті орындалєаннан кейін heapptr кґрсеткіші неше байтќа ыєысады? Begin new (p1); new (p2); new (p3); end; 10

Айнымалыларды сипаттау бґлігі ќандай тїйінді сґзден басталады? VAR

Ақ параттардыѕ негiзгi јлшем бiрлiгi ретiнде не алынады? 1 байт

АЛГОРИТМ

Бiр ө лшемдi массивтiѕ мёндерi кестеде келтiрiлген олардыѕ Нјтижесiн аныјтау керек. FOR I: =1 TO 10 DO BEGIN A: =A[I]; A[I]: =A[11-I]; A[11-I]: =A; END; I=1, 2, 3, 4, 5, 6, 7, 8, 9, 10 A[I]=11, 12, 13, 14, 15, 16, 17, 18, 19, 20

Басы, соң ы қ андай символдыѕ кґмегімен белгіленеді? эллипс

Берiлген а санына келесi таблицаны баспа№а шы№ару керек aa³a⁶a⁶a³a-PROGRAM PRTAB; VAR a, a3, a6: INTEGER; BEGIN READ ( a); a 3: = a * a * a; a6= sqr ( a 3); WRITELN (a ); WRITELN (a3, a6); WRITELN (a6, a3, a) END

Бесiншi символдан бастап S1 жолын S жолына јоюдыѕ стандартты процедурасынын јолданып дұ рыс вариантын таѕдаѕыз: INSERT (S1, S, 5)

Бү тiн санды бѕтiн сан№а бјлгендегi бѕтiн бјлiгiн табу амалын кјрсет: DIV

Динамикалыќ айнымалыєа жадыны бґліп беретін процедураны таѕда: new

Динамикалыќ жадыны ќайтаратын процедураны таѕда: Dispose

Егер n айдың нө мірі мен кібісе жылы (високосный год) ү шін берілген a саны 1-ге теѕ болса жјне кері жаєдайда 0-ге теѕ болса, айдаєы кїндер санын табу программасыныѕ дўрыс фрагментін таѕдаѕыз. Read (a, n); If a=1 then Case n of 1, 3, 5, 7, 8, 10, 12: y: =31; 4, 6, 9, 11: y: =30; 2: y: =29; else If a=0 then Case n of 1, 3, 5, 7, 8, 10, 12: y: =31; 4, 6, 9, 11: y: =30; 2: y: =28; End; Writeln(y);

Егер берiлген дёлдiк болса, онда келесi программа ненi есептейдi? program pr; var x, y, s, : real; k: integer; begin read(x, ); k: =1; s: =0; repeat y: =sqr(x)/(exp(3/2*ln(k))); s: =s+y; k: =k+1; until abs(y)< ; writeln(‘s= ‘, s); end.

Егер де массивт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

Егер массив элементтері келесі сандар (3, 14, -3, 6, -9, 5, 12) болса, программа фрагментініѕ орындалу нјтижесінде не басылады? 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ѕ элементтерi (4, 105, 11, 14, 5) белгiлi сандары болса, онда программа баспа№а қ андай сандарды шыарады? FOR I: =1 TO 4 DO BEGIN M: =A[I]; K: =I; FOR J: =I TO 5 DO BEGIN IF A[J]< M THEN M: =A[J]; K: =J END; P: =A[I]; A[I]: =A[K]; A[K]: =P END; FOR I: =1 TO 5 DO WRITE (A[I]); 4, 5, 11, 14, 105

Енгізу, шығ ару қ андай символдыѕ кґмегімен белгіленеді? параллелограмм

Ерекше белгілерді сипаттау бґлігі ќандай тїйінді сґзден басталады? LABEL

Есептi шы№ару ѕшiн for циклiнiѕ дЅрыс сипаттамасын таѕдаѕыз: s: =0; f: =1;

Жазба тектi деректердегi мёлiметтер тектерi ёртѕрлi болуы мѕмкiн бе? Иа

Жазбалармен жЅмыс iстеу операторын бастаудыѕ тѕйiндi сјзi: with

Жазбаны баяндау єай тѕйiндi сјзден басталады? record

Жалғ ан шарт бойынша єайталау операторыныѕ басы repeat

Жалғ ан шарт бойынша єайталау операторыныѕ соѕы; until

Жалєастыру ќандай символдыѕ кґмегімен белгіленеді? шеѕбер

Жиынғ а жаң а элементтердi қ осу ү шiн процедураны таң даң ыз? INCLUDE;

Жиынғ а жататынды№ын тексеру: in

Жиынғ а элементтi шығ ару ѕшiн процедураны таң даң ыз? EXCLUDE;

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

Иницализация генераторы ү шiн кездейсоқ сандардың стандартты функциясын таѕдаѕыз? RANDOMIZE

К айнымалысына келесi информацияны меншiктеу керек: конус биiктiгi –5. 7, оныѕ негiздегi дјѕгелектiѕ радиусы – 2. 3, центрi (0, 1. 5) нѕктеде орналасєан. К айнымалыныѕ баяндауы келтiрiледi: TYPE КОНУС= RECORDВЫСОТА: REAL; ОСНОВ: RECORDРАДИУС: REAL; X, Y: REAL END; END; VAR K: КОНУС; WITH K, ОСНОВ DO BEGIN ВЫСОТА: = 5. 7; РАДИУС: = 2. 3; X: = 0; Y: = 1. 5 END;

Келесi баяндаулардыѕ арасында дЅрыс вариантын кјрсету керек. const n=50; type матрица=array[1.. 50] of integer;

Келесi баяндаулардыѕ арасында дЅрыс вариаттын кјрсету керек. Const =30; Type БАЙТ=PACKED ARRAY [1.. 8] OF 0.. 1;

Келесi єай єайталау нЅсєауыныѕ жазылу форматын бередi? FOR < айнымалы>: =< бастапєы мёнi> TO{DOWNTO} < со”№ы мёнi> DO < нЅсєау> параметрлiк єайталау

Келесi єай нЅсєаудыѕ жазылу форматын бередi? < айнымалы>: = < јрнек> меншiктеу нЅсєауы

Келесi єай нЅсєаудыѕ толыј жазылу форматын бередi? CASE < селектор> OF< Const1> : < нЅсєау>; < Const2> : < нЅсєау>;............... [ELSE < нЅсєау>; ]End; {Case} тандау нысєауыны”

Келесi єай нЅсєаудыѕ толыј жазылу форматын бередi? GOTO < белгi>; кө шу нЅсєауыныѕ

Келесi єай нЅсєаудыѕ толыј жазылу форматын бередi? IF < логикалыј јрнек> THEN < нЅсєау> [ELSE < нЅсєау>; ] шартты нЅсєаудыѕ

Келесi єай нЅсєаудыѕ толыј жазылу форматын бередi? WHILE < логикалыј јрнек> DO < нЅсєау> алдын-ала шарт бойынша єайталау нЅсєауыныѕ

Келес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

Келесi конструкциялардыѕ єайсы жиын болып саналады (Паскаль тiлiнiѕ ережесi бойынша ['=', '> =', '> ']

Келесi конструкциялардыѕ єайсы жиын болып саналады (Паскаль тiлiнiѕ ережесi бойынша) [‘a’.. ’k’, ’z’]

Келесi оператор орындал№аннан кейiн D айнымалыныѕ мёнiн аныјтау керек. D: =0; I: =1; WHILE I< 25 DO I: =I+2; D: =D+1/(2*I+1); 1/51

Келесi операторлар орындал№аннан кейiн айнымалыныѕ мёнiн аныјтау керек. S: =0; I=0; While i< 5 do i: =i+1; S: =S+1/i; 0, 2

Келесi операторларды орындау кезiнде баспа№а не басыладыS: =0; I: =1; eps: =0. 5; REPEATK: =1/I; S: =s+k; Inc (i); UNTIL k< eps; Writeln (‘s=’, s: 6: 2); s=1. 50

Келесi операторларды орындау кезiнде дЅрыс јорытындысын таѕдаѕыз: S: =0; i: =1; REPEATS: =s+1/(2*I+1); Dec(i); UNTIL i< 1; 1/3;

Келес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 2, 3, 6

Келесi программа орындал№аннан кейiн баспа№а не шы№ады? PROGRAM PRINT2( INPUT, OUTPUT); TYPE STR2 = PACKED ARRAY [1.. 10] OF CHAR; VAR I: INTEGER; T2: STR2; PROCEDURE P2(VAR S2: STR2); BEGIN I: = 1; WHILE S2 [I] < ‘ 8’ DOBEGIN S2 [ I ]: =SUCC( S2[ I ]; I: = I+1 END; END; BEGIN I: = 1; T2: = ‘ 1230489756’; P2( T2); WRITELN (t2[ I ])

Келес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н баспа№а не шы№ады? Program PR; Type str1=packed array[1.. 6] of char; Var i: integer; t1: str1; Procedure pb(var 1: str1); Begin i: =1; While 1[i]< 'e' do Begin 1[i]: =succ(1[i]); i: =i+1 end End; Begin i: =1; t1: ='abcdef'; pb(t1); Writeln(t1`[1]); End. D

Келес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); 6, 33

Келес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

Келесi символдар тiзбегiнiѕ єайсысы идентификатор: B7A;

Келесi символдардың қ айсысы Паскаль тiлiнде СHAR болып аныјталады: '0';

Келесi тек ненi сипаттайды? type sss = array [‘A’.. ’C’] of array [1.. 4] of boolean; логикалыј шамалар матрицасын

Келесi цикл операторыныѕ денесi єанша рет орындалады. k: =0; for i: =1 to k + 3 do k: =k+1; 3

Келесi цикл операторыныѕ денесi єанша рет орындалады. N: =0; FOR I: =1 TO 3*N+4 DO N: =N+2; 4

Келесі есепті шешу ү шін программаныѕ дұ рыс фрагментін таѕда: Бү тін сандардан тўратын f файлы берілген, 3-ке бґлінетін жјне 7-ге бґлінбейтін сандарды g файлєа жазу керек reset(f); rewrite(g); while not eof (f) do begin read (f, n); if (n mod 3=0) and (n mod 7 < > 0) then write (g, n); end;

Келесі есепті шешу ү шін программаның дұ рыс фрагментін таң да: f символдыќ файлы берілген; файлдаєы барлыќ нїкте мен їтірлерді плюсќа ауыстырып жјне g файлына ауыстыру керек reset(f); rewrite(g); while not eof(f) do begin read(f, k); if (k=’. ’) or (k=’, ’) then write (g, ‘+’) else write (g, k); end;

Келесі есепті шешудіѕ дўрыс жауабын кґрсетіѕіз: радиусы 150-ге теѕ, центрініѕ координаталары (120, 100) болыатын шеѕбер сызыѕыз. Circle (120, 100, 150)

Келесі есепті шешудіѕ дўрыс жауабын кґрсетіѕіз: экран центрінде кґлденеѕ сызыќ сызатын программа ќўрыѕыз. line (0, Round(GetMaxY/2), GetMaxX, Round(GetMaxY/2))

Келесі есепті шешудің дұ рыс жауабын кґрсетіѕіз: экран центрінде тік сызыќ сызатын программа ќўрыѕыз. line (Round(GetMaxX/2), 0, Round(GetMaxX/2), GetMaxY)

Келесі есепті шыєарудыѕ дўрыс жауабын белгілеѕіз: сол жаќ жоєарєы бўрышыныѕ координаталары (10, 10), ал оѕ жаќ тґменгі бўрышыныѕ координаталары (150, 100) тік тґртбўрышты сызыѕыз. Rectangle (10, 10, 150, 100)

Келесі есепті шыєарудыѕ дўрыс жауабын белгілеѕіз: сол жаќ жоєарєы бўрышыныѕ координаталары (50, 40), ал оѕ жаќ тґменгі бўрышыныѕ координаталары (250, 120) болатын боялєан тік тґртбўрышты сызуғ а программа қ ұ рың ыз. Bar (50, 40, 250, 120)

Келесі операторлар орындалєаннан кейін S айнымалысыныѕ мјнін аныќтау керек. S: =0; I: =1; Repeat S: =S+I; I: =I+5; Until I> 10; 7

келт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лген программа баспағ а қ андай сандарды шығ арады? 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лген программа баспа№а єандай сандарды шы№арады? PROGRAM PAR; VAR C, D: INTEGER; PROCEDURE Q( X, Y: INTEGER); PROCEDURE P( X, Y: INTEGER); BEGIN Y: = X+1 END; BEGINC: = 2; D: = 0; P(SQR( C) + C, D); WRITELN(D); C: = 2; D: = 0; Q(SQR(C) + C, D); WRITELN(D); END. 0

Келтiрiлген программа єандай Нә тиженi баспа№а шығ арады. PROGRAM PR1(IMPUT, OUTPUT); 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=-2. 0 X2=1. 0

Келтiрiлген программа єандай Нјтиженi баспага шыгарады. PROGRAM PR5; VAR P, Q: INTEGER; BEGIN READ (P, Q, P); WRITELN (‘P+Q=’, P+Q, ‘P =’, P); END. Егер бастапєы мёндер ретiнде келесi мә ндер берiлген болса 16, 17, 26 P+Q=43 P=26

Кестеде бiр јлшемдi массивтiѕ мёндерi кјрсетiлген дЅрыс Нјтижелерiн аныјтау керек. FOR I: =1 TO 10 DO A[I]: =A[11-I]; I=1, 2, 3, 4, 5, 6, 7, 8, 9, 10 A[I]=11, 12, 13, 14, 15, 16, 17, 18, 19, 20

КнигA айнымалысына келесi информацияны меншiктеу керек: Автор – Петров О. П.; кiтаптыѕ аты – Физика. Баспаныѕ аты – Наука, баспа№а шыјєан жылы – 1975. Сонымен єатар, Книга2 айнымалысына да осындай информацияны меншiктеу керек. Тек баспа№а шыјєан жылын 1980 ж. ауыстыру єажет. Книга1, Книга2 айнымалыларыныѕ баяндалуы келтiрiледi. TYPE КНИГА = RECORD АВТОР, НАЗВ, ИЗДАТ = STRING [20]; ГОД_ИЗД; 1960.. 1995END; VAR КНИГ1, КНИГ2: КНИГА; WITH КНИГ1 DO BEGIN АВТОР: = ‘ПЕТРОВ О. Н. ‘; НАЗВ; = ‘ФИЗИКА’; ИЗДАТ: = ‘ НАУКА’; ГОД_ИЗД: = 1975 END; КНИГ2: = КНИГ1; КНИГ2. ; ГОД_ИЗД: = 1980;

ќосындыны есептеу программасыныѕ дўрыс фрагментін кґрсетіѕіз. s1: =0; p: =1; for i: =1 to n do begin p: =p*i; s1: =s1+exp(i*ln(x))/p; end;

Кө рсетiлген программа баяндауларыныѕ Нә тижесiн кјрсетiѕiз? S: =0; P1: =1 FOR I: =1 TO N DO P1: =P1*I; FOR I: =1 TO N DO BEGIN P2: =1 FOR K: =1 TO I DO P2: =P2*K; S: =S+1/(P2+1); END; S: =1/P1*S; WRITE( S)

Кө рсеткіштік мә ні болып табылады: айнымалылар адрестері;

Кө шу нұ сқ ауы GOTO-дан кейiн: Белгi;

Кубиктер туралы мјліметтер берілген: ґлшемі, тїсі жјне кубиктіѕ материалы. Белгілі материалдан жасалєан жјне ќабырєасы 3 см-ден аспайтын кубиктердіѕ санын шыєаратын программаныѕ дўрыс фрагментін таѕдаѕыз. k: =0; for i: =1 to n do if ((a[i]. material=material) and (a[i]. rebro< =3)) then k: =k+1; writeln('k=', k);

Қ айталау операторын кјрсетiнiз. Repeat until

Қ арапайым типтерден қ айсысы реттік типке жатпайды? REAL

Қ олдану Нјтижесi єатар болатын стандартты функцияны кјрсетiѕiз: CONCATE

Қ олдану Нјтижесiнде Boolean тип болатын стандартты функцияны кјрсетiѕiз odd

Қ олданушыдан айдың нө мірін сўрайтын жјне сјйкес жыл мезгілін шыєаратын программаныѕ дўрыс фрагментін таѕдаѕыз. Writeln(‘айдыѕ нґмірін енгізіѕіз’); Readln(n); Case n of 12, 1, 2: writeln(‘ќыс’); 3.. 5: writeln(‘кґктем’); 6.. 8: writeln(‘жаз’); 9.. 11: writeln(‘кїз’); End;

Логикалыј коньюнция оператор амалын аныјтаѕыз: and

Массив 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нде қ орытындысында баспа№а не басылады (2, 1, -2, 7, 6, 3, 9) FOR I: =1 TO 7 DO IF (I mod 3=0) AND (A[I]> 0) THEN A[I]: =SQR(A[I])+3; FOR I: =1 TO 7 DO WRITE (A[I], ‘, ’); 2, 1, -2, 7, 6, 12, 9

Массивтi баяндау єай тѕйiндi сјзден басталады? array

Массивтiѕ жЅп элементтерiнiѕ санын жёне јосындысын есептеу ѕшiн программанын оѕ фрагментiн таѕда. s: =0; k: =0; for i: =1 to n do if (A[i] mod 2 = 0) then begin s: =s+A[i]; k: =k+1; end;

Массивтегі жұ п элементтердіѕ саны мен қ осындысын есептейтін программаныѕ дўрыс фрагментін таѕдаѕыз s: =0; k: =0; for i: =1 to n do if (A[i] mod 2 = 0) then begin s: =s+A[i]; k: =k+1; end;

Массивтің тақ бағ андарында орналасќан оѕ жўп элементтердіѕ ќосындысын есептеудіѕ процедурасын сипаттайтын программаныѕ дўрыс фрагментін кґрсетіѕіз. Procedure sum(x: mas; var S: integer); Begin S: =0; For i: =1 to n do For j: =1 to n do If j mod 2 < > 0 then If (x[i, j] > 0) and (x[i, j] mod 2 =0) then S: =S+ x[i, j]; End;

Массивтің тақ бағ андарында орналасќан оѕ жўп элементтердіѕ ќосындысын есептейтін функцияны сипаттайтын программаныѕ дўрыс фрагментін кґрсетіѕіз. function sum(x: mas): integer; Begin S: =0; For i: =1 to n do For j: =1 to n do If j mod 2 < > 0 then If (x[i, j] > 0) and (x[i, j] mod 2 =0) then S: =S+ x[i, j]; sum: =S; End;

Мә ліметтердіѕ типтерін сипаттау бґлігі ќандай тїйінді сґзден басталады? TYPE

Мир баспасында шығ арылғ ан жә не дү кендерге 2002 жылдан бастап тїскен кітаптар туралы мә ліметтер шыєаратын программаныѕ дўрыс вариантын таѕдаѕыз. for i: =1 to n do if (a[i]. izd=”Мир”) and (a[i]. datapost> =2002) then begin writeln (a[i]. awt); writeln (a[i]. nazw); writeln (a[i]. god); writeln (a[i]. datapost); end;

Мына есептi шешу ѕшiн WHILE операторыныѕ дЅрыс сипаттамасын таѕдаѕыз k: =1; p: =1; f: =1; While k < = n do Begin f: =f*k; P: =p*(1+sin(k*x)/ f); Inc (k) End;

Мына ө рнек a+bx+cyz Паскаль тiлiнде келесi тѕрде кјрсетiледi: a+b*x+c*y*z;

Натиже неге теѕ? 1) TRUNC (5. 61) 2) TRUNC (-5. 61) 1) 5 жёне 2) – 5

Натиже неге теѕ? 1. ROUND (17. 96) 2. ROUND (-17. 16) 18 жёне -17

Натиже неге теѕ? 1. PRED ( ‘B’ ) 2. SUCC (‘ B’ ) A C

Натиже неге теѕ? 1. ORD ( CHR (49)) 2. CHR ( ORD (‘*’) 49 жёне *

Нә тиже неге теѕ? …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 n: integer; begin n: =1000; writeln ( n div 10 ); end. 100

Нә тиже неге теѕ? …Var x: char begin x: =chr ( ord('9') + 1); writeln (x); end. 10

Нә тиже неге теѕ? ORD (CHR (50)) дЅрыс жауабы жој

Нә тиже неге теѕ? 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: = 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: = 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

Нә тиже неге теѕ? 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: = 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 n: integer; begin n: = 1000; writeln ( n mod 23 ); end; 11

Нә тиже неге теѕ? …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 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

Нә тижесi екiншi жиынғ а жатпайтын бiрiншi жиын элементiнiѕ жиыны болатын жиындар№а арнал№ан операцияны кјрсетiѕiз? Айырымы

ОRD () функциясы -аргумент мә нiнiң реттiк номерiн;

Оқ ушылар жайлы мә ліметтер жазбалар массивінде саќталады. Программаныѕ келесі фрагменті ќандай мјліметтерді шыєарады. readln(kls); for i: =1 to n dowith mas[i] doif kls=klass thenbeginwriteln(fam); writeln(imya); writeln(shkola); end; нақ ты сыныптаєы оќушылар жайлы мә ліметтер шыєарады

орнектiѕ мёнiн есептеу керек. Succ (round(21/2)-pred(9)) Trunc(19/8) 2

орнектiѕ мёнiн есептеу керек. 0 div 11+36 div 13-4 mod 11 –2

орнектiѕ мёнiн есептеу керек[ 3.. 14 ] * [ 4, 14.. 61 ] + [ 5.. 11] – [ 6.. 16 ] * [ 7] [ 4.. 6, 8.. 11, 14]

Ө рнектi есептегендегi дұ рыс вариантын кө рсетiѕiз? [4.. 10]-[5.. 14]*[9.. 19]+[3.. 9] [3.. 9]

Ө рнектi есептеу кезiндеi жауаптардыѕ дұ рыс вариантын таѕдамыз? [5.. 9, 17.. 20]*[8.. 18]-[8, 9] [17, 18]

Ө рнектi есептеу кезiндегi жауаптардыѕ дұ рыс вариантын таѕдаѕыз? [3…16] * [14, 15... 25] + [5…19]*[7.. 9] [9, 15, 16]

Ө рнектiѕ Нјтижесi неге теѕ? CHR (ORD( ‘2’ )) 2

Ө рнектiң мә нiн есептеу керек [2.. 13] [3, 13.. 60]+[4.. 10]-[5.. 15]*[6]; [3.. 5, 7.. 10, 13]

Ө рнектiң мә нiн есептеу керек. SUCC (ROUND (5/2)-PRED(3)) 2

Паскаль тiлiнде келесi ө рнектердiѕ єайсысы дЅрыс жазылғ ан? 1. 1 + ( y ( + cos(pi*x); 2. abs(x)+cos(abs y ( 2. 7); 3. 1/2 + beta; 4. Tan(3x)+Ln(2*x+5); 5. Ln(5*x)+Exp(5*Ln(x))*Cos(x*x*x*x); 3, 5

Паскаль тiлiнде сёйкес меншiктеу операторын жазу керек Y=X⁵+COS(X²+1) y: =sqr(sqr(x))*x+cos(sqr(x)+1);

Паскаль тiлiнде сёйкес меншiктеу операторын жазу керек; y: =sqrt(sqr(cos(2*x))*cos(2*x)+sqr(sqr(5*x+3))*(5*x+3)))+sqr(sin (2*x))*sin(2*x))

Приоритетi тө мен операцияны кө рсетiң iз? IN

Программа фрагмент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ѕ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ѕ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

Программа фрагменті орындалєаннан кейін s айнымалысыныѕ мјні неге теѕ болады? x=3; k: =1; s: =0; repeat a: =(exp(3*ln(x))*SQR(k)); s: =s+a; k: =k+1; until a> 45; 45

Программа фрагменті орындалєаннан кейін s1 жјне s2 мјндері неге теѕ болады? a: =1; s1: =0; s2: =0; for i: =1 to 3 do begin s1: =s1+a*i; s2: =s2+(a+i); inc(a); end; writeln( s1, s2); 14, 12

Программа фрагментініѕ дўрыс орындалєандаєы нјтижесін кґрсетіѕіз. p: =1; i: =0; while i < 12 do begin p: =p*(2*i+1); i: =i+5; end; writeln(p); 231

Программа фрагментініѕ орындалу нјтижесін таѕда. Var n, cod: integer; begin s: =’3456’; val (s, n, cod); writeln(‘n=’, n, ’cod=’, cod); s: =’32. 45’; val (s, n, cod); writeln(‘n=’, n, ’cod=’, cod); s: =’abcd’; val (s, n, cod); writeln(‘n=’, n, ’cod=’, cod); n=3456 cod=0 n=0 cod=3 n=0 cod=1

Программа фрагментініѕ орындалу нјтижесін таѕда. Var n: integer; c, s: string; begin n: = pos(‘abc’, ’abefabcdeabc’); writeln(‘n=’, n); c: =copy(’abefabcdeabc’, 6, 3); writeln(‘c=’, c); s: =’ abcd ’; insert (‘123’, s, 3); writeln(‘s=’, s); end; n=5 C = bcd; S= ab123cd

Программа фрагментінің орындалу нә тижесін таң да. S: = ‘abc*12**d’; St: =’’; i: =1; while (S[i] < > ‘*’ do begin St: =St + S[i]+ S[i]; Inc(i); End; Writeln(St); aabbcc

Программа фрагментінің орындалу нә тижесін таң да. for c: =’a’ to ‘d’ do begin for s: =’a’ to ‘c’ do write (s); writeln(‘ ‘); end; a ab abc abcd

Программаныѕ орындалатын бґлігі ќандай тїйінді сґзден басталады? BEGIN

Программаныѕ орындалу нә тижесін кґрсетіѕіз Program pr; Var a, b, c, d: integer; u, p, s: integer; function f (x, y: integer): integer; begin if (x> y) then f: =x else f: =y; end; begin a: =5; b=-5; c: = 2; d: =7; u: =f(a, b); p: = f(u, c); s: =f(p, d); writeln(u, p, s) end. 5 5 7

Программаныѕ орындалу нә тижесін кґрсетіѕіз Program pr; Var f, i: integer; function fb (n: integer): integer; begin if (n=1) or(n=2) then fb: =1 else fb: =fb(n-1) + fb(n-2); + end; begin n=5; f: = fb(n); writeln(f) end. 5

Программаныѕ орындалу нә тижесін кґрсетіѕіз Program pr; Var a, b, c: integer; Procedure P; Var d: integer; Begin d: =a; a: =b; b: =d; end; procedure Q; begin c: =a+b; b: =c-a; end; begin a: =10; b: =5; c: =2; P; writeln (a, c); Q; writeln (a, c); End. 5 2 10 2

Программаның келесі фрагменті арќылы баспағ а не шыєады? Type t=array [1.. n] of integer; Var b: ^ t; begin new(b); read (b^[1]); k: =b^[1]; for i: =2 to n do begin read(b^[i]); if b^[i] < k then k: = b^[i] end; writeln(b^[k]); end. b1, b2, …, bn сандарының ішіндегі ең кішісінің номеріне тек b[k] санын баспаєа шыєарады

Программаның келесі фрагменті арқ ылы баспағ а не шыєады? Var x, y: ^ integer; begin new(x); x ^: =15; y: =x; write(y^); writeln( x^ +10); Dispose(x); End; 15 25

Программаның келесі фрагменті арқ ылы баспағ а не шыєады? Var x, y: ^ integer; begin new(y); y ^: =5; y^: =2*y^ + sqr(y^); x: =y; write(x^+ 10); Dispose(x); End; 45

Программаның орындалу нә тижесін кө рсетің із Program pr; Var a, b: integer; s: real; Procedure Sr( x, y: integer; var S real); Begin S: =(x+y)/2; end; begin a=2, b=3; sr(a, S, b); writeln (S); End. типтердің сә йкес келмеуі

Программаның орындалу нә тижесін кө рсетің із Program pr; Var a, b, c: integer; Procedure P; Var d: integer; Begin d: =a; a: =b; b: =d; end; procedure Q; begin c: =a+b; b: =c-a; end; begin a: =10; b: =5; c: =2; P; writeln (a, b); Q; writeln (a, b); End. 5 10 10 5

Программманыѕ келесі фрагменті нені орындайды? Var S: char; k: integer; Repeat Read (S); If NOT (S IN [‘+’, ’-‘, ’*’, ’/’) then Begin If S IN [‘0’.. ’9’] then k: =k+1; Write(S); Until (S=’. ’); Цифрлардың санын есептейді жә не амалдардың таң баларынан басќа барлыќ символдарды баспаєа шыєарады

Процедурада№ы формальды параметрлер єалай аталады? процедура денесiне енгiзiлген, идентификаторлары;

Процесс ќандай символдыѕ кґмегімен белгіленеді? тікбўрыш

Р айнымалысына келесi информацияны меншiктеу керек: Студенттiѕ фамилясы- Розов Р., газеттiѕ аты – “Горизонт” Ба№асы- 300 тенге Type студ. = record фио: string [20]; газ: record назв: string [10]; стоим: 100.. 800 end; end; var p: студ.; with p do begin фио: = ’ Розов Р. ’; газ. назв: = ‘Горизонт ‘; газ. Стоим: = 300 end;

Санды санғ а бө лгендегi қ алдық ты табу амалын кјрсет: DIV

Санның бө лшек бө лiгiн анық тайтын стандартты функцияны кјрсетiѕiзFRAC

Санның бү тiн бө лiгiн анық тайтын стандартты функцияны кјрсетiѕiзINT

Символдар жолын сан№а тѕрлендiрудiѕ стандартты процедурасын кјрсетiѕiз VAL

Символдарды коды бойынша аныјтайтын стандартты функцияны кјрсетiѕiз Chr

Таң балардың келесi сипатталуыныѕ єайсысы дЅрыс? label 4, 8, 12;

Текстегі ә ріптерден басќа символдарды жою керек жјне барлыќ кіші јріптерді сјйкес їлкен јріптермен ауыстыру керек. Программаныѕ дўрыс фрагмент таѕда. for i: =1 to length (s) do If (ord(s[i])> =97 ) and ( ord (s[i)< =122) then St: =St+upcase (s[i]) Else If (ord(s[i])> =65 ) and ( ord (s[i)< =90) then St: =St+ s[i]; Writeln(st);

Типтердi баяндау бјлiмiнде єандай кѕрделi типтiѕ жалпы жазылу форматы кјрсетiлген? Type < идентификатор> = Array [< индекс типi>, < индекс типi>, ... ] Of < элемент типi>; массив

Томенде јрнек тѕрiнде келтiрiлген тЅжырымдамалардыѕ єайсысы дЅрыс жазылган? А мёнi ( 0, 3 ) аралы№ында жатпайды: ( A< = 0) OR (A> = 3)А мёнi ( -2, 0 ) аралы№ында жатады ( A> =-2 ) AND (A> =0) тек 1.

Тө менде N сандардыѕ арифметикалыќ ортасын табатын программаныѕ фрагменттері келтірілген. Олардыѕ дўрысын кґрсетіѕіз. 1) S: =0; FOR I: =1 TO N DO S: =S+A[I]; WRITE(S/N); 2) S: =0; I: =1; WHILE I< =N DO BEGIN S: =S+A[I]; INC(I); END; WRITE (S/N); 3) S: =0 FOR I: =1 TO N DO; BEGIN S: =S+A[I]; WRITE(S/N); END; 4) S: =0; I: =1; REPEAT S: =S+A[I]; INC(I); UNTIL (I< N); WRITE(S/N); 1, 2

Тө менде келтiрiлген N саныныѕ арифметикалыј ортасын табу керек. ДЅрыс жауабын кјрсету керек. 1. S: =0; FOR I: =1 TO N DO S: =S+A[I]; WRITE(S/N); 2. S: =0; I: =1; WHILE I< =N DO BEGIN S: =S+A[I]; INC(I); END; WRITE(S/N); 3. S: =0; FOR I: =1 TO N DO BEGIN S: =S+A[I]; WRITE(S/N); END; 4. S: =0; I: =1; REPEAT S: =S+A[I]; INC(I); UNTIL (I< N); WRITE(S/N); 1, 2

Тө менде келт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лген екi јлшемдi массивтердiѕ єайсысы дЅрыс сипатталма№ан? 1. var b: array [10.. 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

Тө менде келтiрiлген єайталау операторыныѕ орындалу барысында єандай Нјтиже јорытындыланады? … var k: integer; begin k: =0; while k< =8 do begin k: =k+2; write (k: 2); end end. 10 8 6 4 2

Тө менде келтiрiлген єайталау операторыныѕ орындалу барысында єандай Нјтиже јорытындыланады? For c: =’Z’ downto ‘A’ do write (c); ZYXWVUTSRQPONMLKJIHGFEDCBA

Тө менде келтiрiлген жазбалардыѕ єайсысы дЅрыс емес? Sin 0. 2 2. Succ (3. 2) 3. Pred (7) 1 жёне 2

Тө менде келтiрiлген жазбалардыѕ єайсысы дЅрыс? 1. Odd (17) 2. Cos (32. 1) 3. Cos [5] 1 жёне 2

Тө менде келтiрiлген најты сандардыѕ єайсыларыныѕ жазылуы дЅрыс емес? 1, 81 2. 6 0. 56 4. 7, 77 1 жёне 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); 4 жёне 5

Тө менде келтiрiлген тЅрајтылардыѕ єайсысы тектелген тЅрајты? var1=’A’; 2. time = 11. 49; 3. seek = 0. 6; 4. tenge: real = 92 5. god: integer = 1998; 4 жёне 5

Тө менде келтiрiлген айнымалылардыѕ ёртѕрлi мёндерi ѕшiн јорытындылау операторыныѕ орындалу барысында єандай Нјтиже шы№ады? …var CH: char; writeln(CH); 1. CH: = ‘A’; 2. CH: = #65; 1) А 2) А

Тө менде келтiрiлген єайталау операторыныѕ орындалу Нјтижесiнде S айнымалысыныѕ мёнi неге теѕ? .. var S, i: integer; sim: char; lop: boolean; s: =0; for i: =5 to 7 do s: =s+1; s: =0; for i: =10 downto 6 do s: =s+1; s: = 0; for sim: =’A’ to ‘D’ do s: =s+1; s: =0; for lop: =false to true do s: = s+1; 1) 3 2) 5 3) 4 4) 2

Тө менде келтiрiлген меншiктеу операторларыныѕ єайсысы дЅрыс жазыл№ан? ЕГЕР A, I, J, K: integer; X, Y, Z: real; B: boolean; 1. X: = Y + sin ( sin(z)); 2. A: = ( X< Y ) or ( B and ( I< > K)); 3. X: = I + J - B; 4. I: = I + K / J 1 жёне 2

Тө менде келтiрiлген меншiктеу операторларыныѕ єайсысы келесi шартты єана№аттандырады? var x, y: integer; x: =3; y: =4

Тө менде келтiр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; дЅрыс

Тө менде келтiрiлген программаныѕ орындалу Нјтижесi? var: x, y: integer; begin y: =5; x: =0; while x< 6 do begin y: =y + x; x: = x + 2; end. 11

Тө менде келтiрiлген тЅжырымдамалардыѕ єайсысы јрнек тѕрiнде дЅрыс жазыл№ан? 1. А –ныѕ мёнi келесi аралыјтардыѕ бiрiнде жатады: [-5, -4], [0, 2], [3. 2, 7] (( A> =-5) and (a< =-4)) or ((A> =0) and (A< =2)) or ((A> =3. 2) and (A< =7)) 2. А (x, y) нѕктесi центрi координаталар јсiнiѕ басында жататын бiрлiк шеѕбердiѕ бойында немесе сыртында жатыр X*X+Y*Y > =1 екi жазылу да дЅрыс

Тө менде келт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; if ( a = b ) and p then p: = p+10. 5; 2, 4 жёне 5

Тө менде сипаттал№ан массивтердiѕ ёрєайсысы неше элементтен тЅрады? 1. var mb: array [‘A’.. ’C’, 2.. 5] of real; 2. var mc: array[false.. true] of array [1.. 5] of char; 3. type ww=(m1, m2, m3, m4); var zap: array [ww] of array [ww] of boolean; 12 10 16

Тө мендег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

Туғ ан жылдары кему реті бойынша орналасқ ан студенттер жайлы мјліметтер шыєаратын дўрыс фрагментті таѕдаѕыз (мјліметтер жазбалар массивінде саќталады) for i: =1 to n-1 do for j: =i+1 to n do

Тұ рақ тылар қ алай сипатталады? барлыј айнымалылар сипаттал№ан№а дейiн;

Тұ рақ тыларды сипаттау бґлігі ќандай тїйінді сґзден басталады? CONST

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

Файлғ а 5 бү тін санды жазу ү шін программаның дұ рыс фрагментін таң да: rewrite(f); for i: =1 to 5 do begin read(n); write (f, n); end;

Файлдың компоненттерінің қ осындысын жә не кө бейтіндісін табу ү шін программаныѕ дўрыс фрагментін таѕда: reset(f); s: =0; p: =1; while not eof (f) do begin read(f, n); s: =s+n; p: =p*n; end;

Функция ASSIGN Файлдық айнымалыны байланыстыру ү шін пайдаланады

Функция CLOSE Файлды жабу ү шін пайдаланады

Функция READ Файлдан ақ паратты оқ у ү шін

Функция RESET Файлды оқ уғ а ашу ү шін пайдаланады

Функция REWRITE Файлғ а жазуғ а ашу ү шін пайдаланады

х айнымалысын 3-ке азайтатын стандартты процедураны кјрсет DEC (X, 3)

х айнымалысын 5-ке Ѕл№айтатын стандартты процедураны кјрсет INC (X, 5)

х, у логикалық айнымалылар, х-тiѕ мә нi TRUEy- тi” мә нi FALSE болғ анда x and not y ө рнегiнi” Нә тижесi TRUE;

х, у логикалық айнымалылар, х-тiѕ мёнi TRUE y- тiѕ мёнi FALSE бло№анда not (x or y) ө рнегiнiѕ Нә тижесi FALSE;

Х=6 болғ андағ ы программа фрагментініѕ орындалу нә тижесін кґрсетіѕіз. Case X of 1, 3: y: =1; 4.. 7: y: =2*X; 2, 8: y: =sqr(X); Else Y: =0; End; Writeln(‘y=’, y: 5: 3); 12

Циклдан шы№удыѕ стандартты процедурасын кјрсетiѕiз break

Шарт ќандай символдыѕ кө мегімен белгіленеді? ромб

Шартты операторын јолданып келтiрiлген функцияны есептеу керек if(x> 0)and (x< 2) then y: =sqr(cos(x)) else y: =1-sin(sqr(x));

Шартты операторын јолданып келтiрiлген функцияны есептеу керек. IF X< 0 THEN Y: =5*SQR(X)+6 ELSE IF (X> 0) AND (X< 6) THEN Y: =SQR(X)-35 ELSE Y: =7. 1x-7

Элемент массив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

⇐ Предыдущая 12