Мысал: 1 мен 100 аралығындағы сандар қосындысын есептейтін программа құру.
(for операторын қолдану арқылы)
Program esep3_1;
Var{айнымалыларды сипаттау бөлімі}
N, S:Integer;{х,y – бүтін сандар }
BEGIN{программа басы}
S:=0;
F
Цикл денесі
or N:=1 to 100 do{ цикл 100 рет айналады}
S:=S + N;{ қосындыныесептеу}
Writeln(‘S=’, S);{ нәтиженіэкранғашығару }
End.{ программа соңы}
Программа нәтижесі:
S=__________.
Практикалық жұмыс №19
Тақырыбы: Repeat циклдік операторы
Теорияға шолу
REPEAT қайталау операторы WHILE операторына ұқсас, айырмашылығы – қайталану шарты цикл соңында тексеріледі, сондықтан ол кем дегенде бір рет орындалатын болады. Екінші өзгешелігі – цикл тұлғасы шарт жалған болғанда қайталанып, ол ақиқат болған кезде циклді орындау доғарылады.
Бұл оператор REPEAT және UNTIL түйінді сөздерін пайдаланып орындалады. Жазылу пішімі:
REPEAT
<оператор 1>;
<оператор 2>;
…………
<оператор n>;
UNTIL <шарт>;
Бұл жерде операторлар REPEAT және UNTIL сөздерінің арасына орналасқандықтан, мұнда BEGIN және END сөздері жазылмайды.
REPEAT операторының циклі ішінде оның орындалу шартына әсер ететін кем дегенде бір оператор болуы тиіс, әйтпесе, ол шексіз қайталана беруі мүмкін.
Мысал.1 кг ірімшік 300 тг. тұрады. Ірімшіктің 100, 200, 300, ..., 1000 граммына төленетін теңгені анықтайтын және есептің жауабын кесте түрінде шығаратын программа құру. Қадам – 100 –ге тең.
Program esep3_3;
Var{айнымалыларды сипаттау бөлімі}
m: Integer; {m – бүтін сан }
z:real;{ z – нақты сан }
Достарыңызбен бөлісу: |