Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.90/30: Рейтинг темы: голосов - 30, средняя оценка - 4.90
1 / 1 / 0
Регистрация: 31.10.2012
Сообщений: 15

Найти и вывести максимальный и минимальный элементы списка и их сумму

21.12.2012, 10:42. Показов 5914. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Создать однонаправленный список действительных чисел. Найти и вывести максимальный и минимальный элементы списка и их сумму. Удалить из списка минимальный элемент и вывести обновленный список. Удалить список.

Оч. прошу помогите сделать,сегодня сдача,а я с паскалем не сильно дружу...
1
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
21.12.2012, 10:42
Ответы с готовыми решениями:

В матрице найти минимальный и максимальный элементы и их координаты, поменять местами минимальный и максимальный элементы
В матрице размером n на m (1<n, m<10) (ввод n, m и матрицы с клавиатуры) найти минимальный и максимальный элементы и их координаты,...

Найти минимальный и максимальный элементы и их координаты, поменять местами минимальный и максимальный элемент
3) В матрице размером n на m (1<n, m<10) (ввод n, m и матрицы с клавиатуры) найти минимальный и максимальный элементы и их координаты,...

Поменять местами минимальный и максимальный элементы односвязного списка
Написать процедурку которая меняет местами минимальный и максимальный элементы списка. MIN и MAX я нашел а как дальше подскажите...

1
0 / 0 / 3
Регистрация: 04.12.2012
Сообщений: 9
21.12.2012, 16:34
Лучший ответ Сообщение было отмечено WeseR100500 как решение

Решение

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
program spisok;
 
type
 
el = ^elem;
 
elem = record
value: integer;
next: el;
end;
 
var begg, minel, maxel  : el;
 val:integer;
 ch:char;
 
 
procedure create_chain;
var curr, tmpp;
begin
 
 new(begg);
 write('введите значение');
 readln(val);
 begg^.value:=val;
 writeln('хотите добавить следующий элемент?');
 ch:=readkey;
 curr:=begg;
 
 while ch<>'n' do begin
  new(tmpp);
  write('введите значение');
  readln(val);
  tmpp^.value:=val;
  curr^.next:=tmpp;
  curr:=curr^.next;
  writeln('хотите добавить следующий элемент?');
  ch:=readkey;
 end;
end;
 
function find_min:el;
var curr, minn:el;
x:integer;
begin
 curr:=begg;
 x:=curr^.value;
 
 repeat
  if curr^value<x then begin x:=curr^value; minn:=curr; end;
 until curr^.next = nil;
 
 find_min:=minn;
end;
 
function find_max:el;
var curr, maxx:el;
x:integer;
begin
 curr:=begg;
 x:=curr^.value;
 
 repeat
  if curr^value<x then begin x:=curr^value; maxx:=curr; end;
 until curr^.next = nil;
 
 find_max:=maxx;
end;
 
function delete_element(del:el);
var curr, prev:el;
begin
 if del = begg then begin
  begg:= begg^.next;
  free(del);
  exit;
 end;
 curr:=begg;
 while curr^.next<>del do curr:=curr^.next;
 prev:=curr;
 curr:=curr^.next^.next;
 prev^.next:=curr;
 free(del);
end;
 
 
 
 
begin
 create_chain;
 minel:=find_min;
 writeln('minimum : ',minel^.value);
 maxel:=find_max;
 writeln('maximum : ',maxel^.value);
 
 writeln('summa : ',maxel^.value + minel^.value);
 
 delete_element(minel);
 delete_element(maxel);
 
 minel:=begg;
 
 writeln('обновленный список');
 repeat
  write(minel^.value:5);
  minel:=minel^.next;
 untill minel=nil;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
21.12.2012, 16:34
Помогаю со студенческими работами здесь

Списки. Поменять местами максимальный и минимальный элементы списка.
Написать программу, которая меняет максимальный и минимальный элементы списка. Ребята помогите плиз сессия поджимает, как осуществить...

Найти максимальный и минимальный элементы массива
Заполнить массив из 10 элементов случайными числами в интервале и найти в нем максимальный и минимальный элементы и их номера.

В массиве найти минимальный и максимальный элементы.
Дан массив целых чисел. Найти в этом массиве минимальный элемент m и максимальный элемент k. Получить в порядке возрастания все целые...

Найти максимальный и минимальный элементы массива
найти максимальный и минимальный элементы массива длинна массива 11 тип элементов integer

Найти максимальный и минимальный элементы и умножить их
Дан массив. Найти максимальный и минимальный элементы и умножить их. помогите пожалуйста решить...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Идея фильтра интернета (сервер = слой+фильтр).
Hrethgir 31.03.2026
Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда
anaschu 31.03.2026
В прикрепленном документе раздумья о том, как можно поменять модель в будущем
10 пpимет, которые всегда сбываются
Maks 31.03.2026
1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .
Перемещение выделенных строк ТЧ из одного документа в другой
Maks 31.03.2026
Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave
DevAlt 30.03.2026
Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .
Автоматическое создание документа при проведении другого документа
Maks 29.03.2026
Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .
Настройка движения справочника по регистру сведений
Maks 29.03.2026
Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника
Maks 27.03.2026
Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru