Сформировать два одномерных массива из элементов исходного - Turbo Pascal
Формулировка задачи:
Помогите как можно скорее решить данную задачку)Заранее спасибо)
Задан одномерный массив Z(N) (N<=60). Сформировать два одномерных массива X и Y. Массив Х получен делением на 2 элементов массива Z, стоящих на четных местах, а массив Y – делением на 3 элементов массива Z, стоящих на нечетных местах.
Решение задачи: «Сформировать два одномерных массива из элементов исходного»
textual
Листинг программы
{Задан одномерный массив Z(N) (N<=60). Сформировать два одномерных массива X и Y. Массив Х получен делением на 2 элементов массива Z, стоящих на четных местах, а массив Y - делением на 3 элементов масс ива Z, стоящих на нечетных местах.} const n_max=100; var x,y,z:array[1..n_max] of real; xn,yn,n,i:integer; begin randomize; write('Введите N: '); readln(n); writeln('Массив Z: '); yn:=0; xn:=0; for i:=1 to n do begin z[i]:=random*n_max; write(z[i]:8:2); if odd(i) then begin inc(yn); y[yn]:=z[i]/3; end else begin inc(xn); x[xn]:=z[i]/2; end; end; writeln; writeln('Массив Х: '); for i:=1 to xn do write(x[i]:8:2); writeln; writeln('Массив Y: '); for i:=1 to yn do write(y[i]:8:2); readln; end.
Объяснение кода листинга программы
- В начале кода объявляются переменные n_max, x, y, z, xn, yn, n и i. Переменные n_max, x, y, z и i инициализируются значениями 100, 0, 0, 0 и 0 соответственно.
- Затем происходит чтение значения переменной n с помощью функции readln.
- Выводится сообщение 'Массив Z: ' и значение переменной n_max.
- Переменные yn и xn инициализируются нулем.
- Запускается цикл for, который выполняется от 1 до n. Внутри цикла считывается значение переменной i.
- Для каждого значения i выполняется следующее:
- Значение переменной z[i] считывается с помощью функции random*n_max.
- Выводится значение переменной z[i].
- Если i - нечетное число, то значение переменной yn увеличивается на 1, и значение переменной y[yn] присваивается как результат деления z[i] на 3.
- Если i - четное число, то значение переменной xn увеличивается на 1, и значение переменной x[xn] присваивается как результат деления z[i] на 2.
- После завершения цикла выводится сообщение 'Массив Х: ' и выводится массив x.
- Выводится сообщение 'Массив Y: ' и выводится массив y.
- Конец программы.