Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
newbieee
1 / 1 / 0
Регистрация: 13.10.2014
Сообщений: 69
1

Удалить все элементы списка, содержащие числа большие, чем среднее значение элементов списка

25.12.2014, 18:44. Просмотров 894. Ответов 2
Метки нет (Все метки)

Сформировать список из N целочисленных случайных элементов (N – вводится
пользователем, значения элементов выбирать из диапазона от 0 до 99). Удалить все
элементы списка, содержащие числа большие, чем среднее значение элементов
списка.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.12.2014, 18:44
Ответы с готовыми решениями:

Удалить все элементы списка, содержащие числа большие, чем значение последнего
Сформировать список из N целочисленных случайных элементов (N – вводится пользователем,...

Удалить из списка все элементы, содержащие цифру 0
Сформировать список из N целочисленных случайных элементов (N – вводится пользователем, значения...

В текстовый файл занести все числа большие чем среднее арифметическое число в столбик
В текстовый файл занести все числа большие чем среднее арифметическое число в столбик.

Элементы массива большие, чем среднеарифметическое значение всех элементов, занести в другой массив
Элементы массива больше, чем среднеарифметическое значение всех элементов, занести в другой массив.

Удалить из списка L все четные положительные элементы
Нужна помощь в дописание программы. Одну процедуру я уже описал(DEL_CHET_POL_EL : процедура,...

2
JuriiMW
2243 / 1241 / 1673
Регистрация: 10.12.2014
Сообщений: 4,882
26.12.2014, 07:17 2
Лучший ответ Сообщение было отмечено newbieee как решение

Решение

Если воспользоваться списком, который я создал в другом твоём вопросе, то вот так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
procedure Delete(var Cur : tSpis);
var
  Tmp : tSpis;
begin
  Tmp := Cur;
  Cur := Cur^.Next;
  
  if Tmp^.Pred <> nil then
    Tmp^.Pred^.Next := Cur;
  if Cur <> nil then
    Cur^.Pred := Tmp^.Pred;
    
  Dispose(Tmp);
end;
 
…
Cur := First;
while Cur <> nil do
  if Cur^.X > Srednee then
    Delete(Cur)
  else
    Cur := Cur^.Next;
1
newbieee
1 / 1 / 0
Регистрация: 13.10.2014
Сообщений: 69
26.12.2014, 14:02  [ТС] 3
Цитата Сообщение от JuriiMW Посмотреть сообщение
Если воспользоваться списком, который я создал в другом твоём вопросе, то вот так:
Спасибо!)) :-)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.12.2014, 14:02

Удалить из списка все элементы с нечетными номерами
Можете переделать эту програму так : дано указатель Р1 на первый элемент двухсвязного списка,...

Удалить все элементы двунаправленного списка равные 10
Создать двунаправленный список, ввести элементы. Из введенных элементов удалить все, равные 10....

Удалить из списка все элементы с нечетными значениями
Дано указатель Р1 на первый элемент двозвязного списка, содержащего не менее двух элементов....


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

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

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