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

Описать функцию или процедуру, находящую среднее арифметическое элементов списка

28.03.2014, 10:48. Показов 1303. Ответов 1
Метки нет (Все метки)

Описать функцию или процедуру, которая находит среднее арифметическое элементов непустого списка L (TypeElem — real);
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.03.2014, 10:48
Ответы с готовыми решениями:

Описать функцию или процедуру, которая находит среднее арифметическое элементов непустого списка L
Описать функцию или процедуру, которая находит среднее арифметическое элементов непустого списка L...

Написать функцию, находящую среднее арифметическое элементов матрицы
2. Написать функцию, находящую среднее арифметическое элементов матрицы.

Описать процедуру или функцию, которая находит max элемент не пустого списка L
Задание: описать процедуру или функцию, которая находит max элемент не пустого списка L (инф. часть...

Описать рекурсивную функцию или процедуру, которая добавляет новый элемент Е в конец списка L
Описать рекурсивную функцию или процедуру, которая добавляет новый элемент Е в конец списка L

1
223 / 220 / 219
Регистрация: 03.07.2012
Сообщений: 462
29.03.2014, 10:31 2
Лучший ответ Сообщение было отмечено Chowder как решение

Решение

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
uses
  crt;
type
  TypeElem  = real; 
  TPNode = ^TNode;
  TNode  = record
  Data : TypeElem;
  Next : TPNode;
  end;
  TList = record
  First, Last : TPNode;
  end;
//  добавляет элемент в конец списка
procedure AddList(var aList : TList; n : TypeElem);
var aL : TList;
begin
  If aList.Last = nil then begin
    New(aList.Last);
    aList.Last^.Data := n;
    aList.First := aList.Last;
  end else begin
    aL.First := nil;
    aL.Last := nil;
    AddList(aL,n);
    aList.Last^.Next := aL.First;
    aList.Last := aL.Last;
  end;
  aList.Last^.Next := nil;
end;
//  выводит список
procedure Print(aList : Tlist);
var aL : TList;
begin
  if aList.First = nil then writeln
  else begin 
    write(aList.First^.Data:7:2);
    aL.First := aList.First^.Next;  
    Print(aL);
  end;
end;  
//  возвращает среднее арифметическое элементов списка
function Average(aList : TList) : real;
var s : TypeElem; i : byte;
begin
  i := 0; s := 0;
  while aList.First<>nil do begin
      s := s + aList.First^.Data;
      inc(i);
    aList.First := aList.First^.Next;
  end;
  If i <> 0 then Average := s/i
  else Average := 0;
end;
procedure FreeMemor(var aList : Tlist);
var PElem : TPNode;
begin
  while aList.First<>nil do begin
    PElem := aList.First;
    aList.First := aList.First^.Next;
    Dispose(PElem);
  end;
  aList.Last := nil;
end;
var
  L   : TList;
  i, n : byte;
  a    : TypeElem;
begin
  clrscr;
  write('List size : '); readln(n); 
  L.First := nil;
  L.Last  := nil;
  for i := 1 to n do begin
    write(i,'-oe number : '); readln(a);
    AddList(L,a);
  end; writeln;
  Print(L); 
  writeln('Среднее арифметическое элементов списка : ',Average(L):7:3);
  FreeMemor(L);
  readln;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.03.2014, 10:31

Описать функцию average(ar, n), вычисляющую среднее арифметическое первых n элементов массива
Дано описание: Type artype=array of real; Описать функцию average(ar,n), вычисляющую среднее...

Описать процедуру Mean(X, Y, AMean, GMean), вычисляющую среднее арифметическое и среднее геометрическое
Описать процедуру Mean(X, Y, AMean, GMean), вычисляющую среднее арифметическое AMean = (X + Y)/2...

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

Описать процедуру Mean(X, Y), вычисляющую среднее арифметическое AMean = (X+Y)/2 и среднее геометрическое GMean = √(X•Y)
Описать процедуру Mean(X, Y), вычисляющую среднее арифметическое AMean = (X+Y)/2 и среднее...


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

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

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