2018-01-21
547
| Паскаль | for счетчик = начальное_ значение to конечное_ значение doоператор или блок операторов Приращение всегда считается равным 1 |
Пример инициализации десяти элементов массива а.
for i:= 1 to 10 do
a(i):= 0;
Основные правила записи структурированных алгоритмов на языке Паскаль:
| 1. Альтернативный выбор: если x>0 то y:= x иначе y:= -x кесли 2. Цикл с предусловием: Пока x > 1 цикл x:=x/2 кцикл 3. Цикл с постусловием: цикл x:= x/2 до x > 1 кцикл 4. Цикл со счетчиком: От k = 1 до n цикл Вывод (k) кцикл 5. Циклы с выходами: от k = 1 до n цикл s:= s + x при x < 1 выход x:= x/2 кцикл | IF x>0 THEN y:= x; ELSE y:= -x; END; WHILE x > 1 DO BEGIN x:=x/2; END; REPEAT x:= x/2; UNTIL x > 1; FOR k = 1 TO n DO BEGIN WRITELN (k); END; FOR k = 1 TO n DO BEGIN s:= s + x; IF x < 1 THEN GOTO EXIT; x:= x/2; LOOP; EXIT |
Оператор перехода GOTO EXIT используется для организации выхода из цикла. Здесь EXIT – это метка, которая стоит сразу за оператором конца цикла и по правилам языка Паскаль должна быть описана в начале программы с помощью оператора LABEL EXIT.
Пример кодирования структурированных алгоритмов на языке Паскаль:
|
|
|
| Алгоритм | Программа |
| Алгоритм «Выбор из меню» начало вывод («Меню») вывод («1. Новый год») вывод («2. День рождения Иванова И.И.») вывод («3. День рождения Сидоровой И.В.») вывод («4. День рождения Петрова В.А.») вывод (5. «День знания») запрос («выбор=», п) если п=1 то вывод («1 января») если п=2 то вывод («23 февраля») если п=3 то вывод («8 марта») если п=4 то вывод («19 ноября») если п=5 то вывод («1 сентября») конец | «Выбор из меню» CLS PRINT («Меню») PRINT («1. Новый год») PRINT («2. День рожд. Иванова И.И.») PRINT («3.День рожд. Сидоровой И.В.») PRINT («4. День рожд. Петрова В.А.») PRINT (5. «День знания») INPUT («выбор=», N) IF N=1 THEN PRINT («1 января») IF N =2 THEN PRINT («23 февраля») IF N =3 THEN PRINT («8 марта») IF N =4 THEN PRINT («19 ноября») IF N =5 THEN PRINT («1 сентября») END |
