0 / 0 / 0
Регистрация: 03.10.2017
Сообщений: 17
1

Создать линейный однонаправленный список из целых чисел. Определить среднее арифметическое значений всех элементов

25.12.2017, 23:45. Показов 2736. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Создать линейный однонаправленный список из целых чисел. Опреде-
лить среднее арифметическое значений всех элементов списка, кроме
второго и третьего
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.12.2017, 23:45
Ответы с готовыми решениями:

Создать стек из целых случайных чисел и определить среднее арифмитическое значение всех элементов
1.Создать стек из целых случайных чисел и определить среднее арифмитическое значение всех...

Найти среднее арифметическое всех целых чисел от a до b
Помогите пожалуйста. Задача 1. Найти среднее арифметическое всех целых чисел от a до b...

Найти среднее арифметическое всех целых чисел от 1 до 1000;
Найти среднее арифметическое всех целых чисел от 1 до 1000;

Найти среднее арифметическое кубов всех целых чисел от а до 100.
Найти среднее арифметическое кубов всех целых чисел от а до 100 (значение а вводится с клавиатуры ,...

1
Эксперт Pascal/Delphi
6809 / 4566 / 4819
Регистрация: 05.06.2014
Сообщений: 22,438
26.12.2017, 09:31 2
Лучший ответ Сообщение было отмечено kasaevs как решение

Решение

Взято отсюда: Динамические структуры данных (списки, очереди, стеки, деревья)
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
program Spisok;
 
type
  Tinf = integer;{тип данных, который будет храниться в элементе списка}
  List = ^TList;{Указатель на элемент типа TList}
  TList = record {А это наименование нашего типа "запись" обычно динамические структуры описываются через запись}
    data: TInf;  {данные, хранимые в элементе}
    next: List;   {указатель на следующий элемент списка}
  end;
 
{Процедура добавления нового элемента в односвязный список}
procedure AddElem(var spis1: List; znach1: TInf);
var
  tmp: List;
begin
  if spis1 = nil then {Проверяем не пуст ли список, если пуст, то }
  begin
    New(spis1);
    tmp := spis1;
  end
  else {в случае если список не пуст}
  begin
    tmp := spis1;
    while tmp^.next <> nil do
      tmp := tmp^.next; {ставим tmp на последний элемент списка}
    New(tmp^.next);
    tmp := tmp^.next;   {переносим tmp на новый элемент}
  end;
  tmp^.next := nil; {зануляем указатель}
  tmp^.data := znach1; {заносим значение}
end;
 
{процедура печати списка
полностью расписана при работе со стеком}
procedure Print(spis1: List);
begin
  if spis1 = nil then
  begin
    writeln('Список пуст.');
    exit;
  end;
  while spis1 <> nil do
  begin
    Write(spis1^.data, ' ');
    spis1 := spis1^.next
  end;
end;
 
{процедура удаления списка
 полностью расписана при работе со стеком}
procedure FreeStek(spis1: List);
var
  tmp: List;
begin
  while spis1 <> nil do
  begin
    tmp := spis1;
    spis1 := spis1^.next;
    Dispose(tmp);
  end;
end;
 
 
var
  Spis, tmpl: List;
  s, i, n, znach: integer;
 
begin
  Spis := nil;
  s := 0;
  randomize;
  write('Cколько элементов в списке?');
  readln(n);
  for i := 1 to n do
  begin
    znach := -n div 2 + random(n);
    AddElem(Spis, znach);
  end;
  Print(Spis);
  writeln;
  i := 1;
  while spis <> nil do
  begin
    if not (i in [2, 3]) then
      s := s + spis^.data;
    spis := spis^.next;
    inc(i);
  end;
  writeln('Среднее: ', s / (n - 2));
  FreeStek(Spis);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.12.2017, 09:31
Помогаю со студенческими работами здесь

Найти среднее арифметическое число всех целых положительных чисел меньших 47
1)Найти среднее арифметическое число всех целых положительных чисел меньших 47. 2)Складіть...

Найти среднее арифметическое число всех целых положительный чисел меньших 20
Найти среднее арифметическое число всех целых положительный чисел меньших 20

Создать линейный однонаправленный список из целых чисел
Создать линейный однонаправленный список из целых чисел. Определить среднее арифметическое значений...

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


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

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

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