Мұндағы: REPEAT (қайталау) және UNTIL (дейін) – қызметші сөздер;
<шарт> - логикалық типті өрнек;
REPEAT операторының орындалу тәртібі
1. Алдымен REPEAT сөзінен кейінгі операторлар тізбегі орындалады;
2. UNTIL сөзінен кейінгі шарт тексеріледі;
3. Егер өрнектің мәні False (жалған) болса, онда цикл қайталанады. True (ақиқат) болса аяқталады.
Begin . . . End операторлық жақшаларды қолданбаса да болады, себебі мұнда операторлар Repeat . . . Until аралығында жазылып сол жақшалардың функциясын орындап тұр.
Мысалы: y= 3x+1, мұндағы x, -1 мен 2 аралығындағы сандарды қабылдайды, қадамы 0,5 тең.
Program eseptey;
Var x, y: real;
Begin
x:= -1;
Repeat y:= 3*x +1
Writeln (‘y=’ , y);
x:= x+0.5;
Until x > 2
End.
Компьютермен жұмыс
№1. P = 1*2*3* . . . *NN! факториалды табу программасын жаз.
Program fakt;
Var i, n, p: integer;
Begin
Writeln (‘n= butin sanin engiz’);
Readln (n);
i:=1;
p:=1;
repeat
p:=p* i;
i:=i+1;
Until i> n;
Writeln (‘p=’ , p:4);
End.
№2. y= 3x+1, мұндағы x, -1 мен 2 аралығындағы сандарды қабылдайды, қадамы 0,5 тең.
Program y-tabu; {REPEAT бойынша}
Var x, y: real;
Begin
x:= -1;
Repeat y:= 3*x +1
Writeln (‘y=’ , y);
x:= x+0.5;
Until x > 2
End.
Program y-tabu; {WHILE бойынша}
Var x, y: real;
Begin
x:= -1;
While x<= 2 do
Begin y:= 3*x +1;
Writeln (‘x=’ ,x:5:2, ‘ , ‘ ,‘y=’ , y:5:2);
x:= x+0.5;
end;
End.
№3. аралығында 0,2 қадамман өзгергендегі функциясының мәнін тап.
Program esep;
Var x, y: real;
Begin
x:=1;
Repeat
y:= sqrt(x+1) – 1/x;
Writeln (‘x=’ , x:3, ‘y=’ ,y:5);
x:=x+0.2;
Until x> 3
Readln;
End.
№4. n! есептейтін программа құр.
№5. 1-ден 100-ға дейінгі сандардың қосындысын, көбейтіндісін есептеудің программасын құру.
№6. X=8, 6, 4, 2 болғанда y = x2 мәндерін табатын программа құр.
Сабақты бекіту сұрақтары
Қайталау операторлары не үшін қолданылады?
Цикл дегеніміз не?
Қайталау операторларының неше түрі бар?
REPEAT қандай оператор?
REPEAT операторының жалпы жазылу түрі қандай?
Үйге тапсырма: 3.7 тақырып Repeat операторы. 103 бет, 9 тапсырма.
Оставьте свой комментарий
Авторизуйтесь, чтобы задавать вопросы.