for i:=1 to n do begin f:=fi; s:=s+exp(iln(x))/f; end;

АЛГОРИТМ

* * * * * кө бейтіндіні есептейтін программаныѕ дұ рыс фрагментін таѕдаѕыз. p: =1; a: =1; For i: =1 to 3 do For k: =1 to 2 do begin p: =p*(2*i/a); a: =2*I + 1; end;

+ +…+ қ осындыны есептеу программасыныѕ дўрыс фрагментін кґрсетіѕіз: s: =1; s2: =0; s3: =0; for i: =1 to n do begin s: =s*i; s2: =s2+(1/i); s3: =s3+(s/s2); end;

1 Берілген тексте А1 сө зін А2 сө зіне ауыстыру керек. (Сө здерді бө ліктеу ү шін бос орын пайдаланылады) Программаныѕ дўрыс фрагмент таѕда. var C, D: string; i, K: intger; К: =1; D: =’’; For i: =1 to length(S) do If S[i] = ‘ ‘ then Begin C: = copy(S, k, i-k); If C=A1 then begin D: = D+A2+S[i]; k: = i +1 end Else begin D: = D+C+S[i]; k: = i +1 end End;

11, 12, 13, 14, 15, 16, 17, 18, 19, 20

20, 19, 18, 17, 16, 16, 17, 18, 19, 20

70 Символдан тЅратын текстiк информацияны жол тѕрiнде баяндау керек VAR STR1: STRING [70];

A [12, 12] массивiнiң жұ п жолдарында орналасқ ан элементтерiнiѕ арасында№ы ең ү лкен элементiн табу керек. MAX: =A[2, 1]; FOR I: =1 TO 6 DO FOR J: =1 TO 12 DO IF A[2*I, J] > MAX THEN MAX: =A[2*I, J];

A [5, 5] массив најты элементтерден тЅрады. Осы массивтi баспа№а шы№ару керек (°рбiр жолда 5 элементтен) For i: =1 to 5 do Begin For j: =1 to 5 do Write (A[ i, j]: 6: 2); Writeln; End;

A [7, 7] массивiнiѕ керi диагональда орналасєан элементтерiнiѕ арасында№ы еѕ кiшi элементiн табу керек. Min: =a[1, 7]; For i: =1 to 7 do If a[i, 8-i]< min then min: =a[i, 8-i];

A[10, 10] массив бойынша B[10] массивiн келесi ереже бойынша јЅру керек: B[1]- ге бас диагональдiѕ терiс элементтерiнiѕ санын меншiктеу керек, B[2]-ге бас диагональдан жо№ары жёне параллель орналасєан диагональдыѕ терiс элементтерiнiѕ санын меншiктеу керек т. с. с. FOR L: =0 TO 9 DO BEGIN K: =0; FOR I: =1 TO 10-L DO IF A[I, I+L]< 0 THEN K: =K+1; B[L+1]: =K END;

a[10, 10] массивiнiѕ жЅп ба№аналарында№ы терiс элементтерiне осы элементтердiѕ квадраттарын меншiктеу керек. for j: =1 to 5 do for i: =1 to 10 do if a[i, 2*j]< 0 then a[i, 2*j]: =sqr(a[i, 2*j]);

a[12, 12] массивiнiѕ тај жолдарында№ы элементтерiнiѕ еѕ кiшi элементiн табу керек. min: =a[1, 1]; for i: =0 to 5 do for j: =1 to 12 do if a[2*i+1, j]< min then min: =a[2*i+1, j];

A[14, 14] массивiнiѕ тај ба№аналарында орналасєан терiс элементтерiне 0-дi меншiктеу керек. FOR j: =0 TO 6 DO FOR i: =1 TO 14 DO IF A[ I, 2 * j + 1] < 0 THEN A [ I, 2 * j + 1]: = 0;

A[17] массивінің жұ п позицияларында орналасќан элементтерініѕ арасындаєы еѕ їлкен элементті аныќтаудыѕ дұ рыс вариантын таѕдаѕыз. MAX: =A[2]; FOR I: =2 TO 8 DO IF A[2*I]> MAX THEN MAX: =A[2*I];

CASE P OF '2': Writeln ('екi'); '3': Writeln ('ѕш'); '4': Writeln ( 'тјрт'); END; {CASE}Жоғ арыдағ ы программадағ ы дұ рыс орындалуы ѕшiн Р айнымалысын єалай сипаттау керек? P: char;

CASE операторын јолданудыѕ дЅрыс вариантын таѕдаѕыз? CASE l OF1, 3, 5: WRITELN (‘тај’); 2, 4, 6: WRITELN (‘жЅп’); END;

CLOSEGRAPH функциясы адаптердің графикалық режимдегі жұ мысын аяќтап экранныѕ текстік жўмысын іске ќосады

cos²x³ө рнегiнiң дұ рыс жазылғ ан вариантын таң даң ыз? sqr(cos(x*sqr(x)));

E дә лдiгiмен +k² осындыны есептеудiѕ дЅрыс вариантын таѕдаѕыз k: =1; REPEAT L=1/(sqrt(abs(x))+sqr(k)); S: =s+L; Inc(k); UNTIL (abs(l)< eps);

END. 8

EOF(F) логикалық функциясы ақ иқ ат мә нiн қ абылдайды, егер F файлыныѕ соѕы бол№анда;

F(m, n)=n! *m! M/(n+m)!, функциясын баяндау керек. n жёне m- оѕ сандар (факториалды есептейтiн iшкi функцияны аныјтау керек). Типтiѕ баяндауы келтiрiледi: type nat=0. . maxint; function F (m, n: nat): real; function fact (k: nat): real; var i, p: integer; Begin p: =1; for i: =2 to k do p: =p*i; Fact: =p end; Begin f: =fact(n)*fact(m)/fact(n+m) end;

False жә не True арасындағ ы қ атынастардың қ айсысы дұ рыс? False< True;

for i: =1 to n do begin f: =f*i; s: =s+exp(i*ln(x))/f; end;

FOR цикл нұ сқ ауындағ ы қ адам параметрi қ ай типке жатады? INTEGER

GETMAXX, GETMAXY функциялары экранның сол сә тте жұ мыс істеп отырєан режиміндегі кґлденеѕ жјне тік координаталарыныѕ еѕ максималды мә нін аныќтайды

GETX, GETY функциялары кө рсеткіштің сол сә ттегі кө лденең жә не тік координаталарын анық тайды

GRAPHRESULT функциясы графикалық процедураларғ а кірудің соѕєы нјтижесін аныќтайды

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 = 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

12 Следующая ⇒

for i:=1 to n do begin f:=f*i; s:=s+exp(i*ln(x))/f; end;

for i:=1 to n do begin f:=fi; s:=s+exp(iln(x))/f; end;