Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 05.12.2011, 17:54   #1
Carter
Пользователь
 
Регистрация: 21.08.2011
Сообщений: 15
По умолчанию одномерный массив

упорядочить элементы массива по возрастанию до первого положительного элемента (программу составить при помощи процедур и функций)
Carter вне форума Ответить с цитированием
Старый 05.12.2011, 18:22   #2
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

Код:
type arrayR = array[1..100] of real;
{......}
var mas:arrayR;
{......}
procedure bubble(item:arrayR; n:integer);
var
a,b:integer;
t:real;
begin
for a:=1 to n-1 do
for b:=n-1 downto a do
if item[b-1]>item[b] then
begin
{Перестановка}
t:=item[b-1];
item[b-1]:=item[b];
item[b]:=t
end
end;
{тут ввод массива}
i:=1;
while (mas[i]<=0) and (i<=n) do
inc(i);
bubble(mas,i);
{и  вывод массива c вас}
end.
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Одномерный массив и Двумерный массив eugene1437 Общие вопросы C/C++ 15 25.05.2011 18:17
Одномерный массив , двухмерный массив Woxx Паскаль, Turbo Pascal, PascalABC.NET 0 10.09.2010 08:28
Одномерный массив. Q basic - Построить новый массив из элементов исходного ,которые больше P. Marishkaa Помощь студентам 2 12.01.2010 16:54
Одномерный массив AlexPavL Помощь студентам 1 28.12.2009 18:51
Двумерный массив, одномерный массив. Branbal Помощь студентам 14 18.11.2009 12:40


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS
Здесь нужно купить рекламу за 7 тыс руб в месяц! )
пишите сюда - alarforum@yandex.ru
ИКС 840