массивы

[@lenk@]

даны два массива натуральных чисел а1,а2,а3,....,аn и b1,b2,b3,...,bn. найти несократимую обыкновенную дробь, равную (a1/b1)-(a2/b2)+(a3/B3)-(a4/b4)+...+или-(an/bn). ума не приложу как сделать. помогите пожалуйста!!!

[Базиля]

Зачем столько тем то создавать? Причем подряд
держите код:

program zad1;
type mas=array[1..100] of real;
var a,b:mas;
y:real;
i,n:integer;
begin
writeln('введите кол-во элементов');
readln(n);
y:=0;
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
write('b[',i,']=');
readln(b[i]);
end;
for i:=1 to n do
begin
y:=(a[i]/b[i])-y;
if i<>1 then
y:=y*(-1);
end;
writeln('Ответ=',y:8:3);
end.

[eoln]

Сообщение от @lenk@

найти несократимую обыкновенную дробь

Мне кажется, что надо не вычислить, а сократить. Например, дробь 10/12 сократить до 5/6.

type
  drob = record//создадим дробный тип
    chisl: integer;
    znam: integer
  end;

function NOD(a, b: integer): integer;//наибольший общий делитель
begin
  if a = 0 then NOD := b
  else NOD := NOD(b mod a, a)
end;

function NOK(a, b: integer): integer;//наименьшее общее кратное
begin
    NOK := (a div NOD(a, b)) * b;
end;

function SumDrob(a, b: drob): drob;//сумма дробей (школьная формула)
var
  y: drob;
begin
  y.znam := NOK(a.znam, b.znam);//знаменатель суммы = НОК знаменателей слагаемых
  y.chisl := a.chisl * (y.znam div a.znam) + b.chisl * (y.znam div b.znam);//числители умножаем на добавок
  SumDrob := y;
end;

function sekir(x: drob): drob;//сокращение дроби
var
  y: integer;
begin
  y := NOD(x.chisl, x.znam);//ищем НОД
  while y <> 1 do begin//если можно сокращать
    x.chisl := x.chisl div y;//то сокращаем числитель
    x.znam := x.znam div y;// и знаменатель на их НОД
    y := NOD(x.chisl, x.znam)
  end;
  sekir := x
end;

const
  n = 5;
var
  k, D: drob;
  i: integer;
  a, b: array[1..n] of integer;
begin
  for i := 1 to n do
  begin
    write('a/b ');
    readln(a[i], b[i])//ввод массива
  end;
  k.chisl := 0;
  k.znam :=1;//переменной k присвоим значение ноль (0 делить на 1 будет 0)
  for i := 1 to n do
  begin
    D.chisl := a[i];
    D.znam := b[i];//берём i-ую дробь из массивов
    if i mod 2 = 0 then D.chisl := -D.chisl;//чётные вычитаем, нечётные складываем
    k := sekir(SumDrob(k, D));//вычисляем сумму и сокращаем
    writeln(k.chisl, '/', k.znam);//промежуточные результаты
  end;
  readln
end.

[@lenk@]

EOLN,БАЗИЛЯ спасибо огромное)))) вы меня просто спасли!!!!!