Страница 1 из 1
Перевернуть одномерный массив
Добавлено: 14 май 2009, 04:47
UlyanKa
Пожалуйста помогите решить две похожие задачи, срочно нужно решение... Можно сказать вопрос жизни и смерти:
[**deleted**]
*
2) Для одномерного массива с действительными элементами изменить порядок следования элементов в массиве на обратный и вывести каждый элемент преобразованного массива в отдельной строке.
Пожалуйста :/
Re: Задачи на одномерный массив
Добавлено: 14 май 2009, 08:47
Naeel Maqsudov
" писал(а):вопрос жизни и смерти
Придется значит Вам умереть.....
... шутка
Задачи никакие не похожие.
Первую удалил. (См. правила раздела) Поиск среднего, максимума и т.п. здесь решен уже десятки раз. Ищите.
2)
Код: Выделить всё
//"переворачивание" массива
for i:=1 to N div 2 do begin
T:=A[i]; A[i]:=A[N-i+1]; A[N-i+1]:=T;
end;
//вывод
for i:=1 to N do writeln('A[',i,']=',A[i]);
Re: Перевернуть одномерный массив
Добавлено: 14 май 2009, 11:44
BHy4ok
На обратный т.е. перевернуть массив задом наперед ?
Re: Задачи на одномерный массив
Добавлено: 15 май 2009, 05:44
UlyanKa
Naeel Maqsudov писал(а):Придется значит Вам умереть.....
... шутка
Задачи никакие не похожие.
Первую удалил. (См. правила раздела) Поиск среднего, максимума и т.п. здесь решен уже десятки раз. Ищите.
2)
Код: Выделить всё
//"переворачивание" массива
for i:=1 to N div 2 do begin
T:=A[i]; A[i]:=A[N-i+1]; A[N-i+1]:=T;
end;
//вывод
for i:=1 to N do writeln('A[',i,']=',A[i]);
Я только недавно зарегилась и не знаю, что такую задачу(1) решали, инета дома нету, не могу долго сидеть и искать, поэтому прошу помочь... Я никогда не работала в Delphi и не смогу написать полный код... Эээ... Можно подробней
Re: Перевернуть одномерный массив
Добавлено: 15 май 2009, 08:48
Naeel Maqsudov
Задачу 1 в отдельную тему пожалуйста.