Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
0 / 0 / 0
Регистрация: 19.11.2011
Сообщений: 64
1

Работа с деками. Найти среднее арифметическое списка, добавить его в качестве нового элемента в начало и конец списка

16.06.2012, 16:52. Показов 1345. Ответов 6
Метки нет (Все метки)

D - список действительных чисел. Найти среднее арифметическое списка, добавить его в качестве нового элемента в начало и конец списка.

 Комментарий модератора 
Правилами форума, с которыми вы соглашались при регистрации, запрещено создание тем-дублей. Поднимайте первую тему сообщениями "тема актуальна". Если ответа нет, попробуйте уточнить задание, выложить свои наработки или предположения.
Больше предупреждений не будет
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.06.2012, 16:52
Ответы с готовыми решениями:

Создание списка, печать списка на экран, добавления элемента в начало списка, конец списка
Построить динамическую структуру типа список . Необходимо реализовать следующие процедуры: 1....

"Сортировка двусвязного списка путем исключения элемента с минимальным значением и включения его в начало нового списка
Здравствуйте! Возникла проблема с программой. Тема: "Сортировка двусвязного списка путем исключения...

Добавить заданное число в конец списка и найти количество элементов нового списка
Здравствуйте! помогите пожалуйста найти ошибку.... Задача: добавить заданное число в конец списка...

Списки. Найти среднее арифметическое и вычесть его из каждого элемента списка
Сформировать однонаправленный список целых чисел. Описать функцию, которая находит среднее...

6
1294 / 466 / 151
Регистрация: 24.08.2011
Сообщений: 2,249
16.06.2012, 19:09 2
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
uses crt;
 
type pType = ^chislo;
 
     chislo = record
     r: real;
     next: pType;
     end;
 
 
var first,tmp: chislo;
    sum: real;
    n,i: integer;
 
 
begin clrscr;
write('Skoliko chisel v spiske? '); readln(n);
 
new(first);
 
write('Vvedite ',n,' chisel: ');
read(first^.r);
sum:=first^.r;
 
tmp:=first;
for i:=2 to n do
 begin
 new(tmp^.next);
 tmp:=tmp^.next;      {chitaem, srazu je schitaem summu}
 read(tmp^.r);
 inc(sum,tmp^.r);
 end;
 
sum:=sum/n;
 
new(tmp^.next);
tmp:=tmp^.next;      {dobavleaem srednee v konets}
tmp^.r:=sum;
tmp^.next:=nil;
 
new(tmp);
tmp^.r:=sum;
tmp^.next:=first;      {dobavleaem srednee v nachalo}
first:=tmp;
readkey; end.
1
0 / 0 / 0
Регистрация: 19.11.2011
Сообщений: 64
17.06.2012, 11:26  [ТС] 3
ошибка,пишет что параметр процедуры NEW должен быть типизированным указателем,что не так?

Добавлено через 2 часа 45 минут
Цитата Сообщение от pnjkee Посмотреть сообщение
ошибка,пишет что параметр процедуры NEW должен быть типизированным указателем,что не так?
new(first); ругается на это

Добавлено через 46 минут
помогите решить проблему
0
1294 / 466 / 151
Регистрация: 24.08.2011
Сообщений: 2,249
17.06.2012, 14:49 4
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
uses crt;
 
type pType = ^chislo;
 
     chislo = record
     r: real;
     next: pType;
     end;
 
 
var first,tmp: pType;
    sum: real;
    n,i: integer;
 
 
begin clrscr;
write('Skoliko chisel v spiske? '); readln(n);
 
new(first);
 
write('Vvedite ',n,' chisel: ');
read(first^.r);
sum:=first^.r;
 
tmp:=first;
for i:=2 to n do
 begin
 new(tmp^.next);
 tmp:=tmp^.next;      {chitaem, srazu je schitaem summu}
 read(tmp^.r);
 inc(sum,tmp^.r);
 end;
 
sum:=sum/n;
 
new(tmp^.next);
tmp:=tmp^.next;      {dobavleaem srednee v konets}
tmp^.r:=sum;
tmp^.next:=nil;
 
new(tmp);
tmp^.r:=sum;
tmp^.next:=first;      {dobavleaem srednee v nachalo}
first:=tmp;
readkey; end.
извиняюсь, перепутала маленько. посмотрите в начале программы объявление типов. pType - это указатель на chislo, а chislo - это не указатель, а запись.
1
0 / 0 / 0
Регистрация: 19.11.2011
Сообщений: 64
17.06.2012, 16:05  [ТС] 5
inc(sum,tmp^.r); ругается на эту строчку
0
1294 / 466 / 151
Регистрация: 24.08.2011
Сообщений: 2,249
17.06.2012, 16:46 6
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
uses crt;
 
type pType = ^chislo;
 
     chislo = record
     r: real;
     next: pType;
     end;
 
 
var first,tmp: pType;
    sum: real;
    n,i: integer;
 
 
begin clrscr;
write('Skoliko chisel v spiske? '); readln(n);
 
new(first);
 
write('Vvedite ',n,' chisel: ');
read(first^.r);
sum:=first^.r;
 
tmp:=first;
for i:=2 to n do
 begin
 new(tmp^.next);
 tmp:=tmp^.next;      {chitaem, srazu je schitaem summu}
 read(tmp^.r);
 sum:=sum + tmp^.r;
 end;
 
sum:=sum/n;
 
new(tmp^.next);
tmp:=tmp^.next;      {dobavleaem srednee v konets}
tmp^.r:=sum;
tmp^.next:=nil;
 
new(tmp);
tmp^.r:=sum;
tmp^.next:=first;      {dobavleaem srednee v nachalo}
first:=tmp;
readkey; end.
Добавлено через 36 минут
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
uses crt;
 
type pType = ^chislo;
 
     chislo = record
     r: real;
     next: pType;
     end;
 
 
var first,tmp: pType;
    sum: real;
    n,i: integer;
 
 
begin clrscr;
write('Skoliko chisel v spiske? '); readln(n);
 
new(first);
 
write('Vvedite ',n,' chisel: ');
read(first^.r);
sum:=first^.r;
 
tmp:=first;
for i:=2 to n do
 begin
 new(tmp^.next);
 tmp:=tmp^.next;      {chitaem, srazu je schitaem summu}
 read(tmp^.r);
 sum:=sum + tmp^.r;
 end;
 
sum:=sum/n;
 
new(tmp^.next);
tmp:=tmp^.next;      {dobavleaem srednee v konets}
tmp^.r:=sum;
tmp^.next:=nil;
 
new(tmp);
tmp^.r:=sum;
tmp^.next:=first;      {dobavleaem srednee v nachalo}
first:=tmp;
 
write('Itogovyi spisok: ');
{tmp:=first; - ne pishem, t.k. toliko chto my sdelali first:=tmp;}
while tmp <> nil do
 begin
 write(tmp^.r:5:2);
 tmp:=tmp^.next
 end;
readkey; end.
1
0 / 0 / 0
Регистрация: 19.11.2011
Сообщений: 64
17.06.2012, 16:49  [ТС] 7
Спасибо огромное!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.06.2012, 16:49

Перенос в начало списка его максимального элемента, а в конец минимальный
нужно написать функцию,которая переносит в начало непустого списка L его максимальный элемент а в...

Получить указатель на элемент двунаправленного списка, добавить значение в начало списка и очистить его
Нужно создать двунаправленный список //вроде так, но не уверен struct Double_List {//структура...

Добавить строку не в конец, а в начало списка
Подскажите... как добавить в listBox1.Items строку, но так что б она была с верху...т.е каждая...

Найти минимальный элемент списка и переставить все его вхождения в начало списка
Допустим есть список , чтоб на выходе получилось


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru