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

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

15.01.2015, 23:01. Показов 2161. Ответов 5
Метки нет (Все метки)

помогите решить задачу в паскале
Дана таблица из 10 элементов. Составить подпрограмму вычисления среднего арифметического элементов заданного участка. Обращаясь к подпрограмме вычислить среднее арифметическое элементов на участках 1-6, 7-10.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.01.2015, 23:01
Ответы с готовыми решениями:

Составить подпрограмму вычисления среднего арифметического элементов вектора
Составить подпрограмму вычисления средне арифметического элементов вектора Используя ее...

Составить подпрограмму вычисления среднего арифметического элементов вектора
Составить подпрограмму Вычисления среднего арифметического элементов вектора. Используя ее,...

Составить подпрограмму вычисления среднего арифметического отрицательных элементов в столбцах с нечетными номерами
Помогите решить задачу в паскале Дана таблица 5*6. Составить подпрограмму вычисления среднего...

Составить процедуру вычисления среднего арифметического элементов одномерного массива A[m]
Составить процедуру вычисления среднего арифметического элементов одномерного массива A, с помощью...

5
1 / 0 / 2
Регистрация: 09.09.2013
Сообщений: 125
15.01.2015, 23:58 2
так создай функцию, которая будет принимать 3 значения, а потом вычислять ср.арифм. проблемы что ли с этим?
0
1 / 1 / 0
Регистрация: 15.01.2015
Сообщений: 29
16.01.2015, 10:31  [ТС] 3
Проблема со всем
0
охотник
1011 / 535 / 650
Регистрация: 29.09.2014
Сообщений: 1,083
16.01.2015, 11:43 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
const n=10;
type mas=array[1..n]of integer;
var a:mas;
    i:integer;
    r:real;
procedure sred(x:mas;x1,xn:integer;var rez:real);
var i,s:integer;
 begin
  s:=0;
  for i:=x1 to xn do s:=s+x[i];
  rez:=s/(xn-x1+1);
 end;
begin
 randomize;
 writeln('tablica');
 for i:=1 to n do
  begin
   a[i]:=random(11);
   write(a[i],' ');
  end;
 writeln;
 sred(a,1,6,r);
 writeln('srednee arifmeticheskoe elementov 1-6: ',r:0:2);
 sred(a,7,10,r);
 writeln('srednee arifmeticheskoe elementov 7-10: ',r:0:2);
 readln
end.
1
Модератор
Эксперт Pascal/DelphiЭксперт NIX
5726 / 3436 / 2441
Регистрация: 22.11.2013
Сообщений: 9,647
Записей в блоге: 1
16.01.2015, 11:48 5
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
const
  nmax=10;
type
  TMas = array [1..nmax] of Real;
 
function AvgRng(const a: TMas; b, e: Integer): Real;
var
  r: Real;
  i: Integer;
begin
  r:=0; for i:=b to e do r:=r+a[i];
  AvgRng:=r/(e-b+1);
end;
var
  a: TMas;
  i: Integer;
begin
  Randomize;
  WriteLn('A=');
  for i:=1 to nmax do begin
    a[i]:=Random*100; Write(' ',a[i]:7:2);
  end; WriteLn;
  WriteLn('AVG(1..6)=',AvgRng(a,1,6),', AVG(7..10)=',AvgRng(a,7,10));
end.
PS. Не для таблицы.
1
1 / 1 / 0
Регистрация: 15.01.2015
Сообщений: 29
16.01.2015, 16:06  [ТС] 6
спасибо
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.01.2015, 16:06

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Составить программу вычисления среднего арифметического значения элементов массива
Составить программу вычисления среднего арифметического значения элементов массива Z с нечетными...

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

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

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.