Дорогие 9-классники!
Сегодня на уроке мы должны были разобрать еще один тип задач на массивы «Замена элементов массива», но вам придется разбирать задачи этого типа самостоятельно.
Обратите внимание!
1. Элементы массива вводятся в первом цикле.
2. Второй цикл используем для обработки элементов массива (осуществляем замену элементов, не заводя дополнительный массив).
3. В третьем цикле выводим полученный результат на экран.
Изучите внимательно пример, протестируйте программу в среде программирования и решите домашние задачи.
Пример
Дан одномерный массив A[10]. Написать программу, которая будет заменять все отрицательные элементы их квадратами, а положительные – их кубами.
Решение.
Program Zamena;
VAR A: array [1 . . 10] of integer; i: integer;
Begin
Randomize;
For i: =1 to 10 do
Begin
A[i]: = Random (20) – Random (20);
Writeln (‘A[’, i, ‘]=’, A[i]);
End;
For i: = 1 to 10 do
Begin
IF A[i] < 0 THEN
A[i]: = A[i] * A[i]
ELSE
A[i]: = A[i] * A[i] * A[i];
End;
Writeln (‘Новый массив:’);
For i: =1 to 10 do
Begin
Writeln (‘A[’, i, ‘]=’, A[i]);
End;
End.
Сегодня на уроке мы должны были разобрать еще один тип задач на массивы «Замена элементов массива», но вам придется разбирать задачи этого типа самостоятельно.
Обратите внимание!
1. Элементы массива вводятся в первом цикле.
2. Второй цикл используем для обработки элементов массива (осуществляем замену элементов, не заводя дополнительный массив).
3. В третьем цикле выводим полученный результат на экран.
Изучите внимательно пример, протестируйте программу в среде программирования и решите домашние задачи.
Пример
Дан одномерный массив A[10]. Написать программу, которая будет заменять все отрицательные элементы их квадратами, а положительные – их кубами.
Решение.
Program Zamena;
VAR A: array [1 . . 10] of integer; i: integer;
Begin
Randomize;
For i: =1 to 10 do
Begin
A[i]: = Random (20) – Random (20);
Writeln (‘A[’, i, ‘]=’, A[i]);
End;
For i: = 1 to 10 do
Begin
IF A[i] < 0 THEN
A[i]: = A[i] * A[i]
ELSE
A[i]: = A[i] * A[i] * A[i];
End;
Writeln (‘Новый массив:’);
For i: =1 to 10 do
Begin
Writeln (‘A[’, i, ‘]=’, A[i]);
End;
End.
Подумайте, как можно усовершенствовать данную программу. Попробуйте домашние задачи записать иначе.
Итак, домашние задачи:
Задача 1
Дан одномерный массив A[10]. Написать программу, которая будет заменять все отрицательные элементы их квадратами, остальные оставлять без изменения.
Задача 2
Дан одномерный массив A[10]. Написать программу, которая будет менять каждый элемент, стоящий на нечетном месте, на элемент, стоящий справа.
Удачи!
Комментариев нет:
Отправить комментарий