Записи

[Ilai]

Добрый день!
Помогите, пожалуйста написать программу: Дан массив правильных дробей, представленных записями. Найти суммы дробей, знаменатели которых равны. Использовать подпрограммы для ввода, вывода дроби и сравнения дробей.

[newerow1989]

type tDrob=record
     ch,zn:integer;
     end;
var p:array[1..20] of tDrob;
    b:array[1..20] of boolean;
    i,j:byte;
    s:real;
begin
   Randomize;
   For i:=1 to 20 do
   begin
      p[i].ch:=Random(20);
      p[i].zn:=p[i].ch+Random(20)+1;
      Write(p[i].ch,'/',p[i].zn,'  ');
      b[i]:=false;
   end;
   Writeln;
   For i:=1 to 19 do
      For j:=i+1 to 20 do
         If p[i].zn=p[j].zn then
         begin
            b[i]:=true;
            b[j]:=true;
         end;
   s:=0;
   For i:=1 to 20 do
      If b[i] then
         s:=s+p[i].ch/p[i].zn;
   Writeln(s:5:5);
   Readln;
end.

Сойдет?

[Ilai]

Да, большое Вам спасибо! Единственное ещё один вопрос: если у нас несколько дробей с одинаковыми знаменателями, я имею ввиду, вот протестировал программу, а здесь 2 дроби с знаменателем 20, 2 дроби с знаменателем 24, 2 дроби с знаменателем 30 и 2 дроби с знаменателем 25. То есть, получается должно вывести 4 суммы?

[newerow1989]

У меня одна общая сумма