Алгоритмы, реализуемые с помощью циклов типа для
Циклы типа для применяются, когда число повторений цикла известно к началу его выполнения.
Язык |
Пример |
Величина шага |
Школьный АЯ |
нц для i от 1 до N тело цикла кц |
Всегда 1 |
Pascal |
For i := 1 to N do тело цикла ; |
1 |
For i := N downto 1 do тело цикла ; |
-1 |
|
Basic |
FOR I = 1 TO N STEP H тело цикла NEXT I |
Шаг Н произвольный (по умолчанию равен 1) |
Пример 2.1. Вычислить сумму элементов числового массива A = (a1 , a2 , ... , aN ).
Тест
Данные |
Результат |
|
N=5 |
A=(3, 5, -2, 6, 3) |
S=15.0 |
Демонстрация
Начало формы
Конец формы
Школьный АЯ алг Сумма (арг цел N, арг вещ таб A[1:N], рез вещ S) дано N>0 нач цел i S:=0 нц для i от 1 до N S := S + A[i] кц кон |
Исполнение алгоритма
|
Turbo Pascal Program Summa; Uses Crt; Type Mas = Array [1..20] of Real; Var A : Mas; i, N : Integer; S : Real; BEGIN ClrScr; {очистка экрана } Write('Введите N = '); ReadLn(N); {ввод значения N} For i := 1 to N dо {цикл по элементам массива} begin Write('A [ ', i , ' ] = '); ReadLn(A[i]) {ввод элементов массива} end; S := 0; {присваивание начального значения} For i := 1 to N do S := S+A[i]; {суммирование} WriteLn; WriteLn('Сумма равна ', S : 5 : 1); ReadLn END. |
Блок-схема
|
Результаты работы Pascal-программы
|
QBasic CLS INPUT "N = " ; N : DIM A(N) FOR i = 1 TO N PRINT "A(" ; i ; ")=" ; INPUT A(i) NEXT i
S = 0 FOR i = 1 TO N S = S + A(i) NEXT i
PRINT "Сумма = " ; S END |
Пример 2.2. Найти наибольший элемент числового массива A = (a1, a2 , ..., aN ) и его номер.
Тест
Данные |
Результаты |
||
N=4 |
A=(3, -1, 10, 1) |
Amax=10 |
K=3 |