Преобразовать массив по правилу - Turbo Pascal (33778)

Узнай цену своей работы

Формулировка задачи:

Друзья, уже сломал голову. Кому не сложно помогите пожалуйста.

Даны вещественные массивы x1, x2,…, xn и y1, y2,…, yn. Преобразовать их по правилу: большее из значений xi и yi принять в качестве нового значения xi, а меньшее – в качестве нового значения yi.

Первый раз искал минимальный и максимальный элемент массива дополнительной функцией, но преподавателя такой способ не строил. Если кто-то сможет помочь решить данную задачу не использую функции и процедуры был бы премного благодарен.

Решение задачи: «Преобразовать массив по правилу»

textual
Листинг программы
uses crt;
const n=10;
var x,y:array[1..n] of real;
i,idx1,idx2:integer;
max1,max2,k:real;
BEGIN
clrscr;
 for i:=1 to n do
   begin
    x[i]:=random(53);
    y[i]:=random(53);
   end;
 writeln('MASS X : ');
 for i:=1 to n do
  write(x[i]:3:2,'  ');
 
 writeln;
 
  writeln('MASS Y : ');
   for i:=1 to n do
    write(y[i]:3:2,'  ');
 
    writeln;
   for i:=1 to n do
    if x[i]<y[i] then
       begin
        k:=x[i];
        x[i]:=y[i];
        y[i]:=k;
       end;
    writeln;
    writeln('MAS X : ');
       for i:=1 to n do
        write(x[i]:3:2,'  ');
 
      writeln;
      writeln('MASS Y : ');
        for i:=1 to n do
         write(y[i]:3:2,'  ');
 
readkey;
 
END.

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

  1. Создается подключение к библиотеке crt.
  2. Задаются константы и переменные: n - количество элементов в массиве, x и y - массивы для хранения значений, i - счетчик для цикла, idx1 и idx2 - счетчики для внутреннего цикла, max1 и max2 - максимальные значения, k - временная переменная для хранения максимального значения.
  3. Выполняется инициализация массивов x и y случайными числами от 0 до 52.
  4. Выводится сообщение MASS X : и для каждого элемента массива выводится его значение.
  5. Выводится сообщение MASS Y : и для каждого элемента массива выводится его значение.
  6. Выполняется внутренний цикл, который проверяет, если значение x меньше значения y, то они меняются местами.
  7. Выводится сообщение MAS X : и для каждого элемента массива выводится его значение.
  8. Выводится сообщение MASS Y : и для каждого элемента массива выводится его значение.
  9. Программа завершается, ожидая ввода пользователя.

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

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