Тема 6. Работа с массивами Пример выполнения задания

Задание. Заполнить вектор целых чисел десятью случайно взятыми значениями из диапазона от 0 до 100. На его основе получить другой вектор, элементы которого равны 0 или 1 в соответствии с четностью или нечетностью элементов с тем же номером в первом векторе.

Решение.

Разрабатываем алгоритм решения задачи в виде структурограммы:

i := 1 (1) 10

v1[i] := random(100)

Вывод (v1[i])

v1[i] mod 2 = 0

ДА НЕТ

v2[i] := 0 v2[i] := 1

i := 1 (1) 10

Вывод (v2[i])

Реализуем алгоритм в виде программы на языке Turbo Pascal:

program massivi;

const n = 10;

var i : byte;

v1, v2 : array [1..n] of byte;

begin writeln(‘Первый вектор:’);

for i := 1 to n do begin

v1[i] := random(100); write(v1[i] : 4); {Форматный вывод элемента v1}

if v1[i] mod 2 = 0 then v2[i] := 0 else v2[i] := 1 end;

writeln; {Переводим курсор в начало следующей строки}

writeln(‘Второй вектор:’);

for i := 1 to n do write(v2[i] : 4); writeln end.

Варианты задания

1. Построчно ввести матрицу 7х7 вещественных чисел. Заменить главную диагональ матрицы вектором наибольших значений в строках.

2. Выполнить задание варианта 1 для матрицы целых чисел и для наименьших элементов в строках.

3. Выполнить задание варианта 1 для матрицы со случайными значениями и для наименьших элементов столбцов.

4. Выполнить задание варианта 1 для матрицы из случайных целых чисел, не превышающих 100, для наибольших элементов столбцов.

5. Из матрицы символов 4х4 получить матрицу порядковых номеров элементов, для нее найти сумму элементов ниже главной диагонали.

6. Построчно ввести матрицу целых чисел 5х5, вторую матрицу заполнить случайными числами < 100. Сформировать третью матрицу: каждый ее элемент принимает значение ‘истина’, если элемент первой матрицы больше соответствующего элемента второй, иначе - ‘ложь’.

7. Случайным образом заполнить матрицу символов 6х6. Сформировать вектор: если в строке матрицы строчных латинских букв больше цифр, то его элемент вектора - ‘истина’, иначе - ‘ложь’.

8. В матрице целых чисел 7х7 поменять местами строки и столбцы.

9. В матрице целых чисел 7х7 поменять местами элементы, расположенные симметрично относительно главной диагонали.

10. Перемножить две матрицы 5х5 с произвольно взятыми элементами. Для C=AB A и B - исходные матрицы.

11. С помощью итерационной формулы Ньютона найти для натурального n корень квадратный по формуле: . Взять7 итераций.

12. Перемножить матрицу 7х7 и соответствующий вектор (см. вар. 10).

13. Вычислить: для x=1.2, n=5, a=(1.3, -0.8, 1.8, 4.1, -7.4, 6.7) (вектор коэффициентов, начинающийся с младших членов полинома) по схеме Горнера .

14. Методом Эйлера решить f(x,y)= dy/dx =xy при начальных условиях (0, 1). С шагом h=0.1 вычислить координаты еще 9 точек по формулам: , .

15. Решить задачу варианта 14 модифицированным методом Эйлера, для которого .

16. Вычислить: , гдеz1, z2, z3 - векторы из 5 комплексных чисел, значения которых выбрать самостоятельно.

17. Сформировать из случайных чисел две матрицы 7х7. Если в строках с одинаковыми номерами совпадают хотя бы два элемента на одинаковых позициях, занести в элемент вектора true, иначе - false.

18. Для вектора с n случайными значениями найти среднее и среднее квадратическое отклонение от среднего .

19. Заполнить две матрицы 5х5 случайными значениями булевского типа. Если хотя бы один элемент строки первой матрицы совпадает с соответствующим элементом другой, занести в вектор 1, иначе - 0.

20. Задать вектор разрядов двоичного числа. Преобразовать его в десятичное.

21. С помощью символьного массива установить, является ли слово палиндромом.

22. Сформировать матрицу 7х7 из целых чисел. Переписать строки в обратном порядке.

23. Сформировать вектор из 100 вещественных чисел и преобразовать его в матрицу 10х10.

24. Сформировать матрицу 10х10 из вещественных чисел и переписать ее построчно в вектор.

25. Переписать матрицу варианта 24 в вектор по столбцам.