Определите ошибку в тексте программы на языке Pascal

[Антихурма]

Написал программу по заданию:
Описать процедуру вычисления суммы двух дробей типа а/b. Использовать эту процедуру для вычисления суммы 1+1/2+1/3+...+1/n и вывода результата в виде дроби a/b.

function gcd(m, n: integer): integer;
    var modulo: integer;
    begin
        modulo := m mod n;
        if modulo = 0 then
            gcd := n
        else
            gcd := gcd (n, modulo)
    end;

Procedure Add(a, b, a1, b1:integer);
var
  f: integer;
begin
  f:=b;
  b:=b*b1;
  a:=a*b1+a1*f;
  var c:=gcd(a, b);
  a:=a div c;
  b:=b div c;
end;

var
  a, b, a1, b1, n: integer;
begin
  Writeln('Введите n');
  readln(n);
  a1:=1;
  a:=1;
  b:=2;
  for var i:=2 to n-1 do
    begin
      b1:=i+1;
      add(a, b, a1, b1);
    end;
  writeln(a, '/', b);
  a:=a+n;
  var d:=gcd(a, b);
  a:=a div d;
  b:=b div d;
  writeln(a,'/',b);
end.

помогите найти ошибку. Функция gcm находит наибольшее общее кратное(для сокращения дроби). Буду признателен и стану умнее))



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!

Модератор.

[ViktorR]

А что за язык, если не секрет.
Вроде как одна из ветвей Паскаля

a:=a*b1+a1*f;
var c:=gcd(a, b);
a:=a div c;

Тут определение переменной в сегменте кода.
Далее:

Procedure Add(a, b, a1, b1:integer);
var
f: integer;
begin
f:=b;
b:=b*b1;
a:=a*b1+a1*f;
var c:=gcd(a, b);
a:=a div c;
b:=b div c;
end;

Аргументы переданы по значению

Procedure Add(a, b, a1, b1:integer);

но в теле функции:

b:=b*b1;

Может надо:

Procedure Add(var a, b: integer; a1, b1:integer);

Только вопросы ...

[Антихурма]

pascalABC.Net ... если можно коперни программу правильную и рабочую.. очень нужно сейчас отправить, просто это не первая такая заморочка, и моя голова уже не работает, я позже разберусь..

[ViktorR]

Сожалею, но на этом языке не писал.

Отмечу, что первый вопрос отпал. На этом языке так делать можно.

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

add(a, b, a1, b1);

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

Procedure Add(a, b, a1, b1:integer; var ch,zn: integer);

var - признак передачи по адресу. Т.е. процедуре будет известен адрес, по которому надо вернуть результат.
Может быть так пойдет:

Procedure Add(a, b, a1, b1:integer; var ch,zn: integer);
var
ch, zn, c: integer;
begin
ch :=a*b1+b*a1;
zn := a1*b1;
c:=gcd(ch, zn);
ch:=ch div c;
zn:=zn div c;
end;

Вызов процедуры надо будет тоже править.

Как-то так ...

[Антихурма]

Function logperev(x: string): boolean;
var
  f: integer;
begin
  copy(x, 1, 1);
  For var i:=1 to trunc(length(x)/2) do
    begin
      if x[i]<>x[length(x)-i+1] then
        f:=1;
      if f<>1 then logperev:=true 
        else logperev:=false;
    end;
end;
var
  c, n: integer;
  y: string;
 begin
  writeln('Введите количество чисел');
  Readln(n);
  writeln('Введите числа');
  c:=0;
  For var j:=1 to n do 
    begin
      readln(y);
      if Logperev(y) then
        c:=c+1;
    end;
  writeln(‘количество чисел палиндромов =  ‘, c);
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.