Главная страница Случайная страница Разделы сайта АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
A b c dСтр 1 из 3Следующая ⇒
D) SIN(X) E) SIN(X/3.1415)
М: =А[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
(X+l/2)*(Y+7/10)-3/4? 7 Паскальда WRITELN(A: 3, 2: 1) операторы орындалғ анда, нә тижесінде не шығ ады? А2
TYPE Х=(мектеп, лицей, университет, академия); VARY: 1..32; Z: X; берілсе, онда РRED(мектеп) функциясының мә ні не? 'академия' ODD(10) функциясынын шешімі қ андай болады? FALSE
-5 6 7 1 cандарды енгізсек, онда a, b, c, d айнымалылары қ андай мә нге ие болады? а=5, b=-5, c=6, d=7
8 10
IF (n> 0) AND ((M div N)> 0) THEN m: =m- n ELSE m: =m+n операторы орындалғ анда m айнымалысы неге тең? 3
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
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
бұ л массивтың элементтepi қ андай? бү тін сандар
const n=7; var I, S: integer; begin S: =0; for 1: =1 to n do S: =S+1 writeln(S); end. Нә тижесі қ андай? 7
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
берілген a*d ө pнегінің типі қ андай real;
берілген (b/с)*100 ө рнегінің типі қ андай? 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 рет · PRED(7 div 3) ө рнегінің мә ні нешеге тең 1 · WRITELN(5/2: 5: 1) командасының орындалу барысында экранғ а қ андай нә тиже шығ ады? 2.5 · Программа орындалғ аннан кейін I айнымалысы қ ай мә нге ие болады? Program pp; Var I: integer; Begin I: =0; If I< 0 then I: =1 else If I< 0 then I: =2 else if I< 0 then I: =3; Writeln(‘I=’, I); End. 0 · Программа орындалғ ан кезде Привет сө зі неше рет қ айталанып келеді? Program primer; Const n=10; Var I: integer; Begin I: =1; Repeat writeln(‘Привет’); I: =I+1 Until I< n End. 1 рет
· WRITELN(5 mod 2: 5) командасының орындалу барысында экранғ а қ андай нә тиже шығ ады? 1 · Программа орындалғ аннан кейін I айнымалысы қ ай мә нге ие болады? Program pp; Var I, k: integer; Begin I: =10; If I< 0 then k: =I mod 2 else If I=0 then k: =I div 2 else I: =3*i; Writeln(‘I=’, I); End. 30 · Егер программада келесі сипатталулар болса, келесі меншіктеулер мү мкін бола ала ма? Type SEZON=(zima, vesna, leto, osen); Var X, Y: SEZON; T: (TEPLO, HOLODNO); 1) X: =VESNA; Y: =X; 2) Y: =T; 3) T: =TEPLO; 4) T: =GARKO; 5) X: =Y+T 1, 3 меншіктеулері ммү кін · Операторлар орындалғ аннан кейін p жә не d айнымалыларының мә ндері қ андай болады? Program pr; Var p: Boolean; d, k: integer; Begin P: =true; d: =1; k: =71; Case k mod 10 of 3, 2, 7, 5: d: =k; 1:; 4, 8: begin p: =false; d: =2; end; 9, 6: begin p: =false; d: =3; end; end; end. P=true; d=1 · Программаның жұ мыс істеу нә тижесінде қ андай мә н шығ ады? Program primer; Const exampl=’1014’; Var i, num: integer; Stg: string[20]; Begin Stg: =exampl; Num: =0; For i: =0 to length(stg) do if stg[i]< > ’0’ then num: =num+1; Writeln(‘num=’, num); End. Num=4 · «Привет» сө зі неше рет басылып шығ ады? Program primer; Var I: integer; Procedure hellow(I: integer); Begin While I< 2 do Begin writeln(‘Привет’); I: =I+1; End; End; Begin For I: =0 to 2 do Hellow(i) End. 3 рет · «Привет» сө зі неше рет басылып шығ ады? Program primer; Var I: integer; Procedure hellow; Begin While I< 2 do Begin writeln(‘Привет’); I: =I+1; End; End; Begin For I: =1 to 3 do Hellow End. 1 рет · Программаның орындалатын бө лігі қ андай тү йінді сө зден басталады? BEGIN · Ерекше белгілерді сипаттау бө лігі қ андай тү йінді сө зден басталады? LABEL · Тұ рақ тыларды сипаттау бө лігі қ андай тү йінді сө зден басталады? CONST · Мә ліметтердің типтерін сипаттау бө лігі қ андай тү йінді сө зден басталады? TYPE
Succ (round(21/2)-pred(9))/Trunc(19/8) 2 · Келт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лген функцияны есептеу керек. 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н D айнымалының мә нiн анық тау керек. D: =0; I: =1; WHILE I< 25 DO I: =I+2; D: =D+1/(2*I+1); 0.02 · Келесi цикл операторының денесi канша рет орындалады. N: =0; FOR I: =1 TO 3*N+4 DO N: =N+2; 8 · ө рнектiң мә нiн есептеу керек [ 3.. 14 ] * [ 4, 14.. 61 ] + [ 5.. 11] – [ 6.. 16 ] * [ 7] A) [3.1..4.9, 5.5…7.5] B) [‘a’..’k’, ’z’] C) [‘> =’, ’< ’, ’=’] D) [ 4..6, 8..11, 14] E) [5..9, 9.1..9.9] · Келесi конструкциялардың қ айсы жиын болып саналады (Паскаль тiлiнiң ережесi бойынша) [‘> =’, ’< ’, ’=’] · 70 символдан тұ ратын текстiк информацияны жол тү рiнде баяндау керек VAR STR1: STRING [70]; · Келес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’ DO BEGIN S2 [ I ]: =SUCC(S2[ I ]; I: = I+1 END; END; BEGIN I: = 1; T2: = ‘ 1230489756’; P2(T2); WRITELN (t2[ I ]) END. 9
Repeat < Нұ сқ ау1> < нұ сқ ау2> ................ Until < шарт>; Иә
FOR < айнымалы>: =< бастапқ ы мә нi> TO {DOWNTO} < соң қ ы мә нi> DO < нү сқ ау> параметрлiк қ айталау
IF < логикалық ө рнек> THEN < нұ сқ ау> [ELSE < нұ сқ ау>; ] шартты нұ сқ аудың
WHILE < логикалық ө рнек> DO < нұ сқ ау> алдын-ала шарт бойынша қ айталау нұ сқ ауының · Келесi қ ай нұ сқ аудың толық жазылу форматын бередi? CASE < селектор> OF < Const1>: < нұ сқ ау>; < Const2>: < нұ сқ ау>; ........................................ [ELSE < нұ сқ ау>; ] End; {Case} таң дау нұ сқ ауының
GOTO < белгi>; кө шу нұ сқ ауының
Type < идентификатор> = Array [< индекс типi>, < индекс типi>,...] Of < элемент типi> массив
1) TRUNC (5.61) 2) TRUNC (-5.61) 1) 5 жә не 2) - 6
1. ROUND (17.96) 2. ROUND (-17.16) 18 жә не -17
1. ORD (CHR (49)) 2. CHR (ORD (‘*’) 49 жә не ‘*’
1. PRED (‘B’) 2. SUCC (‘ B’) A C
А мә нi (0, 3) аралығ ында жатпайды: (A< = 0) OR (A> = 3) А мә нi (-2, 0) аралығ ында жатады: (A> =-2) AND (A> =0) тек 2
1, 3, 5: WRITELN (‘тақ ’); 2, 4, 6: WRITELN (‘жұ п’); END;
A) жоқ B) тек бiр тектi C) Иә D) нақ ты тектi бола алмайды E) дұ рыс жауабы жоқ
Нақ ты 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)
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)
ORD (CHR (50)) 50
var x, y: integer x: =3; y: =4
...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
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)
… var k: integer; begin k: =0; while k< =8 do begin k: =k+2; write (k: 2); end; end. 2 4 6 8 10
…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
… for k: =5 to 8 do begin pm: =k*k; writeln ('pm=', pm); end; … pm=25 pm=36 pm=49 pm=64
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
Var i: integer; begin for I: = - 5 to 5 do begin readln (a[i]); writeln(a[I]); end; end. жоқ
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
For c: =’Z’ downto ‘A’ do write (c); ZYXWVUTSRQPONMLKJIHGFEDCBA
…var CH: char; writeln(CH); 1. CH: = ‘A’; 2. CH: = #65; 1)’A’ 2) 65
type sss = array [‘A’..’C’] of array [1..4] of boolean; логикалық шамалар жолын
· ө рнектiң мә нiн есептеу керек. SUCC (ROUND (5/2)-PRED(3)) 2 · Паскаль тiлiнде сқ йкес меншiктеу операторын жазу керек · Y=X5+COS(X2+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
For j: =1 to 5 do Writeln (A[ i, j]: 6: 2);
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
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
Барлық операторлар жекеше қ арастырылғ ан. 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
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)
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)
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
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
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
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, -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
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: =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
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)
[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 файлғ а жазу керек
|