Как составить программу вычисления среднего арифметического n чисел

Как составить программу вычисления среднего арифметического n чисел

Лучший ответ

ElemenT

Профи

(797)


13 лет назад

uses crt;
var
a,b,c,d:byte
begin
Writeln(‘Введите 3 числа через пробел’)
readln(a,b,c)
d:=(a+b+c) div 3
Writeln(‘Среднее арифметическое ‘, d)
Readln
End.

Остальные ответы

Hicks

Гуру

(2516)


13 лет назад

сложи все числа и подели на n

~SoWeLu~

Профи

(552)


13 лет назад

Uses crt;
var n,i,S,M:integer;
Begin
clrscr;
S:=0;
readln(n);
for i:=1 to n do
begin
read(M);
S:=S+M;
end;
S:=S/n; //среднее арифметическое
writeln(S);
readln;
End.

f f

Ученик

(169)


13 лет назад

for i:=1 to n do
begin
read(x);
s := s + x;
end;
writeln(s/n);

Источник

Описание задачи

Программа принимает введенные по одному числа, которые сохраняются в список. Затем она выводит среднее значение всех элементов этого списка.

Решение задачи

  1. Вводим переменную для хранения количества элементов, которые будут сохранены в списке в качестве входных данных.
  2. Для ввода элементов списка используем цикл for.
  3. Вычисляем сумму всех элементов списка.
  4. Делим сумму всех элементов списка на количество этих элементов.
  5. Конец.

Исходный код программы

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

n = int(input("Введите количество элементов списка: "))
a = []
for i in range(0, n):
    elem = int(input("Введите элемент списка: "))
    a.append(elem)
avg = sum(a) / n
print("Среднее значение элементов списка",round(avg, 2))

Объяснение работы программы

  1. Пользователь должен ввести число элементов списка, которое будет сохранено в переменную n (тип int).
  2. Создаем пустой список а.
  3. Значение переменной i цикла for изменяется от 0 до значения введенной нами до этого переменной n (которая обозначает количество элементов списка) и с каждой итерацией цикла увеличивается на 1.
  4. Затем значение, которое пользователь должен ввести, записывается в переменную elem.
  5. Метод a.append(elem) добавляет значение переменной elem в список a.
  6. Теперь значение переменной цикла i увеличивается на единицу и становится равным 1.
  7. Далее пользователь вводит новое значение, которое опять записывается в переменную elem, а затем добавляется в список a.
  8. Таким образом цикл работает до тех пор, пока значение переменной i не станет равным значению переменной n.
  9. Функция sum(a) вычисляет сумму всех элементов списка. Поделив эту сумму на n, мы получаем среднее значение элементов списка a.
  10. Функция round(avg,2) округляет значение среднего до двух знаков после запятой.
  11. После этого значение среднего выводится на экран с помощью функции print.

Результаты

Пример 1:
Введите количество элементов списка: 3
Введите элемент списка: 23
Введите элемент списка: 45
Введите элемент списка: 56
Среднее значение элементов списка 41.33
 
Пример 2:
Введите количество элементов списка: 5
Введите элемент списка: 12
Введите элемент списка: 24
Введите элемент списка: 33
Введите элемент списка: 25
Введите элемент списка: 18
Среднее значение элементов списка 22.4

Источник

pavelgold, очень просто! (действительно просто!) Язык Pascal этим и отличается, что понять процедуру и функцию достаточно просто.
При организации процедур, сам идентификатор (имя процедуры) в самых простых случаях не несет никакой информации. То есть вы ее вызвали, она выполнила какую-то работу (или не выполнила) и собственно все …., если это не предусмотрено программистом, то что там она выполнила можно понять только по косвенным результатам.
У функций сам идентификатор (имя функции) несет какую-то информацию как переменная. Программисты говорят “функция возвращает такой-то результат”.
Функции удобны в самых простых случаях, если требуется вывести единственный результат работы.
Процедуры в своих параметрах могут как принимать самые разные значения и типы значений, так и возвращать их столько сколько нужно). Процедуры и функции, могут и вовсе не иметь входных параметров.
Попробуйте поиграться функциями и процедурами.
Например:

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

program Project1;
 
procedure privet1;
{Процедура, которая выводит слово "Привет" в консоль}
begin
  writeln('Привет');
end;
 
function privet2: string;
{Функция, которая возвращает слово "Привет"}
begin
  privet2:= 'Привет';
end;
 
procedure privet3(n: boolean);
{Процедура, которая выводит слово "Привет" и "До свидания" в консоль
 в зависимости от значения параметра}
begin
  if n then
    writeln('Привет')
  else
    writeln('До свидания');
end;
 
function privet4(n: boolean): string;
{Функция, которая возвращает слово "Привет" и "До свидания"  в
 зависимости от значения параметра}
begin
  if n then
    privet4:= 'Привет'
  else
    privet4:= 'До свидания';
end;
 
procedure privet5(var s: string);
{Процедура, которая выводит  в параметр-переменную
 слово "Привет"}
begin
  s:= 'Привет';
end;
 
function privet6(var s: string): boolean;
{Функция, которая возвращает TRUE и выводит  в
 параметр-переменную слово "Привет"}
begin
  if s = 'Привет' then
    begin
      privet6:= true;
      s:= 'И вам привет';
    end
  else
    begin
      privet6:= false;
      s:= 'Вы не сказали "Привет"';
    end;
end;
 
var
  str: string;
begin
  privet1;        {Процедура без параметров}
  writeln(privet2); {Функция без параметров}
 
  privet3(True);     {Процедура с параметрами}
  writeln(privet4(True)); {Функция с параметрами}
 
  privet5(str);      {Процедура с параметром-переменной}
  writeln(str);
 
  str:= 'Привет';
  if privet6(str) then  {Функция с параметром-переменной}
    writeln(str)
  else
    writeln(str);
 
  Readln;
end.

На практике функции и процедуры могут одинаково хорошо выполнять компьютерные задачи.
Процедуры и функции являются подпрограммами, то есть они вбирают в себя те кодовые конструкции, которые человеку ненужно видеть непосредственно. Языки высокого уровня являются набором процедур и функций, с помощью которого вы как в конструкторе Lego строите более крупные программы.

Источник

Перейти к содержанию

Функция, вычисляющая среднее арифметическое элементов массива

Просмотров 11.9к. Обновлено 15 октября 2021

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

Среднее арифметическое определяется как сумма элементов, деленная на их количество.

Параметром функции является целочисленный массив, возвращает она вещественное число.

В теле функции элементы перебираются в цикле, каждый добавляется к переменной, в которой накапливается сумма. После завершения работы цикла полученная сумма делится на количество элементов в массиве. Полученное значение возвращается из функции в основную ветку программы. Здесь оно может быть присвоено какой-либо переменной или сразу выведено на экран.

Pascal

паскаль среднее арифметическое чисел



const N = 10;

type

    arrtype = array[1..N] of integer;

var

    arr: arrtype;

    i: byte;

    avrg: real;

 
procedure fill_array(var a: arrtype); 

begin

    for i:=1 to N do a[i]:=random(50)+1;

end;

 
function average(a:arrtype):real;

var sum:integer;

begin

    sum := 0;

    for i:=1 to N do sum:=sum+a[i];

    average := sum / n;

end;





  



                       
  






 
begin

    randomize;

    fill_array(arr);

    for i:=1 to N do write(arr[i]:4);

    writeln;

    avrg := average(arr);

    writeln(avrg:3:2);

end.





   3  31  24  25  42   5  26  39  27  43

26.50

В данном случае, кроме функции, определяющей среднее арифметическое, используется процедура заполнения массива случайными числами.

Язык Си



#include < stdio.h>

#define N 10

float average(int arr[]);


main() {

    int a[N];

    int i, min1, min2, buff;

    srand(time(NULL));

    for (i=0; i< N; i++) {

        a[i] = rand() % 100;

        printf("%3d", a[i]);

    }

    printf("n %.2fn", average(a));

}


float average(int arr[]) {

    int sum, i;

    sum = 0;

    for (i=0; i< N; i++) sum += arr[i];

    return sum/N;

}





 82 35  2 32 56 55 33 41 99 45

 48.00

Python

среднее арифметическое python



from random import random

N = 10

 
def average(a):

    s = 0

    for i in range(N):

        s += a[i]

    return s/N

 
arr = [0] * N

for i in range(N):

    arr[i] = int(random() * 100)


b = average(arr)

print(arr)

print(b)





[30, 63, 67, 29, 29, 54, 30, 29, 41, 0]

37.2

В языке Python есть встроенная функция sum(), которая возвращает сумму элементов переданного ей списка. Поэтому код

s = 0
for i in range(N):
s += a[i]
можно заменить на

s = sum(a)

Источник

Формулировка задачи:

Кто-нибудь помогите пожалуйста решить вот эти задачи (желательно до среды):
18 Дано N натуральных чисел. Написать программу, вычисляющую их среднее арифметическое. Число N вводиться перед всеми остальными числами.
19 Дано натуральное число N. Написать программу для вычисления суммы 1(2) +2(2) + 3(2)+….+N(2). Где N(2) – это число во 2 степени.
34. Дана последовательность целых чисел, заканчивающаяся нулём. Написать программу, которая подсчитывает количество чисел в последовательности.
35. Дана последовательность целых чисел, заканчивающаяся нулём. Написать программу, которая находит среднее арифметическое всех данных чисел. Число “нуль” использовать для вычисления результата не нужно.
36. Дана последовательность целых чисел, содержащая два нуля в произвольных местах. Написать программу, которая подсчитывает количество чисел между нулями.
37. Дана последовательность целых чисел, заканчивающаяся двумя нулями подряд.Написать программу, которая подсчитывает количество чисел в последовательности.
38. Дана последовательность целых чисел, заканчивающаяся нулём.Написать программу, которая выводит последнее нулевое число последовательности.
61. Дано натуральное число N. Написать программу для вычисления суммы вида 1/1 + 1/2 + 1/3 +… (N слагаемых).
74. Дано натуральное число N. Написать программу для вычисления суммы вида 1/1(2) + 1/2(2) + 1/3(2)… +1/N (2). Где N(2) – это число во 2 степени.
75. Дано целое число N (>0). Найти произведение 1,1*1,2*1,3*… *N.
78. Дано целое число N (>0). Найти значение выражения 1,1 – 1,2 + 1,3… (N слагаемых, знаки чередуются). Условный оператор не использовать.
82.Даны натуральное число N и последовательность из N целых чисел. Написать программу, определяющую количество положительных чисел в последовательности.
85.Дана последовательность из N чисел. Написать программу для нахождения минимального числа последовательности и его номера.
89. Даны целые числа N, K, а также K наборов целых чисел по N элементов в каждом наборе. Для каждого набора вывести сумму его элементов.

Знаю что здесь есть и простые задания, но я их всё ровно не понимаю =(, если кто может дайте пожалуйста решения и объяснение того как эти задания (или одно задание) сделать.
Тем кто поможет сделать заранее огромное человеческое СПАСИБО.

Код к задаче: «Вычислить среднее арифметическое N чисел»

textual

var i, n, b :integer;
begin
b:=0;
writeln('Сколько раз нужно проделать операцию? ');
readln(n);
for i:=1 to n do
begin
b:=b+sqr(i);
end;
writeln('Результат выполнения программы:',b);
end.

Полезно ли:

13   голосов , оценка 3.846 из 5

Источник

Добавить комментарий