Главная

Вычисление средних арифметических массивов

вс, 04/10/2011 - 14:43 — tech
Задача: 

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

Описание переменных: 

arr – массив, состоящий их 5 элементов-массивов, каждый из которых в свою очередь содержит 10 целых чисел;
average – массив, содержащий средние арифметические вложенных массивов массива arr;

Алгоритм решения задачи: 
  1. Заполняем массивы целыми числами с помощью функции fill_array. Функция вызывается в цикле for 5 раз и возвращает очередной подмассив массива arr.
  2. Для каждого вложенного массива целых чисел вычисляется среднее арифметическое с помощью функции found_average. Результат заносится в массив average.
Программа на языке Паскаль:  

const n = 10; m = 5;
type
    type_numbers = array[1..n] of integer;
    type_arr = array[1..m] of type_numbers;
    type_average = array[1..m] of real;
var
    arr: type_arr; {array of arrays}
    average: type_average; {array of averages}
    i,j: byte;
 
function fill_array():type_numbers;
var i:byte; a:type_numbers;
begin
    for i:=1 to n do a[i]:=random(50)+1;
    fill_array := a;
end;
 
function found_average(a:type_numbers):real;
var i:byte; sum:integer;
begin
    sum := 0;
    for i:=1 to n do sum:=sum+a[i];
    found_average := sum / n;
end;
 
begin
    randomize;
    for i:=1 to m do arr[i] := fill_array();
    for i:=1 to m do begin
        for j:=1 to n do write(arr[i,j]:3);
        average[i]:=found_average(arr[i]);
        writeln(' -- ', average[i]:6:2);
    end;
readln
end.

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

Комментарии

Пнд, 12/09/2013 - 11:22 — Гость

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

Найти среднее арифметическое чисел, принадлежащее промежутку [A,B) и количество положительных чисел стоящих на местах, кратных 4. Задача должна решаться с массивом.

  • ответить
ср, 03/20/2013 - 01:35 — Гость

Помогите решить задачу!

Нужно создать программу для построения масива с 20 елементами a[i]=4sin3i и найти средне арифметическое значение елементов больших от -1 и меньших от 1

  • ответить
Пнд, 04/02/2012 - 17:29 — Гость (не проверено)

Помогите решить задачy!

С клавиатуры вводится натуральное число N.
За ним последовательно вводятся данные о росте n yчашихся класса. Определите средний рост yчашихся всего класса.
Попробyйте решить задачy без использования массивов. 

  • ответить
ср, 04/04/2012 - 11:44 — tech

var i,n, growth: byte;

var
    i,n, growth: byte;
    sum: real;
 
begin
    write('Количество учащихся: ');
    readln(n);
 
    sum := 0;
    for i:=1 to n do begin
        write('Рост ', i, '-го ученика: ');
        readln(growth);
        sum := sum + growth;
    end;
 
    writeln('Средний рост: ', sum / n:7:2);
readln;
end.

  • ответить
ср, 12/26/2012 - 19:22 — Гость

Составить подпрограмму,

Составить подпрограмму, которая вычисляет среднее арифмитическое и среднегеометрическое массива Х(N). с помощью подпрограммы вычислить среднеарифмитическое и среднегеометрическое массивов А(1, В(6), С(13), D(8). для передачи имени массивов в подпрограмму использовать понятие открытого массива. элементы массивов А, В, С, и D вычислить по формулам
Аi=1.5i+3i^2-2
Bj=0.4je^sin(j)
Ck=cos(2.4k)e^sin(3k)
Dm=2m-3m^0.5+4m^2+1

  • ответить