Преобразовать массив по правилу - 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.
Объяснение кода листинга программы
- Создается подключение к библиотеке crt.
- Задаются константы и переменные: n - количество элементов в массиве, x и y - массивы для хранения значений, i - счетчик для цикла, idx1 и idx2 - счетчики для внутреннего цикла, max1 и max2 - максимальные значения, k - временная переменная для хранения максимального значения.
- Выполняется инициализация массивов x и y случайными числами от 0 до 52.
- Выводится сообщение
MASS X :
и для каждого элемента массива выводится его значение. - Выводится сообщение
MASS Y :
и для каждого элемента массива выводится его значение. - Выполняется внутренний цикл, который проверяет, если значение x меньше значения y, то они меняются местами.
- Выводится сообщение
MAS X :
и для каждого элемента массива выводится его значение. - Выводится сообщение
MASS Y :
и для каждого элемента массива выводится его значение. - Программа завершается, ожидая ввода пользователя.