Главная страница Случайная страница Разделы сайта АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
end; (jj) ⇐ ПредыдущаяСтр 3 из 3
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
15. Шартты операторын қ олданып келт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
D: =0; I: =1; WHILE I< 25 DO I: =I+2; D: =D+1/(2*I+1); - 0.02
N: =0; FOR I: =1 TO 3*N+4 DO N: =N+2; - 8
[ 3.. 14 ] * [ 4, 14.. 61 ] + [ 5.. 11] – [ 6.. 16 ] * [ 7]- [ 4..6, 8..11, 14]
28. Келес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 B) 4 C) 8 D) 6 E) 7
37. Repeat.. Until нұ сқ ауының жалпы жазылу тү рi дұ рыс па? Repeat < Нұ сқ ау1> < нұ сқ ау2> ................ Until < шарт>; A) Иә B) жоқ C) бiлмеймiн D) сә йкес емес E) дұ рыс жауабы жоқ
FOR < айнымалы>: =< бастапқ ы мә нi> TO {DOWNTO} < соң қ ы мә нi> DO < нү сқ ау> - параметрлiк қ айталау
WHILE < логикалық ө рнек> DO < нұ сқ ау> - алдын-ала шарт бойынша қ айталау нұ сқ ауының
CASE < селектор> OF < Const1>: < нұ сқ ау>; < Const2>: < нұ сқ ау>; ........................................ [ELSE < нұ сқ ау>; ] End; {Case}- таң дау нұ сқ ауының
GOTO < белгi>; - кө шу нұ сқ ауының
Type < идентификатор> = Array [< индекс типi>, < индекс типi>,...] Of < элемент типi>; - массив
A) Файлдық айнымалыны байланыстыру ү шін пайдаланады B) Файлды оқ уғ а ашу ү шін пайдаланады C) Файлғ а жазуғ а ашу ү шін пайдаланады D) Файлды жабу ү шін пайдаланады E) Файлдан ақ паратты оқ у ү шін
A) Файлдық айнымалыны байланыстыру ү шін пайдаланады B) Файлды оқ уғ а ашу ү шін пайдаланады C) Файлғ а жазуғ а ашу ү шін пайдаланады D) Файлды жабу ү шін пайдаланады E) Файлдан ақ паратты оқ у ү шін
203. Келесі операторлар орындалғ аннан кейін S айнымалысының мә нін анық тау керек. S: =0; I: =1; Repeat S: =S+I; I: =I+5; Until I> 10; А) 7 B) 10 C) 0 D)17 E) 6
207. A[17] массивінің жұ п позицияларында орналасқ ан элементтерінің арасындағ ы ең ү лкен элементті анық таудың дұ рыс вариантын таң даң ыз. A) MAX: =A[1]; FOR I: =2 TO 17 DO IF A[I]> MAX THEN MAX: =A[I]; B) MAX: =A[2]; FOR I: =2 TO 8 DO IF A[2*I]> MAX THEN MAX: =A[I]; C) MAX: =A[2]; FOR I: =2 TO 17 DO IF A[2*I> MAX THEN MAX: =A[2*I]; D) MAX: =A[2]; FOR I: =2 TO 8 DO IF A[2*I]> MAX THEN MAX: =A[2*I]; E) MAX: =A[1]; FOR I: =2 TO 17 DO IF ODD(I) THEN IF A[I]> MAX THEN MAX: =A[I];
208. а1,..., аn тізбегінің ө спелі екенін тексерудің дұ рыс вариантын таң даң ыз (егер тізбек ө спелі болса, PR-ге 1-ді меншіктеу керек, кері жағ дайда PR-ге 0-ді меншіктеу керек). A) PR: =1; FOR I: =1 TO N-1 DO IF A[I]> A[I+1] THEN break; B) PR: =1; FOR I: =1 TO N DO IF A[I]> A[I+1] THEN break; C) FOR I: =1 TO N-1 DO; IF A[I]> A[I+1] THEN begin PR: =0; break; end; D) PR: =1; FOR I: =1 TO N-1 DO IF A[I]> A[I+1] THEN PR: =0; break; E) PR: =1; FOR I: =1 TO N-1 DO IF A[I]> A[I+1] THEN Begin PR: =0; break; END;
209. Егер массив элементтері келесі сандар (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);
A) 6, 12, 24 B) 3, -3, 6, -9, 12 C) 6, -6, 12, -18, 24 D) 3, 6, 12 E) 6, -6, 12, -18
211. Массивтегі жұ п элементтердің саны мен қ осындысын есептейтін программаның дұ рыс фрагментін таң даң ыз A) 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; B) s: =0; k: =0; for i: =1 to n do if (A[i] mod 2 = 0) then begin s: =A[i]; k: =k+1; end; C) s: =0; k: =0; for i: =1 to n do if (A[i] mod 2 = 1) then s: =s+A[i]; k: =k+1;
D) s: =0; k: =0; for i: =1 to n do if (A[i] / 2 = 0) then begin s: =s+A[i]; k: =k+1; end; E) s: =0; k: =0; for i: =1 to n do if (A[i] mod 2 = 1) then begin s: =s+A[i]; k: =k+1; end;
212. Х=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); A) 6 B) 12 C) 2*X D) 0 E) 1
214. Қ олданушыдан айдың нө мірін сұ райтын жә не сә йкес жыл мезгілін шығ аратын программаның дұ рыс фрагментін таң даң ыз. A) Writeln(‘айдың нө мірін енгізің із’); Readln(n); Case n of 12, 1, 2: writeln(‘қ ыс’); 3..5: writeln(‘кө ктем’); 6..8: writeln(‘жаз’); 9..11: writeln(‘кү з’); End; B) Writeln(‘айдың нө мірін енгізің із’); Readln(n); Case n of 12, 1, 2: writeln(‘қ ыс’); 3-5: writeln(‘кө ктем’); 6-8: writeln(‘жаз’); 9-11: writeln(‘кү з’); End; C) Writeln(‘айдың нө мірін енгізің із’); Readln(n); Case n of 12; 1; 2: writeln(‘қ ыс’); 3-5: writeln(‘кө ктем’); 6-8: writeln(‘жаз’); 9-11: writeln(‘кү з’); End; D) Writeln(‘айдың нө мірін енгізің із’); Readln(n); Case n of 12, 1, 2: writeln(қ ыс); 3-5: writeln(кө ктем); 6-8: writeln(жаз); 9-11: writeln(кү з); End; E) Writeln(‘айдың нө мірін енгізің із’); Readln(n); Case n of 1-12: writeln(‘қ ыс’); 3-5: writeln(‘кө ктем’); 6-8: writeln(‘жаз’); 9-11: writeln(‘кү з’); End;
217. Программаның орындалу нә тижесін кө рсетің із 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. A) 3.0 B) типтердің сә йкес келмеуі C) 2.5 D) 5 E) S
218. Массивтің тақ бағ андарында орналасқ ан оң жұ п элементтердің қ осындысын есептеудің процедурасын сипаттайтын программаның дұ рыс фрагментін кө рсетің із. A) Procedure sum(x: mas; 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; B) 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[j, i] > 0) and (x[j, i] mod 2 =0) then S: =S+ 1; End; C) 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; D) Procedure sum(x: mas; var S: integer); Begin S: =0; For i: =1 to n do For j: =1 to n do If i mod 2 < > 0 then If (x[i, j] > 0) and (x[i, j] mod 2 =0) then S: =S+ x[i, j]; End; E) 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;
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;
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, 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
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;
for j: =i+1 to n do 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;
readln(kls); for i: =1 to n do with mas[i] do if kls=klass then begin writeln(fam); writeln(imya); writeln(shkola); end; -- мектептің оқ ушылары жайлы мқ ліметтер шық арады
235. CASE P OF '2': Writeln ('екi'); '3': Writeln ('ң ш'); '4': Writeln ('тқ рт'); END; {CASE} Жоғ арыдағ ы программадағ ы дұ рыс орындалуы ү шiн Р айнымалысын қ алай сипаттау керек? A) P: integer; B) P: real; C) P: char; D) P: boolean; E) P: extended;
Writeln (А, В: 2, С: 4); болғ анда тө мендегi нә тижелердiң қ айсысы дұ рыс? - 10 2 100;
Цикл нұ сқ ауында < цикл денесi> орындалу ү шiн < шарт> ө рнегiнiң мә нi неге тең болуы қ ажет? - True;
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= a123bcd
|