Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 04.02.2012, 14:37   #1
blademish
 
Регистрация: 26.01.2012
Сообщений: 4
Восклицание Задача на списки

Дан фаил содержащий целые положительные и отрицательные числа.
Вывести на монитор
Положительные числа в порядке возростания
Отрицательные числа в порядке убывания
Для работы использовать одноноправленный список либо списки
blademish вне форума Ответить с цитированием
Старый 04.02.2012, 16:29   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Есть мысли как делать?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 04.02.2012, 16:57   #3
blademish
 
Регистрация: 26.01.2012
Сообщений: 4
По умолчанию

Вообще нету.
blademish вне форума Ответить с цитированием
Старый 04.02.2012, 17:13   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Это плохо... На пальцах не обьяснишь так просто.
Если готов пробовать на примерах могу подкинуть парочку по работе с динсписком
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 04.02.2012, 18:22   #5
blademish
 
Регистрация: 26.01.2012
Сообщений: 4
По умолчанию

Ды я эти списки вообще не понимаю(
blademish вне форума Ответить с цитированием
Старый 04.02.2012, 18:29   #6
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Тогда у тебя один шанс - купить у фрилансеров
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 05.02.2012, 19:44   #7
Poma][a
Новичок
Джуниор
 
Регистрация: 11.10.2011
Сообщений: 3,882
По умолчанию

Цитата:
Сообщение от Stilet Посмотреть сообщение
Тогда у тебя один шанс - купить у фрилансеров
ну или есть учебник, сиди разбирайся, спрашивай что не понятно....
Poma][a вне форума Ответить с цитированием
Старый 06.02.2012, 01:20   #8
skyll
Пользователь
 
Регистрация: 05.02.2012
Сообщений: 28
По умолчанию

Числа из файла можно загнать в 2 массива. Соответственно один для отрицательных второй для положительных чисел. А потом уже воспользоваться сортировкой)

Пример сортировки по возрастанию:

Код:
program abc;
uses crt;
const
     width = 10;
var
   Ar : array [1..width] of integer;
   i, j, buff : integer;
begin
     Randomize;
     for i := 1 to width do begin
         Ar[i] := Random(width);
         Write(Ar[i], ' ');
     end;
     // Сортировка
     for i := 1 to width do
         for j := 1 to width - i do begin
             if (Ar[j] > Ar[j + 1]) then begin
                buff := Ar[j];
                Ar[j] := Ar[j + 1];
                Ar[j + 1] := buff;
             end;
         end;
     WriteLn;
     for i := 1 to width do begin
         Write(Ar[i], ' ');
     end;
end.
По убыванию все предельно просто...

Последний раз редактировалось skyll; 06.02.2012 в 01:24.
skyll вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
задача на списки Liubashka Помощь студентам 0 16.12.2011 14:37
TP задача на списки Ramina Помощь студентам 0 12.12.2010 15:13