НУЖНА ПОМОЩЬ В ПАСКАЛЕ Имеются два одномерных массива А, В длиной n, где n- нечетное число. Поменять в каждом из массивов элементы местами – первый с последним, второй с предпоследним и т.д. Длину массивов запросить у пользователя. Элементы массивов А и В сформировать с помощью функции random (10) в одном цикле. В программе оформить две процедуры: для перестановки элементов массива и для вывода массива на экран. Вывести на чистый экран исходные и полученные массивы.
Ответы
Ответ дал:
0
Поскольку в Windows-приложениях нет понятия "чистый экран", ввод/вывод был направлен в DOS-окно.
// PascalABC.NET 3.3, сборка 1607 от 31.12.2017
// Внимание! Если программа не работает, обновите версию!
uses Crt;
procedure MySwap(a:array of integer);
begin
var n:=a.Length;
for var i:=0 to n div 2 do Swap(a[i],a[n-i-1])
end;
procedure MyPrint(txt:string; a:array of integer);
begin
Print(txt); a.Println
end;
begin
var n:=ReadInteger('n=');
var a:=new integer[n];
var b:=new integer[n];
Randomize;
for var i:=0 to n-1 do begin
a[i]:=Random(10); b[i]:=Random(10);
end;
ClrScr;
MyPrint('Исходный А :',a); MySwap(a); MyPrint('Результат А:',a);
MyPrint('Исходный B :',b); MySwap(b); MyPrint('Результат B:',b)
end.
// PascalABC.NET 3.3, сборка 1607 от 31.12.2017
// Внимание! Если программа не работает, обновите версию!
uses Crt;
procedure MySwap(a:array of integer);
begin
var n:=a.Length;
for var i:=0 to n div 2 do Swap(a[i],a[n-i-1])
end;
procedure MyPrint(txt:string; a:array of integer);
begin
Print(txt); a.Println
end;
begin
var n:=ReadInteger('n=');
var a:=new integer[n];
var b:=new integer[n];
Randomize;
for var i:=0 to n-1 do begin
a[i]:=Random(10); b[i]:=Random(10);
end;
ClrScr;
MyPrint('Исходный А :',a); MySwap(a); MyPrint('Результат А:',a);
MyPrint('Исходный B :',b); MySwap(b); MyPrint('Результат B:',b)
end.
Приложения:
![](https://st.uroker.com/files/3cf/3cf57c49a7ea207804096812ca34c563.jpg)
Ответ дал:
0
В условии задачи ну просто все сделано, чтобы она была написана как можно длиннее... Уникально! И это выдается за обучение...
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад