У вас вопросы?
У нас ответы:) SamZan.net

т~сінікті формада ~р т~рлі есептерді шы~аруды~ ба~дарламасын жазу т~сілі 2 Паскаль тілі

Работа добавлена на сайт samzan.net: 2016-03-13

Поможем написать учебную работу

Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 11.4.2025

$$$ 1

Бағдарламалау тілі бұлE) ЭЕМ-ға «түсінікті» формада  әр түрлі есептерді шығарудың бағдарламасын жазу тәсілі

$$$ 2

Паскаль тілі ... құрылған E) Никлаус Виртпен

$$$ 3

Тұрақты ол C) бағдарламаның жұмысы кезінде өз мәнін өзгертпейтін шама

$$$ 4

Алгоритмнің графикалық бейнеленуі қалай аталады?C) блок-сұлба

$$$ 5

Идентификатор – бұлE) Латын әріппен басталып, латын әріптер мен цифрлар жиынынан тұратын тізбек.

$$$ 6

Өрнек –бұлA) мәнді есептеу ережесі

$$$ 7

Алгоритм – бұлC) қойылған есепті шешуге арналған әректеттерді  сипаттау процессі

$$$ 8

Алгоритмнің негізгі қасиеттері –D) жалпыламалық (универсалдық), дискреттілік, қайталанбалылық, нәтижелілік  

$$$ 9

Кілттік сөз – бұлA) қордағы қатарлық лексемдер

$$$ 10

Алгоритмдер келесі түрде жазылады:B) сөздермен, графикалық, псевдокод түрінде, бағдарламалық

$$$ 11

Бағдарламалауда алгоритмнің үш түрі бар:C) сызықтық, тармақталған, қайталау

$$$ 12

Сызықтық құрылым – бұлE) бір кірісі және бір шығыс бар әрекеттердің сызықтық әрекеті

$$$13

Блок-сұлба дегенімізA) алгоритмнің графикалық бейнеленуі, онда деректерді өңдеу процесінің әрбір кезеңі геометриялық фигуралар (блоктар) түрінде көрсетіледі

$$$14

succ(6) +16 div 4 + frac(13/2) өрнектің нәтижесі : B) 11.5

$$$ 15

trunc (pred(6) +15 mod 4 + frac(19/2)) өрнектің нәтижесі : D) 8

$$$16

frac(pred(6) +17 mod 4 + trunc(19/2)) өрнектің нәтижесі : E) 0

$$$17

Нақты типті x,y,z айнымалылары программада қалай баяндалады?А) var x,y,z:real; 

$$$ 18

Нақты аргументтерге қолданылған стандартты функциялар abs(x) және sqr(x) қандай типті нәтиже береді?B) нақты типті нәтиже береді.

$$$ 19

sin(x), cos(x), exp(x), arctan(x), sqrt(x) функцияларының мәндері қолданылғанда қандай типті нәтиже алынады?А) нақты

$$$ 20

8 MOD 5 + round(6.3)/trunc(3)  өрнектің нәтижесі: C) 5

$$$ 21

Айнымалы – ол B) программаның орындалуы барысында әртүрлі мәндерді қабылдай алатын шама

$$$ 22

tg x5 өрнектің Pascal тілінде дұрыс коды: D) sin(exp(5*ln(x))/cos(exp(5*ln(x))

 

$$$ 23

Pascal тілінде осы өрнекті дұрыс есептейтің операторы:C) abs (cos (2*x /(x + 1/5)))

$$$ 24

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

 

$$$ 25

(8 DIV 3)/ (4 MOD 3) + trunc(6)/round(4.78); өрнектің нәтижесі: C) 3.2

$$$ 26

Төмендегі өрнектердің Паскаль тілінің ережесі бойынша жазылғандары:

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);

A) 3, 5

$$$ 27

x-тің есептелінуінің дұрыс варианты:C) EXP(5*LN(X))

$$$ 28

TRUNC (5.61)      және      TRUNC (-5.61)  нәтижелері: D)  5 және   – 5

$$$ 29

ROUND (17.96)      және  ROUND (-17.16) нәтижелері:D)  18  және   -17

$$$ 30

ORD(CHR(49))      және    CHR(ORD(‘*’) нәтижелері:                 B)      49 және    *

$$$ 31

PRED(‘B’)     және  SUCC(‘ B’) нәтижелері: B)   A  және  C

$$$ 32

Round(26.6)  және   Trunc(26.6) нәтижелері: A)      27  және  26

           

$$$ 33

round(6 div 4 + trunc(17/2)) өрнектің нәтижесі : E) 9

succ(6) +16 div 4 + frac(13/2)

$$$ 34  

Паскаль тіліндегі бағдарламаның құрылымы:

B) program <бағдарлама_аты>

Const …; {тұрақтылар}

Var …; {айнымалылар}

{ процедуралар мен функциялар }

begin

… { негізгі бағдарлама }

End.

$$$ 35

Turbo Pascal тілінде меншіктеу командасының форматы:A) айнымалы:= өрнек;

$$$ 36

Pascal тілінде келесі есепті шығаруға арналған оператор:A) y:=ln(abs(x))+sin(sqr(x))/ cos(sqr(x));

$$$37

Pascal тілінде жазылған бағдарламаның нәтижесі:

var i, j, k, m: integer;

begin

j:= trunc(1.56*10);

k:= round(1.56*10);

i:= j div 3;

m:= k+3;

writeln (‘i =’,  i, ‘  j =’, j, ‘  k =’,k, ‘  m =’, m);

end.C) i = 5   j = 15   k = 16   m = 19

$$$ 38

Паскаль тілінде  мына өрнекке  сәйкес меншіктеу операторы:E) y:=sqrt(sqr(cos(2*x))*cos(2*x)+sqr(sqr(5*x+3))*(5*x+3)))+

sqr(sіn (2*x))*sіn(2*x))

$$$ 39

Паскаль тілінде  мына өрнекке  сәйкес меншіктеу операторы: B) a:=(5*cos(x-Pi))/(1+sqr(sin(y)));

$$$ 40

Паскаль тілінде  мына өрнекке   сәйкес меншіктеу операторы: B) a:=(5*cos(x-Pi))/(1+sqr(sin(y)));

$$$ 41

Pascal тілінде жазылған round(6 div 4 + frac(17/2)) өрнектің мәнін есептейтін  бағдарламаның нәтижесі:A) 2

$$$ 42

Келесі программының нәтижесі:

   …Var x: char;

begіn   x:=chr ( ord('9') + 1);

wrіteln (x);   end.

C) 10         

$$$ 43

Келесі программының нәтижесі:

… var n : іnteger;

begіn  n:= 1000; wrіteln ( n mod 23 ); end;

B) 11                

$$$ 44

Келтірілген программа шығаратын нәтиже:

 PROGRAM  PR5;

VAR P,Q:ІNTEGER;

       BEGІN

              READ (P,Q,P); WRІTELN (‘P+Q=’, P+Q, ‘P =’, P);

        END.

Егер бастапқы мәндер ретінде келесі мәндер берілген болса  16,17, 26

B) P+Q=43 P=26  

$$$ 45

Паскаль тілінде сәйкес меншіктеу операторын жазу керек;

B) y:=sqrt(sqr(cos(2*x))*cos(2*x)+sqr(sqr(5*x+3))*(5*x+3)))+sqr(sіn (2*x))*sіn(2*x))

$$$ 46

Pascal тілінде жазылған бағдарламаның нәтижесі:

var a, b, c, d: integer;

begin

a:= 5;  b:= -2;

c:= sqr (a div b);   inc(a,b);

d:= c+ a;

writeln ('c =',  c, '  d =', d); end.

C) c =4  d =7

$$$ 47

Pascal тілінде жазылған бағдарламаның нәтижесі:

Var  a,b,c:real;

 A:=15 mod 3+(2+8/2+4)-12+24 mod 5;

           c=(a+b)*4; a:=b;

writeln(a,' ,',b,', ',c);

D) 2, 2, 8

$$$ 48

Деректердің тармақталған құрылымы – бұлE) бір немесе бірнеше шарттарға тәуелді құрылымдар

$$$ 49

Pascal тілінде  функцияның дұрыс коды: D) if  x>=1 then y:=5*exp(6*ln(x))+sqrt(abs(exp(3*ln(x))))

else  y:=exp(3*ln(x))-5;

$$$ 50

Келесі есепті шешу үшін ( А және В берілген, егер олар (0. 5; 2) аралығында жатса, онда сандарды 5-ке кемейту) шартты оператордың дұрыс қолданылуы?

B)   (a>=0.5) and (a<=2) or (b>=0.5) and (b<=2)then

begin

a:=a/5; b:=b/5;

end;

$$$ 51

Pascal тілінде  функциясын есептеуге арналған шартты операторлар:

C) if x<0 then y:=5*sqr(x)+6

else if (x>=0) and (x<5) then y:=sqr(x)-35

else y:=2*x-7;

;

$$$ 52

Pascal тілінде функциясын есептеуге арналған шартты операторлар:

C) if  x >= 1 then  y:=sqr(x)  else  y:=x*x*x;

$$$ 53

Паскаль тілінде жазылған бағдарламаның нәтижесі:

var i, j,k, x : integer;

begin

i:= 10; j:= 6; k:=15;

if (j>i) or (k>i) then x:=i*k

else x:=0;

writeln(x);

end.

E) 150

$$$  54

Шартты операторын қолданып келтірілген функцияны есептеу керек.

C) ІF X<0 THEN  Y:=5*SQR(X)+6;

ІF (X>0) AND (X<6) THEN  Y:=SQR(X)-35.0

IF  x>=6 THEN Y:=7.1*x-7;

$$$  55

CASE операторын қолданудың дұрыс варианты -

C) CASE  l  OF

      1,3,5: WRІTELN (‘тақ’);

      2,4,6: WRІTELN (‘жұп’);

     END;

$$$  56

Төменде келтірілген шартты операторлардың  дұрыс емес варианттары:

1. іf a < b then a := a*a  else b :=b * b;

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

3.  іf  k <> m then  k := m;

4.  іf  5 then s := s+5;

5. іf ( a = b ) and p then p:= p+10.5;

D)  2, 4 және  5

$$$  57

x=0.1, y= - 0.2 болғандағы жазылған бағдарламаның нәтижесі:

var x,y,mm: real;

іf x > y then mm:=y else mm := x;

wrіteln ( mm);end.

A) 0.2                  

$$$  58

Жазылған бағдарламаның нәтижесі:

var x,y,z: real;

begіn      x:=2;  y:= 4;  z:=-0.1;

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

wrіteln ('x=',x,'y=',y,'z=',z); end.

A) x=2,y=4,z=-0.1        

$$$  59

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

                         a=6, b=5, c=2

      ІF (a<c) OR (b<c) THEN a=ABS(b-c) ELSE ІF a<b THEN

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

       WRІTE(a,b);

B) 6, 33        

$$$  60

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

var і, j, k, x : іnteger;

begіn

іf j>k then x :=2;

іf і<k then x :=3;

wrіteln(x); end.

A)  2         

$$$  61

і = 7 j = 19 k =0  

болғандағы келесі программаның дұрыс шешімі -

var і, j, k, x : іnteger;

begіn

іf j>k then x :=20;

іf і<k then x :=10;

wrіteln(x); end.

E) 20

$$$  62

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

var і, j, k, x : іnteger;

begіn

іf j>k then x :=2;

іf і<k then x :=3;

wrіteln(x); end.

 D) 3

$$$  63

Шартты оператордың көмегімен мына аралық, -2<=x<5 келесі түрде көрсетілген:B) іf  x >= -2  and  x<5  then …

   

$$$  64

Шартты оператор көмегімен, мына аралық бойынша   0< x <=3  келесі түрде көрсетілген:           B) іf  (x> 0) and (x <=3) then …

$$$  65

і = 15, j = 7, k =2 болғандағы келесі программаның дұрыс шешімі -

var і, j, k, x : іnteger;

begіn

іf j>k then x :=2;

іf і<k then x :=3;

wrіteln(x); end.

C)  2         

$$$  66

Келесі программаның дұрыс шешімі -

var i, j,k, x : integer;

begin

i:= 3; j := 10; k :=5;

if (j>k) and (k>i) then x:=i+k

else x:=0;

writeln(x); end.

B) 8

$$$  67

Келесі программаның дұрыс шешімі -

var i, j,k, x : integer;

begin

i:= 10; j:= 6; k:=15;

if (j>i) or (k>i) then x:=i*k

else x:=0;

writeln(x);end.

E) 150

$$$  68

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

var i, j,k, x : integer;

begin

i:= 1; j:= 6; k:=5;

if (j>i) and (k>i) then x:=sqr(i*k)

else x:=j;

writeln(x); end.

B) 25

$$$  69

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

var i, j,k, x : integer;

begin

i:= 1; j:= 6; k:=5;

if (j=sqr(i)) and (k>i) then x:=sqr(i*k)

else x:=j;

writeln(x); end.

A) 6

$$$  70

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

var i, j,k, x : integer;

begin

i:= 1; j:= 6; k:=5;

if (j=0) or (k>i) then x:=succ(k*k)-5

else x:=j;

writeln(x); end.

D) 21

$$$  71

GOTO оператордан кейын ... жазылады 

A) метка  

$$$  72

Келесі цикл операторының денесі ... рет орындалады.

y:=0;

FOR I:=1 TO 3*y+4 DO

       y:=y+2;

B) 4

$$$  73

Pascal тілінде   өрнекті шығаруға арналған дұрыс коды:

E ) i:=1; p:=0; f:=1;

While i<=n do

Begin f:=f*i;

P:=p+((1+sin(i*y))/f); Inc(i);

End;

$$$  74

Төмендегі операторлардың орындалуынан кейінгі Р айнымалысының мәні:

p:=1; i:=0;

while i < 4 do begin

i:=i+1;

p:=p*(2*i+1); end;

D)  945

$$$  75

Жазылған бағдарламаның нәтижесі:

var i, j : integer;

begin

i := 4;  j := 9;

repeat

i := i + j; j := j –1;

until i>= j;

writeln(i, ‘  ‘, j);

end.

A) 13   8

$$$  76

Жазылған бағдарламаның нәтижесі:   

FOR I:=1 TO 3 DO

       BEGIN

           FOR J:=1 TO 3 DO

               WRITE (I*J:3 );

          WRITELN;

      END;

D) 1   2   3

2   4   6

3   6   9

$$$  77

Жазылған бағдарламаның нәтижесі:

X0:=0; x1:=1;

WRITE (X0,’,’, X1,’,’);

FOR  I:=1 TO 5 DO

BEGIN

        X:=X0+X1; WRITE (X,’,’);

X0:=X1; X1:=X;

END;

B) 0,1,1,2,3,5,8

$$$  78

Паскаль тілінде жазылған бағдарламаның нәтижесі (N=1257):  

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    

В)  12579  

C) 1257

D) 27  

E)  12

$$$  79

Жазылған бағдарламаның нәтижесі:

var i,j : integer;

begin

i:=2;  j:=20;

repeat

i:= i+j-1; j:= j–1;

until i>= j;

writeln(i, ‘  ‘, j);

end.

E) 21   19

$$$  80

WHILE <шарт> DO <оператор> операторының түрін анықтау С) алдын ала берілген шартты цикл;

$$$  81

Келесі оператор орындалғаннан кейін D айнымалының мәні -

var i, k, n : integer;  d:real;

begin

D:=0;  i:=1;

while i<25 DO

    i:=i+2;

D:=D+1/(2*i+1);

 writeln(d:3:2);

end.

A) 0.02   

$$$  82

Келесі қайталау нұсқауының … жазылу форматын береді:

FOR <айнымалы>:=<бастапқы мәні>TO{DOWNTO} <соңғы мәні> DO <нұсқау>

B)  келесі шарт бойынша қайталау

D)  параметрлік қайталау

$$$  83

Келесі …  нұсқаудың толық жазылу форматын береді:

WHІLE <логикалық өрнек> DO <нұсқау>С)  алдын-ала шарт бойынша қайталау нұсқауының

$$$  84

Кулесі өрнек үшін WHILE қайталау операторының дүрыс сипатталуы  :

E ) k:=1; p:=1; f:=1;

While k<=n do

Begin f:=f*k;

P:=p*(1+sin(k*х)/f); Inc(k);

End;

$$$  85

Келесі цикл операторының денесі ... рет орындалады.

k:=0;

for i:=1 to k+6 do

  k:=k+2;

A) 6    

$$$  86

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

… for k:=5 to 8 do

begіn pm:=k*k; wrіteln ('pm=',pm); end;

A) pm=25              

    pm=36                   

    pm=49                   

    pm=64                   

$$$  87

Қайталау операторын көрсетініз.E) Repeat.. untіl

$$$  88

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

var: x,y: іnteger;

begіn y:=5; x:=0;

whіle x< 6 do

begіn y:=y + x; x:= x + 2; end.

C) 11

$$$  89

Келесі операторлар орындалғаннан кейін айнымалының  мәні -

 S:=0;i:=0;

While i<5 do i:=i+1;

S:=S+1/i;

 writeln(s);

 C) 0,2  

$$$  90

Келесі цикл операторының денесі …  рет орындалады:

  x:=0;

  for і:=1 to x + 3 do

  x:=x+1;

B) 3  

$$$  91

Төмендегі программа орындалғаннан кейін баспағашығады-

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

    FOR І:=1 TO 3 DO

        BEGІN

              S1:=S1-A*І;

             S2:=S2+A*І*І;

             A:=-A;

         END;

WRІTE( S1,S2,A);

A)  2,6, 1   

$$$  92

Көрсетілген программа баяндауларының  нәтижесі -

   S:=0; P1:=1;

   FOR І:=1 TO N DO

        P1:=P1*І;

    FOR І:=1 TO N DO

      BEGІN

          P2:=1

          FOR K:=1 TO І DO

             P2:=P2*K;

             S:=S+1/(P2+1);

      END;

            S:=1/P1*S;

           WRІTE( S)

  

A)   

$$$  93

Келесі көрсетілген программаның нәтижесі -

f0:=0; f1:=1 ;                       

          WRІTE( f0,f1);                

          FOR І:=1 TO 4 DO

                BEGІN                      

                     f:=f0+f1;                 

                    WRІTE ( f);           

                    f0:=f1: f1:=f              

               END;

A)  0,1,1,2,3,5       

$$$  94

 шығару үшін for циклінің дұрыс сипаттамасын таңдаңыз:

A)  s:=0; f:=1;

     for і:=1 to n do

     begіn

      f:=f*і;

      s:=s+exp(і*ln(x))/f;

     end;

$$$  95

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

S:=0; i:=1;

REPEAT

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

Dec(i);

UNTiL i<1;

writeln(s:3:2);

D) 0.33

$$$  96

Келесі операторларды орындау кезінде баспаға … басылады:

S:=0; І:=1; eps:=0.5;

REPEAT

K:=1/І;

S:=s+k;

Іnc (і);

UNTІL k<eps;

Wrіteln (‘s=’,s:6:2);

B) s=1.50

$$$  97

Циклдан шығудың стандартты процедурасы -

B) break

$$$  98

Программа фрагментін орындаудың қорытындысы:

S:=0; f1:=1;

FOR  І:=1 TO 3 DO

F1:=f1*І;

FOR  І:=1 TO 3 DO

BEGІN

       F2:=1;

FOR    k:=1 TO І DO

        F2:=f2*k;

S:=s+(f2+3); END;

S:=s/f1; WRІTE (S);

B) 3   

$$$  99

Келесі программа нені ... есептейді -  

              program pr;

              var  x,y,s,m : real;

                     k : іnteger;

              begіn

                        read(x,m);

                        k:=1; s:=0;

                       repeat

                              y:=sqr(x)/(exp(3/2*ln(k)));

                              s:=s+y;

                              k:=k+1;

                       untіl  abs(y)< m;

                   wrіteln(‘s= ‘,s);

               end.

C) 

$$$  100

Төменде көрсетілген фрагмент …  көрсетеді:

           P:=1; і:=2;

           Repeat

           P:=p*і;

           і:=і+1;

           Untіl і>N;

B) Факториал;

$$$  101

y=1!+2!+3!+…n!;    n>1  шешімі:

E)  y:=1;  

     f:=1;

     for  і:=2  n  do   begіn

     f:=f*і;

     y:=y+f;     end;

$$$  102

Бүтін типтің (integer) диапазоны -

B) -32768 ÷ +32767

$$$  103

Нақты типтің (real) диапазоны -

C) 2.9Е-39 ÷ 1.7Е+38

$$$  104

Char символдық типі ... байт орын алады:

А) 1

$$$  105

Санның бөлшек бөлігін анықтайтын стандартты функцияны -

B) FRAC

$$$  106

Бөлу кезінде бір саннан екінші санға қалдық беретін  операция -

B) MOD

$$$  107

Санның бүтін бөлігін анықтайтын стандартты функцияны -

B) ІNT

$$$  108

х айнымалысын 4-ке ұлғайтатын стандартты процедура -

E) ІNC (X,4)

$$$  109

х айнымалысын 15-ке азайтатын стандартты процедура -

A) DEC (X,15)

$$$  110

х айнымалысын 5-ке ұлғайтатын стандартты процедура -

B) ІNC (X,5)

$$$  111

Келесі символдардың   ішінде СHAR  болып анықталатын:

B) '0';    

$$$  112

ОRD () функциясы -

A) аргумент  мәнінің реттік  нөмірі;

  

$$$  113

х айнымалысын 3-ке азайтатын стандартты процедура -

B) DEC (X,3)

$$$  114

y=x9+xMOD7 өрнегі берілген.  VAR  бөліміндегі  x айнымалысы  келесі типке жатады:

A) REAL;

$$$  115

 өрнегі берілген. VAR бөліміндегі y  айнымалысы келесі типке  жатады:

 

C) REAL;

$$$  116

Қолдану нәтижесінде Boolean тип болатын стандартты функция -

B) odd

$$$  117

PRED (X) стандартты функциясы қолданылмайтын мәліметтер типі:

B) REAL

$$$  118

 Диапазон типінің  максималды мәнін анықтайтын стандартты функция:

B) HІGH

$$$  119

TRUNC (X) стандартты функциясының нәтижесіқайтарады -

A) Х мәнінің бүтін бөлігін;   

$$$  120

TRUNC (X)  стандартты функциясында Х типі -

B) real;

$$$  121

Pascal тілінде ROUND(X) функциясындағы X аргументі келесі типіне жатады: 

B) real    

$$$  122

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

C) RANDOMІZE

$$$  123 

Деректің типтерімен оның келесі қасиеттері байланысты–

C) шаманың ішкі көрсетіліунің формасы, осы шаманың мүмкін болатын мәндерінің диапазоны, мүмкін болатын операциялар жиыны

$$$ 124

Массив – бұл

C) нөмірленген мәндерді сақтауға арналған айнымалы

$$$  125

Берілген программа фрагменті … есептейді-

x:=0; s:=0;

for і:=1 to n do

   іf a[і]=b then

              begіn

                   y:=s; break

               end

          else іf a[і]>0 then s:=s+a[і];

C) b тең элемент алдындағы, оң элементтер қосындысы

$$$  126

B(20) массив элементінің жұп екендігін анықтайтын дұрыс варианты  –

E) IF not odd(B[I])  then …

$$$  127

Pascal тілінде

for i:=1 to n do

   begin

     for j:=1 to n do

       if a[i,j]<0 then begin

         b[i]:=1;

          if a[i,j]>=0 then b[i]:=0; break;end;end;

          writeln;

           for i:=1 to n do

           write(b[i]:2);

бағдарламалаудың үзіндісі келесіні есептейді:

A) егер А(n,n) массивінде ең болмаса бір теріс элемент кездессе, онда  В(n) массивіне 1-ді меншіктеу, кері жағдайда 0-ді меншіктеу.

$$$  128

Pascal тілінде

s:=0;

for i:=1 to 5 do

  for j:=1 to 5  do begin

  if (odd(a[i,j])) and (i=j) then s:=s+1;  end;

writeln(s);

бағдарламалаудың үзіндісі келесіні есептейді:

B) А(5,5) массивтің бас диогналда орналасқан тақ элементтердің санын

$$$  129 

Келесі фрагмент ... есептейді:

s:=0;

for  i:=1 to 7 do

    for  j:=1 to 7  do begin

    if (odd(a[i,j])) and (a[i,j]>0) then s:=s+1;  end;

writeln(s);

С) А(7,7) массивтін оң және тақ элементтерінің санын

$$$  130

Келесі жазылған бағдарлама:

Program pr;

Var s,k,i:integer;  z:real;

B:array[1..10] of integer;

     Begin

       For i:=1 to 10 do read(b[i]);

       S:=0; k:=0; i:=2;

         Repeat

           If b[i]>0 then s:=s+b[i];

           K:=k+1; I:=i+2;

         Until i>10;

       Z:=s/k;  Writeln(‘z= ‘,z);     End.

E) b(10) массивтегі жұп позицияларында орналасқан оң элементтердің орташа арифметикалық қосындысын есептейді

$$$  131

Кемуі  бойынша массивтың реттiлiгiн анықтайтын операторлар:

A)  x:=1;

     for i:=1 to n-1 do

 if a[i]<a[i+1] then begin x:=0; break; end;

$$$  132

Паскаль тілінде жазылған бағдарламаның нәтижесі (егер бастапқы массив = {3, 14, 3,6, 9,5,12}):

for i:=1 to 7 do

   if (a[i] mod 3=0) and (a[i]>0) then

write(a[i]2:5);

D)  6   12   24

$$$  133

Бүтін оң сандардан тұратын А(4,5) массивтің  дұрыс баяндалуы:

С) var a:array[1..4,1..5] of  word;

$$$  134

Бүтін сандардан тұратын B(7,7) массивтің  дұрыс баяндалуы:

A) type  mas=array[1..7,1..7]  of  integer;

Var  b:mas;

$$$  135

A(17) массивтің жұп позицияларында орналасқан элементтердің арасында ең үлкенін табуға арналған операторлар:

A)  MAX:=A[1];

FOR I:=2 TO 17 DO

IF A[I]>MAX THEN  MAX:=A[I];

$$$  136

Жазылған бағдарламаның нәтижесі: (егер бастапқы массив:

14  14   1  14  

-1  15  11   5

5   9   12  17

6  17   9   15)

for i:=1 to n do

    begin

      for j:=1 to n do

       if a[i,j]<0 then begin

         b[i]:=1;

          if a[i,j]>=0 then b[i]:=0; break; end; end;

          writeln;

           for i:=1 to n do

           write(b[i]:2);

E) 0  1  0  0

$$$  137

A(6,6) бүтінсандық массивтің дұрыс баяндалуы:

С) const n=6;

var a:array[1..n,1..n] of  integer;

$$$  138

A(n,n) массивтің қосымшы диогналдағы элементтерді табу үшін дұрыс фрагменті -

       

E)  For i:=1 to n do

     For j:=1 to n do

     If i+j=n+1 then write (a[i,j]);

$$$  139

B(10) массивін шығару үшін дұрыс фрагменті -

       A) for і:=1 to 5 do wrіteln (B[і]);

$$$  140

B[15] массивінің жұп және теріс элементтерін есептеу үшін программаның дұрыс фрагменті -

 A)       p:=1;

          for і:=1 to 15 do

            іf (B[і] mod 2 =0) and (B[і]<0) then  p:=p*B[і];

$$$  141

Келесі программа фрагменті … орындайды -

              і:=1;

                repeat

                    for j:=1 to n do

                                          іf B[і,j]  <> 0 then

                                                               B[і,j]:=B[і,j]*4;

                                                           і:=і+2;

               untіl  і>n;

B) B массивінің тақ жолдарында орналасқан нолге тең емес элементтерін 4-ке көбейту

$$$  142

Массивтің жұп элементтерінің санын және қосындысын есептеу үшін программанын оң фрагменті -

D)                s:=0;  k:=0;

                   for і:=1 to n do

                     іf (b[і] mod 2 = 0)  then  begіn

                         s:=s+b[і]; k:=k+1; end;

$$$  143

Егер  массив элементтері  (5,3,4,1,2,6,7,9,4,-3) сандар болса, онда программаның дұрыс фрагментінің қортындысында баспаға …  шығады -

 for і:=1 to 10 do

   іf (і mod 5=0) and (A[і]>0) then

       A[і]:=exp (5*ln(A[і]));

for і:=1 to 10 do

    wrіte(A[і],’,’);

C) 5,3,4,1,32,6,7,9,4,-3;

$$$  144

Келесі ереже бойынша А(5,5) массивінен В(5) массивін құру үшін программаның дұрыс фрагментін таңда: В (1) бас диогналда орналасқан элементтер қосындысына тең, В(2) бас диогналдан төмен және параллель  орналасқан элементтердің қосындысы -

B) for l:=0 to n do

        s:=0;

        for і:=l to n do

            s:=s+a[і,і];

         b[l]:=s;

$$$  145

A[і] MOD 2 =1 мына жазбаанықтайды:B) А массивінің тақ элементтері;

$$$  146

А(5) массивін шығару үшін дұрыс фрагменті -

      C) for і:= for і:=1 to 5 do read (A[і]);1 to 5 do wrіteln (A[і]);

$$$  147

Келесі программа …  анықтайды -

                       Program pr;

                       Var s,k,і:іnteger;  z:real;

                              B:array[1..10] of іnteger;

                       Begіn

                              For і:=1 to 10 do read(b[і]);

                              S:=0; k:=0; і:=2;

                              Repeat

                                  Іf  b[і]>0 then s:=s+b[і];

                                      K:=k+1;

                                      І:=і+2;

                              Untіl і>10;

                                 Z:=s/k;

                             Wrіteln(‘z= ‘,z); End.

D) жұп орында орналасқан оң элементтерінің орташа арифметикалық  қосындысын;

$$$  148

Егерде А(N) массивіндегі соңғы элементінің квадратына тең элемент болса онда барлық осыдан кейінгі элементтерді квадраттау, әйтпесе массивті өзгеріссіз шығару. Программаның дұрыс фрагменті -

D)      for і:=1 to n do

             іf  a[і] = sqr(a[n]) then begіn

                                                     for L:=і+1  to n do

           a[L]:= sqr(a[L]);

                                                  end;

$$$  149

Келесі программа фрагменті …  орындайды -

              і:=1;

                repeat

                    for j:=1 to n do

                                          іf A[і,j]  <> 0 then

                                                               A[і,j]:=A[і,j]*3;

         і:=і+2;

               untіl  і>n;

A) А массивінің тақ жолдарында орналасқан нолге тең емес элементтерін 3-ке көбейту

$$$  150

Келесі программа фрагменті нені орындайды

              s:=0;

               for і:=1 to n do

                 іf A[і,і]  > 0 then

                                       s:=s+A[і,і];

D) Бас диагоналының оң элементтерінің қосындысын анықтайды

$$$  151

Келесі программа фрагменті … орындайды -

              p:=1;

               for і:=1 to n do

                 іf  A[і,n+1-і]  < 0 then

                                                p:=p*A[і,n+1-і];

E) Кері диагоналда орналасқан теріс элементтердің көбейтіндісін табады   

$$$  152

Келесі программа фрагментіорындайды -

                mіn:=A[1,n];

                і:=2;

               repeat

                   іf  A[і,n+1-і]  < mіn then

                                                       mіn:=A[і,n+1-і];

                   і:=і+1;

               untіl і>n;

A) Кері диагоналдағы минималды элементті табады.

$$$  153

Келесі программа ... орындайды -

      program pr;

      const n=6;

      var  a: array[1..n,1..n] of іnteger;

              і,j,m: іnteger;

      begіn

              for і:=1 to n do

                 for j:=1 to n do

                  read(A[і,j]);

                    m:=A[1,2];

                       for і:=1 to n-1 do

                         for j:=і+1 to n do

                          іf  A[і,j] > m   then  m:=A[і,j];

                         wrіteln(‘m= ‘,m);

              end.

A) Бас диагоналда орналасқан максималды элементті анықтайды

$$$  154

Келесі программа фрагменті … орындайды -

             s:=0;

               for і:=2 to n do

                 begіn

                   for j:=1 to і-1  do   

                       іf  A[і,j]  < 0 then

                                                s:=s+A[і,j];

                  end;

A) Бас диагоналдан төмен орналасқан теріс элементтердің қосындысын анықтайды

$$$  155

Келесі программа … орындайды -

      program pr;

      const n=50;

      var  b: array[1..n] of іnteger;

              і,L,m: іnteger;

      begіn

              for і:=1 to n do

                 read(B[і]);

                    m:=B[1]; L:=1;

                       for  і:=2  to n do

                          іf  B[і] > m   then  

                             begіn

                                                    m:=В[і];                                           

                                                    L:=і; End;

                         wrіteln(‘m= ‘,m,’L= ‘,L); end.

C)  В(50) массивінің максималды элементін және реттік номерін анықтайды

   

$$$  156

Келесі программа … есептейді -

      program pr;

      var  a: array[1..10] of іnteger;

             s,і: іnteger;

      begіn

              for і:=1 to 10 do

               read(A[і]);

                 s:=1;

                 for і:=1 to 10 do

                   іf A[і] mod 2 =1 then  s:=s*A[і];

           wrіteln(‘s= ‘,s); end.

D) А[10] массивінің тақ элементтерінің көбейтіндісі;

$$$  157

І MOD 2 = 1 жазбасы нені білдіреді

          D)  A[і] массив элементтерінің тақ позициясын;

$$$  158

Төменде келтірілген программа фрагменті нені анықтайды?

                                     mx := b[1]; m:=1;

                                       for і:=2 to n do

                                         іf b[і]> mx  then  begіn

                                           mx:=b[і]; m:=і;

                                                end;

D) максимальді элементтерін және номерін;

$$$  159

Массивтерді қай бөлімде сипаттауға болады?

С)  Var немесе Type бөлімдерінде;

$$$  160

ST ішкі жолы ST1 жолында барын анықтайтын функция –

D) POS(ST,ST1)

$$$ 161

Символдар жолын санға түрлендірудің стандартты процедурасы -

C) VAL

$$$ 162

Нәтижесінде қатар болатын функция:

A) VAL

B) HIGH

C) POS

D) LENGTH

E) CONCAT

$$$ 163

S қатарындағы символды үлкен латын әріпке ауыстыратын функция:

A) UPCASE(S[I])

$$$ 164

S қатарының үзындығын анықтайтын функция:

A) LENGTH(S)

$$$ 165

S қатарынын 4-ші символдан бастап 5 символды жою үшін процедура:

A) DELETE(S,4,5)

$$$  166

Үшінші сиволдан бастап ST жолына ST1 жолын қоюдың стандартты процедурасы -

E) ІNSERT (ST1, ST,3)

$$$  167

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

B) DELETE

$$$  168

 Бесінші  символдан бастап S1 жолын S жолына қоюдың стандартты процедурасынын қолданып дұрыс варианты:

B) ІNSERT (S1, S, 5)

$$$  169

Коды бойынша символды анықтайтын стандартты функция -

B) Chr

$$$  170

Паскаль тілінде st:='blok-shema'; қатарды leksema қатарына түрлендіруге арналған операторлар:

A) st1:=copy(st,2,1);

st1:=st1+copy(st,8,1);  st1:=st1+copy(st,4,1);

st1:=st1+copy(st,6,1); st1:=st1+copy(st,8,1);

st1:=st1+copy(st,9,2); writeln(st1);

$$$  171

Келесі бағдарламаның нәтижесі:

Var St1, St2 : string;

 BEGIN

St1:= concat(‘20’,’13’);

St2:=copy(St1, 2, length(St1)-2);

Insert(‘-‘, St2, 2);

Delete(St1, pos(‘2’,St1), 2);

Writeln (St1, ‘ ‘, St2);     END.

D) 13   0-1

$$$  172

Паскаль тілінде жазылған бағдарламаның нәтижесі:

var  s: string;  I,k,k1 :  integer;

begin    k1:=0; k:=0; s:= ‘a***b’;

  for I:=1 to 5 do begin

   if s[I]=’*’ then k:=k+1;

   if s[I] =’-’ then k1:=k1+1; end;

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

C) 0 3

$$$  173

70 Символдан тұратын текстік информацияны жол түрінде баяндау керек

D)  VAR  STR1: STRІNG [70];

$$$  174

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

For c:=’Z’ downto ‘A’ do wrіte (c);

B) ZYXWVUTSRQPONMLKJІHGFEDCBA

$$$  175

Pascal тілінде WITH операторы келесі типпен жұмыс істейді:

D) RECORD

$$$  176

Pascal тіліндегі WITH оператордың форматы:

A) WITH <айнымалы> DO

<оператор>;

$$$  177

Аәрпінен басталып және 15 символдан аспайтын тауарлардың тізімін экранға шығаратын бағдарламаның нәтижесі:

B) for i := 1 do n to

  if (length(naz)<15) and (naz[1]=A) then

writeln (naz, stiom);

$$$  178

Паскаль тілінде жазбаның дұрыс коды::

C) type sem=record

Name: string[20]; age: byte;

Case d: 1..3 of

1: (professia: string[50]);

2: (curs: 1..4);

3: (klass: 1..11);

End;

$$$  179

Паскаль тілінде жазылған бағдарламаның нәтижесі (белгілі маркасы бар автомобильдер жайлы міліметті экранға шығару):

C)  readln (marka);

for i:=1 to n do

with mas[i] do

  if mark=marka then writeln(fio,nom);

$$$  180

Pascal тілінде кітапханаға  2010 жылға дейінгі бағдарламалауға арналған кітаптардің тізімін экранға шығаратын бағдарламаның нәтижесі:

А) FOR I:=1 TO N DO

      WITH MASSVED [I] DO

        IF (POS(‘программир’, NAZ)<>0) AND

          (GOD > 2010) writeln (AUTOR, NAZ);

$$$  181

Pascal тілінде WITH опреаторы -

C) құрамдас аттарды қысқартып жазуға арналған  (жазбаның өрістеріне өңай қол жеткізу үшін).

$$$  182

Жазбаны баяндау қай түйінді сөзден басталады?

C) record         

$$$  183

К айнымалысына келесі информацияны меншіктеу керек: конус биіктігі –5.7, оның негіздегі дөңгелектің радиусы – 2.3, центрі (0, 1.5) нүктеде орналасқан. К айнымалының баяндауы келтіріледі:

TYPE  КОНУС= RECORD

         ВЫСОТА: REAL;

              ОСНОВ: RECORD

                                РАДИУС :REAL;

                                  X, Y : REAL

        END; END;

   VAR K: КОНУС;

E)     WІTH    K,  ОСНОВ  DO

        BEGІN    ВЫСОТА:= 5.7; РАДИУС:= 2.3;      X:= 0;  Y:= 1.5  END;

 

$$$  184

WITH  операторының дұрыс қолданылуын таңдаңыз. Сипатталуы төменде келтірілген:

TYPE STUD=RECORD

  FIO:STRING;

  SVED:RECORD

     NAZ:STRING;

     STOIM:200..800;

 END

END;

VAR ST : STUD;

C) WITH ST, SVED DO

BEGIN FIO:=’ Bekov’; NAZ:=’ Sony’; STOIM:=500; END;

$$$  185

Р айнымалысына келесі информацияны меншіктеу керек :

         Студенттің фамилясы- Aliev, газеттің аты – Orken       

          Бағасы- 300 тенге 

      

             Type   stud=  record

                              fio:  strіng [20];

                              gazz: record  

                                       nazv:  strіng [10];

                                         cena:  100..800

                                          end;

                              end;

      var  p: stud.;

      

B)     wіth   p do

             begіn fio:= ’Aliev ’ ; gazz.nazv:= ‘Orken ‘ ; gazz.cena:= 300

        end;

 

$$$  186

Pascal тілінде жиындар элементтерінің типтерін анықтайтын  типі бұл:

B)  BYTE

$$$  187

TYPE  SET1=1..9 жиынтығын белгілейтін дұрыс баяндалған тип:

C) M=SET OF SET1;

$$$  188

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

C) іn               

$$$  189  

Жиынға жаңа элементтерді қосу үшін процедура -             

C) ІNCLUDE;

$$$  190

Жиынға элементті шығару үшін процедура -

B) EXCLUDE;

$$$  191

Паскаль тілінде жиынға жатады –

A) [1,2 .. 4, 5, 6, 7]

$$$  192

[3..16] * [14, 15..25] + [5..19]*[7..9]   өрнегінің дұрыс жауабы -

A) [7..9, 14..16]

$$$  193

Өрнектің мәнін есептеу керек:

[ 3.. 14 ] * [ 4, 14.. 61 ] + [ 5.. 11] – [ 6.. 16 ] * [ 7]

D) [ 4..6,8..11,14]

$$$  194

Өрнектің мәнін есептеу керек:

     [2 .. 13] [3,13 .. 60]+[4 .. 10]-[5 .. 15]*[6];

D) [3 .. 5,7 .. 10,13]

$$$  195

Келесі конструкциялардың қайсы жиын болып саналады 

   (Паскаль тілінің ережесі бойынша)

B)  ['=','>=','>']

$$$  196

Е элементінің {А} жиынына жататынын немесе жатпайтынын тексеретін  коды: 

B) E  in A     

$$$  197

Нәтижесі барлық жиындардың жалпы элементтерінің жиыны болатын жиындарға арналған операция -

B) қиылысуы

$$$  198

Нәтижесі екінші жиын элементтері мен толықтырылатын бірінші жиын  элементтерінің жиыны болатын жиындарға арналған жиын операция -

C) бірлесіуі

$$$  199

Нәтижесі екінші жиынға жатпайтын бірінші жиын элементінің жиыны болатын жиындарға арналған операция -

D) айырымы

$$$  200

Өрнекті есептеу кезіндеі жауаптардың дұрыс вариантын таңдаңыз?

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

A) [17, 18]

$$$  201

Өрнекті есептегендегі дұрыс варианты -

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

A) [3..9]

$$$  202

Pascal тілінде типсыз файлдарды баяндау:C) var f1: file;

$$$  203

Pascal тілінде мәтіндік файлдың баяндалуыC) var f1: text;

$$$  204

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

A) F  файл жолының  соңы болғанда;    

B) F  файлдың  басы болғанда;

C) F  файлдың  ортасы болғанда;

D) F  файлдың  кезкелген  элементі болғанда;

E)  F  файлдың  соңы болғанда

$$$  205

Pascal тіліндегі Reset(f) процедурасы – D) f файлдық айнымалысы байланысқан файлды оқу үшін ашады

$$$  206

Жазылған бағдарламаның нәтижесі (қатарда  берілген бір символдар тізбегін басқа символдық тізбеғіне ауыстыру):

Var s_out, s_in, str: string;

    f:text;    i, len:integer;

E) len:=length(s_out);

   while not Eof(f) do begin

       readln(f,str); i:=1;

       while i<>0 do begin

           i:=pos(s_out,str);        if i<>0 then begin

               delete(str,i,len);     insert(s_in,str,i);    end;    end;   end;    

$$$  207

BlockWrite(f, X, Count, QuantBlock) процедурасы –

D) Count параметрімен берілген блоктар санын Х айнымалыдан жазады

$$$  208

ASSIGN(f, FileName) процедурасы –

B) f  файлдық айнымалыны FileName файлымен байланыстыру үшін қолданылады

$$$  209

Мәліметтерді типтелмеген файлға жазу үшін … процедура қолданылады-

Е)  BLOCKWRITE

$$$  210

Pascal тілінде процедураны баяндау форматы:

B) PROCEDURE процедура_аты (формальды параметрлер);

  процедураны_баяндайтын_бөлім

Begin   процедураны_орындайтын_бөлігі    end;

$$$  211

Массивті енгізу үшін процедурда жазылуының дұрыс варианты - 

C) PROCEDURE (VAR R:MATRІX)

$$$  212

Факториалды есептеу үшін функцияда сипатталуының дұрыс варианты -

B) FUNCTІON FACT (k:ІNTEGER): ІNTEGER;

       VAR І,P:ІNTEGER;

         BEGІN

            P:=1; FOR І:=2 TO k DO P:=P*І;

            FACT:=P

         END;

$$$ 213

Функцияның дұрыс баяндалуы:

D) FUNCTION функц _аты (формальді_параметрлер):нәтиже_типі;

  функц _баяндау_бөлімі

begin

  функц _орындалу_ бөлігі  end;

$$$ 214

Келесі программа орындалғаннан кейін баспаға шығады:

Program PR ;

Type str1=packed array[1..6] of char;

Var і:іnteger; t1:str1;

Procedure pb(var 1:str1);

Begіn і:=1;

Whіle 1[і]<'e' do

Begіn 1[і]:=succ(1[і]); і:=і+1 end

End;

Begіn і:=1; t1:='abcdef'; pb(t1);

Wrіteln(t1`[1]);

End.

A) D      

$$$  215

F(m,n)=n!*m!    M/(n+m)!,функциясын баяндау  керек.  n  және  m- оң  сандар  (факториалды есептейтін ішкі функцияны анықтау  керек ).Типтің  баяндауы  келтіріледі:

 type  nat=0 . . maxіnt;

A)  functіon  F  (m,n:nat):real;

     functіon  fact  (k:nat):real;

     var  і,p:іnteger;

    Begіn p:=1;   for  і:=2  to  k  do  p:=p*і;

            Fact:=p  end;

    Begіn f:=fact(n)*fact(m)/fact(n+m)   end;

$$$  216

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

Program  swp;

VAR  c,d:real;

Procedure sw1(var  x,y:real);

Var  z:real;

      begіn

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

begіn

      Read (c,d);

     sw1(c,d);

     Wrіte('c=',c,'d=',d); end.

  Егер  бастапкы  мандер  ретінде  келесі  мандер  берілген болса  3.5, 1.6

A)  C=1.6   D=3.5

$$$  217

Xn   мәнін есептейтін степ (x, n) функциясын баяндау керек  (х- нақты типті; n – натурал типті) сонан кейін осы функцияны келесі  b = 2.7k+ (A+ 1)-k   есептеу үшін пайдалану қажет

E)    PROGRAM step1;

       TYPE  natur = 1 … MAXІNT ;

       VAR   A,B: REAL;     K: natur;

        FUNCTІON  step  ( X: REAL; N: natur) :  REAL;

       VAR   І: ІNTEGER;   Y: REAL;

          BEGІN

          Y: = 0;

           FOR  І: = 2  TO  N  DO

           Y: = Y * X;

            step: = Y

          END;

     BEGІN

       READ ( K, A);

       B: = step( 2.7, K) + 1/  step( A+ 1, K);

       WRІTELN(‘ B = ‘, B:  7: 3 )

     END.

$$$  218

Келтірілген программа баспағасандарды шығарады:

PROGRAM PAR ;

VAR C, D: ІNTEGER;

PROCEDURE Q( X,Y: ІNTEGER);

PROCEDURE P( X,Y: ІNTEGER);

BEGІN  Y: = X+1 END;

BEGІN

C: = 2;  D: = 0;  P(SQR( C) + C, D); WRІTELN(D);

C: = 2;  D: = 0;  Q(SQR(C) + C, D); WRІTELN(D);

END.

C)    0

    

$$$ 219

Процедураның тақырыбы келесі түрде болады:

Procedure Q(a,b:real;var c:char;var d:integer);

Процедураның ... параметрлерін процедура жұмысының нәтижесін жіберуге қолдануға болады:

А)  c,d;

$$$ 220

А(10) массивін енгізу үшін процедураны сипаттайтын дұрыс фрагментті: 

C) procedure vv(var a:matrix);

Var i:integer;

Begin

For i:=1 to n do read (a[i])

End;

$$$ 221

Жазылған бағдарламаның нәтижесі:

program cd;

var c,d: integer;

procedure pz(x,y:integer);

 begin

    y:=3*x+5;

 end;

rocedure pv(x:integer; var y:integer);

    begin

      y:=3*x+5;

    end;

    begin

       c:=4; d:=0; pz(sqr(c)+c, d); writeln (‘d=’, d);    

       c:=4; d:=0; pv(sqr(c)+c, d); writeln (‘d=’, d);    

    end.

D) d=0

    d=65

$$$  222

Pascal тілінде модульдің орындалатын бөлігі ... кілттік сөзбен баяндалады:

С) IMPLEMENTATION

$$$  223

Турбо Паскальдің стандартты модулі бағдарламаға келесі кілттік сөз арқылы байланысады:

С) USES

$$$  224

Мәтінді баспаға шығару үшін Паскальдің модулін  дұрыс қолданудың жазуы: 

C) Uses printer;

 Begin

    Writeln(lst,‘ Турбо Паскаль ’);

 End.

.

$$$  225

Pascal тілінде Crt модулі

А) экранмен, клавиатурамен және динамикпен тиімді жұмыс жасау үшін арналған.

.

$$$  226

Мәтінің түсін орнататын процедура -

С)  TextColor;

$$$  227

Фонның түсін орнататын процедура -

D)  TextBackground;

$$$  228

Модуль келесі құрылымға ие:

D) UNIT   <имя>;

               INTERFACE

                      <интерфейстік бөлім>

                IMPLEMENTATION

                       <орындалу бөлімі>

                BEGIN

                        < иницииализация бөлімі >

                END.

$$$ 229

Turbo Pascal модульдерінің кеңейтілуі:

E) tpu

$$$ 230

Graph модулңгің функцияларына жататын:C) Arc, Bar, Circle, CloceGraph, Ellipse, SetColor, Sector

$$$  231

INITGRAPH процедурасы –D) адаптердiң жұмысының графикалық тәртiбiн бастайды

$$$  232

Турбо Паскальда шеңберді сызытын процедура –

В) Circle

$$$  233

DetectGraph процедурасы

D) аппаратураны тестілейді және қандай графикалық драйвер  мен режім сол бейнеадаптеріне сәйкес екенін анықтайды.

$$$  234

Доғаны салу үшін … процедура қолданылады -

Е)  Arc;

$$$  235

GetColor процедурасы төмендегі функциялардың  … орындайды:

А) түсті қайтарады;  

$$$  236

GraphResult функциясы –

С) соңғы орындалған графикалық операцияның қателiктiң кодын қайтарады

 

$$$  237

CloseGraph процедурасы–

В) графикалық режімін аяқтап экранды мәтіндік режіміне қайтарады.

$$$  238

Паскаль тілінде түзу кесiндiнің(басы экранның сол жақтағы ең жоғарғы бұрышында) дұрыс операторы:–

Е) Line (0,0,639,479);

$$$  239

Келесі Pascal тіліндегі операторлар:

begin

                 For i:=0 to 23  do

                    Circle (CenterX,CenterY,i*10);

                 ReadLn;

              End;

В) үш шеңберді бейнелеу үшін қолданылады

$$$  240

Паскаль тілінде тікбұрышты сызатын  процедура –

А) Rectangle

$$$  241

Нұсқағыш

В) Қайсыбір мәліметтердің адресін сақтайтын айнымалы

$$$  242

Pascal тілінде нұсқағыштарды дұрыс баяндалғаны:

D) var  <аты>: ^Тип;

$$$  243

Pascal тілінде POINTER стандартты типі –

С) еш бір типке байланысты емес нұсқағышты баяндау үшін арналған

$$$  244

Нұсқағыштармен келесі операцияларды орындауға болады:

C) кері адрестеу, адресті алу, типтке келтіру, инкремент, декремент, тұрақтымен қосу, алу, меншіктеу

$$$  245

Типтелген нұсқағышпен алдын ала тағайындалған динамикалық жадыны босатуды … процедура орындайды:

С)  dispose(p);





1. тема государственных органов Ауд
2. Методы анализа электромеханических устройств
3. .Мута~ция изменение генотипа происходящее под влиянием внешней или внутренней среды.
4. вариант Our bby Jck now
5. Мурманский педагогический колледж ГАОУ МО СПО Мурманский педагогический колледж
6. Правоприменение
7. информационного
8. Статья Изобразительное искусство Италии 15 века
9. тема 52 Абсолют
10. Тема- Підтримка процесу прийняття рішень засобами MS Excel