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

Найти сумму всех дробей и их среднее арифметическое

10.11.2014, 11:59. Показов 2536. Ответов 13
Метки нет (Все метки)

помогите с заадачами. 1. Дан массив А, элементы которого обыкновенные дроби. Найти сумму всех элементов и их среднее арифметическое.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.11.2014, 11:59
Ответы с готовыми решениями:

Найти сумму всех элементов и их среднее арифметическое, результаты представить в виде несократимых дробей
Здарова. Дали задачу написать программу реализующую класс “дробь”, в которой значение дроби...

Найти в заданном интервале сумму всех четных чисел и среднее арифметическое всех нечетных
Задать интервал целых чисел. Найти сумму всех четных чисел и среднее арифметическое всех нечетных.

Найти сумму и среднее арифметическое, общую сумму всех элементов массива
Помогите решить , очень надо Даны 2 одномерные масив состоящие их 9 элементов на интервале от -10...

Найти сумму всех чисел массива и их среднее арифметическое
Добрый день. Прошу оказать помощь в решении задачи (задали дочери в школе) Сформировать массив...

13
Эксперт Pascal/Delphi
6645 / 4470 / 4749
Регистрация: 05.06.2014
Сообщений: 21,975
10.11.2014, 18:25 2
Дан массив А, элементы которого обыкновенные дроби.
Это как?
0
0 / 0 / 0
Регистрация: 08.11.2012
Сообщений: 14
10.11.2014, 20:22  [ТС] 3
это 1/2, 3/4 например.
0
Эксперт Pascal/Delphi
6645 / 4470 / 4749
Регистрация: 05.06.2014
Сообщений: 21,975
10.11.2014, 20:24 4
Коляда, скажите мне, пожалуйста, в массив данных какого типа нужно занести обыкновенные дроби?
0
Модератор
63400 / 47085 / 32454
Регистрация: 18.05.2008
Сообщений: 114,133
10.11.2014, 20:31 5
Обычно типа такого.
Pascal
1
2
3
4
type frac=record
              p,q:integer;
              end;
var a:array[1..10] of frac;
Не понимаю только как находят среднее арифметическое обыкновенных дробей...
0
0 / 0 / 0
Регистрация: 08.11.2012
Сообщений: 14
10.11.2014, 20:35  [ТС] 6
вот я не понимаю.
0
Эксперт Pascal/Delphi
6645 / 4470 / 4749
Регистрация: 05.06.2014
Сообщений: 21,975
10.11.2014, 20:46 7
Puporev, аааа, то есть в записи типа "числитель/знаменатель"?

Вопрос, а как ТС собирается складывать дроби?

Добавлено через 37 секунд
А неправильные дроби могут быть?
0
0 / 0 / 0
Регистрация: 08.11.2012
Сообщений: 14
10.11.2014, 20:51  [ТС] 8
да. числитель знаменатель. нет неправильные не могут, потому что из них можно выделить целую часть и это уже будет смешанная дробь. ну я так думаю.
0
Модератор
63400 / 47085 / 32454
Регистрация: 18.05.2008
Сообщений: 114,133
10.11.2014, 20:52 9
Дроби могут быть любые. Складывать так
Pascal
1
2
c.p:=a.p*b.q+b.p*a.q;
c.q:=a.q*b.q;
Потом сокращение, например через НОД.
Вообще я уже выкладывал программы для работы с дробями не раз.
0
0 / 0 / 0
Регистрация: 08.11.2012
Сообщений: 14
10.11.2014, 21:00  [ТС] 10
искала не нашла. можно мне еще раз. если можно полностью. за ранее спасибо.
0
Эксперт Pascal/Delphi
6645 / 4470 / 4749
Регистрация: 05.06.2014
Сообщений: 21,975
10.11.2014, 21:19 11
Коляда, Ответ: Сложение дробей.
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
5727 / 3436 / 2442
Регистрация: 22.11.2013
Сообщений: 9,653
Записей в блоге: 1
10.11.2014, 21:37 12
Если что, можно "в лоб":
Pascal
1
2
3
4
5
var
  s: Real;
...
  s:=0; for i:=1 to n do with a[i] do s:=s+p/q;
  WriteLn('SUM=',s:0:2,', AVG=',s/n:0:2);
0
Модератор
63400 / 47085 / 32454
Регистрация: 18.05.2008
Сообщений: 114,133
11.11.2014, 10:08 13
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
uses crt;
const max=20;
type frac=record
          p:integer;{числитель любое целое число}
          q:1..maxint;{знаменатель целое положительное число}
          end;
procedure summa(a,b:frac;var c:frac);
begin
c.p:=a.p*b.q+b.p*a.q;
c.q:=a.q*b.q;
end;
procedure sokr(var a:frac);
var i:integer;
begin
i:=2;
while(i<=abs(a.p))and(i<=a.q) do
 begin
  if(a.p mod i=0)and(a.q mod i=0) then
   begin
    a.p:=a.p div i;
    a.q:=a.q div i;
   end
  else i:=i+1
 end;
end;
var a:array[1..max] of frac;
    sm:frac;
    sr:real;
    n,i:byte;
begin
clrscr;
randomize;
repeat
write('Размер массива от 2 до ',max,' n=');
readln(n);
until n in [2..max];
writeln('Массив дробей');
for i:=1 to n do
 begin
  repeat
  a[i].p:=-5+random(21);
  until a[i].p<>0; {числитель <>0}
  repeat
  a[i].q:=1+random(20);
  until a[i].q>abs(a[i].p);{делаем правильные дроби}
  write(a[i].p:3,'/',a[i].q:2);
 end;
writeln;
for i:=2 to n do
 begin
  summa(a[i],a[i-1],sm);{складываем текущее с предыдущим результатом}
  sokr(sm); {сокращаем результат}
  a[i-1]:=sm;{присваиваем предыдущему результат}
 end;
write('Сумма дробей=');
if sm.p=sm.q then writeln(1)
else if sm.p=-sm.q then writeln(-1)
else if abs(sm.p)<sm.q then writeln(sm.p:3,'/',sm.q:2)
else writeln(sm.p div sm.q,'+',sm.p mod sm.q,'/',sm.q:2);
sr:=sm.p/sm.q/n;
write('Среднее арифметическое=',sr:0:2);
readln
end.
1
0 / 0 / 0
Регистрация: 19.10.2014
Сообщений: 41
14.01.2015, 06:31 14
если кто-то будет использовать этот код, то примите во внимание, что в строке 53 вместо
Pascal
1
a[i-1]:=sm
нужно
Pascal
1
a[i]:=sm
, так как присваивая результат предыдущему программа не захватывает его в дальнейших вычислениях (если n>2).
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.01.2015, 06:31

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

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

В одномерном массиве, состоящем из обыкновенных дробей, находит среднее арифметическое всех элементов массива
Напишите программу, используя модуль, которая в одномерном массиве, состоящем из обыкновенных...

Найти сумму, среднее арифметическое и произведение всех элементов массива
1.Имеется вещественный массив, состоящий из 9 элементов. Найти сумму, среднее арифметическое и...

Найти сумму, количество и среднее арифметическое всех целых трёхзначных чисел
Помогите. Нужно на C#. Найти сумму, количество и среднее арифметическое всех целых трёхзначных...


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

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

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