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

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

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

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

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

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

от 25%

Подписываем

договор

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

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

$$$ 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. Тема 17. Мережа 100VGАny LN VLN
4.  Основные таможенные режимы
5. Исследование тианептина при больших депрессивных эпизодах1
6. ЯлинкаГРУДЕНЬ 115 Ходьба за вихователем у колоні по одному зі зміною темпу 30 сек біг у середньому темпі1
7. по первой части психологии ПСИХОЛОГИЯ ОБРАЗОВАНИЯ Психология обучения и воспитания Пс
8. экономического обоснования ТЭО проекта рабочего проекта рабочей документации обычно разрабатывает сл
9. 1адреномиметики- анеселективнае адреном
10. Word 97
11. по теме Создание формы в MS Office ccess 2003 Научнометодическое обоснование темы- ccess предоставляе
12. Реферат- Невербальные способы общения в психологии
13. 9 [1]; ~ удельное индуктивное сопротивление провода А70 для воздушной линии электропередачи напряжением 610
14. Этапы построения образовательного процесса
15. . I enjoy plying2. I denied steling Often we use the gerund for n ction tht hppens before or t the sme time s the ction of the min verb
16. сульфит агар Паратиф А Сальмонеллез Готова
17. Ленинград в годы войны
18. тематика вищих рослин .
19. Blnced Scorecrd - взгляд в будущее
20. фотография переводится как светопись что отражает основополагающую роль света в процессе фотографиров