IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> подпрограммы, помогите доделать
сообщение
Сообщение #1


Разведчик
*

Группа: Пользователи
Сообщений: 14
Пол: Мужской
Реальное имя: Диман

Репутация: -  0  +




Такая задача:

В 4-х массивах x[1]..x[n] одной длины. Не используя других массивов, переставьте элементы массива в обратном порядке. В основной программе организуйте подпрограммы для ввода элементов массива и подпрограмму для перестановки элементов, в которой выходной переменной будет новый массив.

Я её не доделал, потому что не получается для 4-х массивов, какой то бред выводит, поэтому я это убрал и меня напрягает последнее предложение в задании, а точнее последняя фраза? Помогите доделать и проверьте ошибки, если что не так я начал делать.


 const
n=5;
type
mas=array[1..n] of integer;
var
a:mas;
vod:integer;
procedure vvod(var x:mas);
var
i:integer;
begin
writeln('vvedite elementy');
for i:=1 to n do
begin
writeln('a[',i,']=');
readln(a[i]);
end;
end;
procedure vvod_rand(var x:mas);
var
i:integer;
begin
Randomize;
For i:=1 to n do x[i]:=random(20)-10;
for i:=1 to n do
write(x[i],' ');
end;
procedure per(x:mas);
var
b:integer;
i:integer;
begin
for i:=1 to n div 2 do begin
b:=x[i];
x[i]:=x[n-i+1];
x[n-i+1]:=b;
end;
writeln('new');
for i:=1 to n do
write(' ',x[i]);
end;
begin
writeln('vyberite dejstvie');
writeln('1- ruchnoj vvod');
writeln('2- avtomaticheskij vvod');
readln(vod);
if vod=1 then begin
vvod(a);
per(a) end
else
if vod=2 then begin
vvod_rand(a);
per(a);
end;

readln;
end.

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 2.12.2021 8:18
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name