BEGIN{программа басы}
m:=100;{ m-нің бастапқы мәні}
repeat{цикл басы}
z :=(300*m)/1000;{төленетін теңгені есептеу}
WriteLn(m, ' | ',z , ' тг.');{нәтижені экранға шығару}
m:=m+100;{m мәнін 1 қадамға жоғарылату}
until m>1000;{циклшарты}
readln;
END.{программа соңы}
Программа нәтижесі:
| 30 тг.
| 60 тг.
| 90 тг.
| 120 тг.
500 | 150 тг.
....................
...................
1000 | 300 тг.
Практикалық жұмыс №20
Тақырыбы: WHILE циклдік операторы
Теорияға шолу
Алдын ала берілген шарт бойынша қайталауды жүзеге асыратын оператор WHILE және DO түйінді сөздері қолданылып орындалады. Жазылу пішімі:
WHILE <қайталану шарты> DO <цикл тұлғасы>;
Мұндағы қайталану шарты – логикалық өрнек, цикл тұлғасы – қайталанып орындалып отыратын қарапайым немесе құрама оператор. Цикл әрбір орындалар алдында қайталану шартының мәні есептеледі, егер ол ақиқат болса, цикл тұлғасы орындалады да, шарт қайта тексеріледі. Қайталану шарты жалған болса, циклдің орындау доғарылып, WHILE операторынан кейінгі жолдар атқарыла бастайды. Егер шарт бірінші тексерілгеннен–ақ жалған болса, онда цикл орындалмайды. Егер цикл тұлғасы қарапайым оператор емес, құрама оператор болса, онда оператордың жазылу пішімін келесідей жазуға болады:
WHILE <шарт> DO
BEGIN
<1-оператор;>
<2-опреатор;>
…….
END;
Мысал. x-тің х= 1, 2, 3, 4, 5, 6 мәндерінде у= функциясының мәнін табу программасын құру.
Достарыңызбен бөлісу: |
