ТОР 5 статей:
Методические подходы к анализу финансового состояния предприятия
Проблема периодизации русской литературы ХХ века. Краткая характеристика второй половины ХХ века
Характеристика шлифовальных кругов и ее маркировка
Служебные части речи. Предлог. Союз. Частицы
КАТЕГОРИИ:
- Археология
- Архитектура
- Астрономия
- Аудит
- Биология
- Ботаника
- Бухгалтерский учёт
- Войное дело
- Генетика
- География
- Геология
- Дизайн
- Искусство
- История
- Кино
- Кулинария
- Культура
- Литература
- Математика
- Медицина
- Металлургия
- Мифология
- Музыка
- Психология
- Религия
- Спорт
- Строительство
- Техника
- Транспорт
- Туризм
- Усадьба
- Физика
- Фотография
- Химия
- Экология
- Электричество
- Электроника
- Энергетика
Глава 2. Алгоритмы, реализуемые с помощью циклов типа ДЛЯ
Циклы типа для применяются, когда число повторений цикла известно к началу его
выполнения.
| Язык | Пример | Величина шага |
| Алгоритмический язык | нц для i от 1 до N тело цикла кц | Всегда 1 |
| Pascal | For i:= 1 to N do тело цикла; | |
| 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 |
Алгоритмический язык Исполнение алгоритма
| i | S |
| 0 + a1 = 0+3 = 3 | |
| a1 + a2 = 3+5 = 8 | |
| a1+a2+a3 = 8-2 = 6 | |
| a1+a2+a3+a4 = 6+6 = 12 | |
| a1+a2+a3+a4+a5 = 12+3=15 |
алг Сумма (арг цел 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.
Пример 2.2. Найти наибольший элемент числового массива A = (a1, a2,..., aN) и его
Номер.
Тест
| Данные | Результат | ||
| N=4 | A=(3, -1, 10, 1) | Amax=10 | K=3 |
Алгоритмический язык
алг МаксЭлемент (арг цел N, арг вещ таб A[1:N], рез вещ Amax, рез цел k)
нач цел i
Amax:= A[1]; k:= 1
нц для i от 2 до N
если A[i] > Amax
то Amax:=A[i]; k:= i
все
кц
кон
Исполнение алгоритма
Не нашли, что искали? Воспользуйтесь поиском: