|
|||||||
АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция |
Оператор цикла FOR(цикл с параметром). Оператор цикла FOR используется, если число итераций(повторений) цикла известно до начала выполнения цикла. Формат записи: 1). FOR <п.ц.>:=<н.з.>TO<к.з.>DO<оператор>, где: параметр цикла <п.ц.> - начальное значение <н.з.> –выражение, параметра цикла; конечное значение <к.з.> -выражение, параметра цикла; Оператор – простой или составной оператор; Шаг для параметра цикла равен 1. for i:=1 to 5 do s:=s+i;
2). FOR <п.ц.>:= <к.з.> DOWNTO <н.з.> DO <оператор>, где: Шаг для параметра цикла равен -1. Параметр цикла, начальное и Конечное значения должны быть Одного типа.
Порядок выполнения цикла: 1). Вычисляется выражение <н.з.>; Параметру цикла присваивается значение <н.з.>; 3) вычисляется выражение <к.з.>; 4) значение параметра цикла сравни- вается с <к.з.> (сравнение идет Если значение параметра цикла <= 5) параметр цикла наращивается на 1 и После выхода из цикла параметр цикла становится неопределенным, за исключением случая, когда выход из цикла был осуществлен с помощью оператора GOTO или стандартной процедуры BREAK.
2). Вычислить 10!
Program Factorial_3; Var i, F: integer; { longint } Begin F:=1; For i:=1 to 10 do F:=F*i; Writeln(‘F=’,F); End. Поиск по сайту: |
Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Студалл.Орг (0.003 сек.) |