Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 21.10.2013
Сообщений: 35
1

Отсортировать динамический список так, чтобы все четные значения оказались вначале списка, а нечетные в конце

25.05.2014, 17:10. Просмотров 608. Ответов 1
Метки нет (Все метки)

Дан текстовый файл с числами. Переписать все числа в динамический список. Отсортировать динамический список так, чтобы все четные значения оказались вначале списка, а нечетные в конце.Затем привести количество четных и нечетных чисел к одинаковой длине, путем удаления начальных значений.

Запись из файла в список сделал, дальше не знаю
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
procedure readdynam;
begin
reset(t);
first:=nil;
while not seekeof(t)  do begin                 
      new(p1);
      read(t,p1^.x);
      inc(i);
      if first=nil then
      first:=p1
      else p2^.adr:=p1;
      p2:=p1;
                               end;
      close(t);
      writeln;
      p2^.adr:=nil;
      p1:=first;
      writeln('Исходный список:');             
      while p1<>nil do begin
      write(p1^.x:4);
      p1:=p1^.adr;
                       end;
end;
procedure dynam;
var koln,kolch:integer;
begin
koln:=0;kolch:=0;  kol:=0;
p1:=first;
while p1<>nil do begin
      if p1^.x mod 2=0 then begin
                   new(p3);
                   p3^.x:=p1^.x;
                   inc(kolch);
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.05.2014, 17:10
Ответы с готовыми решениями:

Переставить значения элементов заданного одномерного массива,так, чтобы все нулевые значения оказались в конце массива,а ненулевые вначале
Переставить значения элементов заданного одномерного массива,так, чтобы все нулевые значения...

Переставить элементы массива так, чтобы в начале оказались четные элементы, а в конце - нечетные
Очередная,теперь уже последняя &quot;проблема&quot; с вба.Необходимо переставить элементы массива так,чтобы в...

Отсортировать заданную последовательность так, чтобы все нули оказались в конце
Задача: Дана последовательность чисел, отсортировать эту последовательность так, чтобы все нули...

Перестроить односвязный список так, чтобы сначала стояли все нечетные числа, затем все четные
Построить линейный список из входной последовательности чисел. Перестроить его так, чтобы сначала...

1
0 / 0 / 0
Регистрация: 21.10.2013
Сообщений: 35
26.05.2014, 19:31  [ТС] 2
пжлста
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.05.2014, 19:31

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Машина Тьюринга: отсортировать символы таким образом, чтобы все a были вначале слова, все b в середине, все c - в конце
В слове из {a,b,c} отсортировать символы таким образом, чтобы все a были вначале слова, все b в...

Вывести вначале массива нечетные элементы, в конце - чётные
Недавно начал изучение C, попалась такое задание в лабораторной работе. Первое задание, в котором...

Переставить числа в массивах так, чтобы в начале оказались все положительные элементы, а в конце отрицательные
Заданы три одномерных масива.Переставиты числа в массивах таким образом, чтобы в начале массивов...

Сформировать новый массив, вначале которого все стояли четные значения элементов, затем нечетные
задача3-Сформировать одномерный целочисленный массив из 80 элементов. Сформировать новый массив,...

Список: Преобразовать список так, чтобы сначала шли нечетные элементы, а потом четные
Преобразовать список таким образом, чтобы в первой его половине располагались элементы, стоявшие на...

Переставить элементы так, чтобы четные элементы стояли в начале массива, а нечетные в конце
Переставить элементы так, чтобы четные элементы стояли в начале массива, а нечетные в конце.(Метод...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.