Сформировать два одномерных массива из элементов исходного - 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.

Объяснение кода листинга программы

  1. В начале кода объявляются переменные n_max, x, y, z, xn, yn, n и i. Переменные n_max, x, y, z и i инициализируются значениями 100, 0, 0, 0 и 0 соответственно.
  2. Затем происходит чтение значения переменной n с помощью функции readln.
  3. Выводится сообщение 'Массив Z: ' и значение переменной n_max.
  4. Переменные yn и xn инициализируются нулем.
  5. Запускается цикл for, который выполняется от 1 до n. Внутри цикла считывается значение переменной i.
  6. Для каждого значения i выполняется следующее:
    • Значение переменной z[i] считывается с помощью функции random*n_max.
    • Выводится значение переменной z[i].
    • Если i - нечетное число, то значение переменной yn увеличивается на 1, и значение переменной y[yn] присваивается как результат деления z[i] на 3.
    • Если i - четное число, то значение переменной xn увеличивается на 1, и значение переменной x[xn] присваивается как результат деления z[i] на 2.
  7. После завершения цикла выводится сообщение 'Массив Х: ' и выводится массив x.
  8. Выводится сообщение 'Массив Y: ' и выводится массив y.
  9. Конец программы.

Оцени полезность:

5   голосов , оценка 4.2 из 5
Похожие ответы