Паскаль тілінде тұрақтыны қалай анықтаймыз?

А) const n=5 Ә) const n:=5 Б) const n=5 of integer В) const n:=5;

А) read (a) Ә) write (a) Б) Input (a) В) Print a

А) параметрсіз цикл Ә ) Параметрлі цикл Б) Енгізу операторы В) Шығару операторы

А) read - мәндер клавиатурадан енгізіледі

readln – тізімінде меншіктеу операторы жазылуы мүмкін;

Ә) read - мәндерді бір жолға енгізу readln - әр бір мән келесі жолға енгізу;

Б) read – қарапайым айнымалылар мәндері енгізіледі readln – массив мәндер енгізіледі

В) read - константа жазылады; readln – матрица мәндер жазылады

А) құрама шартта Ә) жай шартта

Б) таңдау операторында В) көмекші программада

29. Қай белгі әрбір жолдан кейін міндетті түрде қойылады?

А) : Ә) ; Б) . В) ,

А) ** Ә) ^ Б) sqr В) sqrt

А) WHILE Ә) FOR Б) REPEAT В) DOWN TO

А) Параметрсіз цикл Ә) Парамтерлі цикл Б) Енгізу операторы В) Шығару операторы

• 
  Шартты оператордың қандай түрлері бар?
  
• 
  If операторының жалпы жазылу түрі қандай?
  
• 
  Таңдау операторы не үшін пайдаланылады?
  

Көп жағдайда аргументтердің әртүрлі мәні бойынша алгоритмнің белгілі бір бөліктерін бірнеше рет қайталауға тура келеді. Осындай процестерді ұйымдастыру үшін циклдық құрылымды алгоритмдер – қайталау операторлары қолданылады.

Цикл деп программадағы қайталанатын әрекетті айтады. Паскаль тілінде қайталау процесін жүзеге асыратын циклдік операторлардың үш түрі бар: арифметикалық цикл – FOR, шартын алдын ала тексеретін цикл – WHILE , шартты соңынан тексеретін цикл – REPEAT операторлары.

WHILE операторы. Алдын ала берілген шарт бойынша қайталуды жүзеге асыратын бұл оператор WHILE (оқылуы: уаил, аударылуы: әзірше) және DO (оқылуы: ду, орындау болып аударылады) түйінді сөздері қолданылып аударылады.

Цикл қайталанар алдында, логикалық өрнектің мәні тексеріледі. Егер True (ақиқат) болса, онда цикл денесі қайталанып орындалып отырады. Керісінше False (жалған) болса, циклдің орындалуы аяқталып, WHILE операторынан кейінгі жолдар орындалады.

Егер, ең басында өрнектің мәні False (жалған) болса, онда цикл бір ретте орындалмайды.

Мысалы: y = 3x+1, мұндағы х, -1 мен 2 аралығындағы сандарды қабылдайды, қадамы 0,5 тең.

Program eseptey;

Var x, y : real ;

Begin X:=-1;

While x<=2 Do

Begin Y:=3*x+1

Writeln (‘ x=’,x , ‘ ‘ , ‘y=’ , y) ;

X: = x+0.5;

End;

End.

Бұл оператор Repeat (оқылуы: рипит, қайталау болып аударылады) және Until (оқылуы: антил, дейін, шейін болып аударылады) түйінді сөздерін пайдаланып орындалады.

№12 Р=1*2*3 … * N N ! факториалды табу программасын жаз.

Program fakt;

Var I , n , p: integer;

Begin

WriteLn ( ‘ n= ‘);

I: = 1;

Repeat

I:= i+1;

Writeln (p:4);

End.
№13. у =3x+1 x €[1 ; 2 ], h =0,5 өрнегін WHILE, REPEAT операторларын пайдаланып программа құр.

Program y-tabu;

Var x , y : real ;

Begin

Repeat

WriteLn (‘ y = ‘ , y);

X:=X+0,5;

Until x>2;

Var x, y: real;

Begin

X:=1;

y:= sqrt (x+1)-1/x ;

Writeln ( x:3, y:5);

x:=x+0.2;

until x>3

readln;

Program kvadrat;

Var s, i , n: integer;

Begin

Readln (n);

I:=1;

S:=0;

Begin S:=S + sqr (i);

I:= i+1;

WriteLn (‘ S=’ , S);

End;

End.
№10. Y= e^x sinx+cosx функциясының мәндерінің [a, b] аралығында h қадамы бойынша өзгеру кестесін құратын программа құрыңдар.

Var x, y, a, b, h: real;

Begin

WriteLn (‘ a , b , h -? ’);

X:= a;

Begin

WriteLn (‘x=’, x:5:2, ‘, ‘ , y= ‘, y:5:2);

End;

y=

Program esep;

Var x, y: real;

Begin

While x<=3 do

Begin y:= sqrt (x+1)-1/x;

Writeln (‘ x=’ , x, ‘y=’, y);

x:=x+0.2;

end;

end.