Сабақ 1 Мектеп:№4 мектеп-лицей Қатысқандар саны: Қатыспағандар саны: Сабақтың тақырыбы

жүктеу/скачать 23,62 Mb.

бет	89/111
Дата	20.04.2022
өлшемі	23,62 Mb.
	#140159
түрі	Сабақ

1 ... 85 86 87 88 89 90 91 92 ... 111

Байланысты:
8 сын Инфор КМЖ обн

DOWN төмен, TO
IV. Қолдану

FOR операторы. Егер алгоритмде қайталану саны алдын ала белгілі болған жағдайда FOR операторы қолданылады. Бұл оператор параметрлі цикл операторы деп те аталады.
. Жазылу үлгісі:
FOR<цикл парамері>:=n1 TO n2 DO
<цикл денесі>;

FOR< цикл парамері>:=n2 DOWNTO n1DO
<цикл денесі>;
Мұндағы FOR (үшін), TO (дейін), DO (орындау) – қызметші сөздер;
<цикл парамері>:= - циклді басқару айнымалысы, Integer типті (немесе) кез келген реттелген тип) . n1, n2 – цикл параметрінің бастапқы және соңғы мәндері, ( типі циклді басқару айнымалысымен сәйкес). (кері қарай, DOWN төмен, TO дейін). Егер қадам -1 ге тең болса онда операторда ТО, ал қадам -1 –ге тең болса онда DOWNTO сөзі қолданылады.
FOR операторының орындалу тәртібі
Ең алдымен мән есептеліп цикл парамеріне меншіктеледі. Содан кейін мына әрекеттер қайталанады:

<цикл парамері> - <=n2 -шарты тексеріледі, егер шарт орындалса, онда:
Цикл денесіндегі оператор орындалады
Цикл параметріне 1 қосылып, 1-ші пунктқа оралады.

(DOWNTO болса, <цикл парамері>> = n2 тексеріліп, цикл параметрі -1-ге өзгеріп отырады.);
Егер шарт орындалмаса, онда FOR операторы жұмысын аяқтайды

3-мысал: 1- ден 10-ға дейінгі cандардың қосындысын есептеу керек.
Program kosindi;
Var i, S:integer;
Begin
S:=0;
For i:=1 to 10 do
S:=S+i;
Writeln (‘S = ‘, S);
End.

4-мысал: 10- нан 1-ге дейінгі cандардың қосындысын есептеу керек.
Program kosindi;
Var i, S:integer;
Begin
S:=0;
For i:=10 downto 1 do
S:=S+i;
Writeln (‘S = ‘, S);
End.

IV. Қолдану

Топпен жұмыс

1-тапсырма
І топ: Бірден n-ға дейінгі жұп сандардың қосындысын есептейтін программа құру
Program jup;
Var i, s,n : integer;
S:=0;
For i:=1 to n do
Begin
If I mod 2 = 0 then s:=s+i ;
Writeln (‘ s=’, s);
End;
End.
ІІ топ: Жүзден бірге дейінгі тақ сандардың қосындысын есептейтін программа құру
Program esep2;
Var i, s: integer;
begin
S:=0;
For i:=100 downto 1 do
Begin
If I mod 2 = 1 then s:=s+i ;
Writeln (‘ s=’, s);
End;
End.
2-тапсырма

x∈[1;3] аралығында 0,2 қадаммен өзгергендегі y=

функциясының мәнін тап.
I топ: Шартты алдымен тексеретін цикл

Program pr3;
Var x,y: integer;
Begin
x:=1;
While x<=3 do
Begin
y:=sqrt(x+1)-1/x;
Writeln(‘x=’,x, ‘y=’,y);
x:=x+0,2;
End;
End.

IІтоп: Шартты соңынан тексеретін цикл

Program pr3;
Var x,y: integer;
Begin
x:=1;
Repeat y:=sqrt(x+1)-1/x;
Writeln(‘x=’,x, ‘y=’,y);
x:=x+0,2;
Until x>3;
Readln;
End.

Тәжірибелік жұмыс

N! факториалды табу программасын жаз.P=1*2*3*…. *N
Program fakt;
Var i,n,P: integer;
Begin
Writeln(;n=’); Readln(n);
P:=1; i:=1;
Repeat
P:=p*1;
I:=i+1;
Until i>n;
Writeln(‘p=’,p);
End.
.

жүктеу/скачать 23,62 Mb.

Достарыңызбен бөлісу:

1 ... 85 86 87 88 89 90 91 92 ... 111