Қайталау операторлары


Презентация қосу



Қайталау операторлары

Көп жағдайда аргументтердің әр түрлі мәні бойынша
алгоритмнің белгілі бір бөліктерін бірнеше рет
қайталауға тура келеді. Осындай процесстерді
ұйымдастыру үшін циклдік құрлымды алгоритмдер-
қайталау операторлары қолданылады.
Паскаль тілінде қайталау процесін жүзеге асыратын
циклдік операторлардың үш түрі бар:
For- Арифметикалық цикл.
While- Шартын алдын ала тексеретін цикл.
Repeat- Шартты соңынан тексеретін цикл.
While <қайталану шарты> Do<цикл тұлғасы;
While- Алдын ала берілген шарт бойынша
Қайталауды жүзеге асырады.

ш жоқ
ар
т

Иә
Оператор
Repeat қайталау операторы While операторына ұқсас,
айырмашылығы – қайталану шарты цикл соңында тексеріледі,
сондықтан ол кем дегенде бір рет орындалатын болады.
Repeat операторы Until түінді сөздерін пайдаланып орындалады.

Repeat оператор Until шарт

;
Блок- схема Алгоритмдік тіл Q Basic
Қайталану Циклдің
ш
ар командасы: шартты
т
операторы:
Әзірше шарт
While шарт
Цикл
Цб
денесі Цикл денесі Цикл денесі
цс Wend
Do while
немесе until
While: Перне тақтадан енгізілетін кез- келген он бүтін санның
қосындысын табатын программа құру қажет.
Program kosindi10;
Const
Limit=10;
Var
Count ,item , sum: integer;
Begin
Count:=0;
Sum:=0;
While (countBegin
Count: = count +1;
Write (count,’ bytin candi engiz:’);
Readln (item);
Sum:= sum + item;
End;
Writeln (‘engizilgen candardin kosindisi’);
End.
Repeat: Екі санның ең үлкен ортақ бөлгішін табу.
Program eyob;
Var n,m,x,e,y: integer;
Begin
Write (‘m,n candarin engiz:’);
Readln (m,n);
X:=m; y:=n;
Repeat
If x>y tnen x:=x-y else y:=y-x
Until x=y;
E:= x;
Writeln (‘ en ulken ortak bolgis= ,’e);
End.



Пәндер

Қазақ тілінде жазылған рефераттар, курстық жұмыстар, дипломдық жұмыстар бойынша біздің қор №1 болып табылады.

Байланыс

Qazaqstan
Phone: 777 614 50 20
WhatsApp: 777 614 50 20
Email: info@stud.kz
Көмек / Помощь
Арайлым
Біз міндетті түрде жауап береміз!
Мы обязательно ответим!
Жіберу / Отправить

Рахмет!
Хабарлама жіберілді. / Сообщение отправлено.

Email: info@stud.kz

Phone: 777 614 50 20
Жабу / Закрыть

Көмек / Помощь