Помогите решить на Паскале задачки

[bliz]

Доброго всем время суток
Помогите с задачками на паскале:
1.ЗАДАЧА НА МОДУЛИ.В основной программе найти сумму обратных дробей. (то есть cделать так чтобы модуль переворачивал дробь, а в основной программе ввести n-количество дробей и посчитать сумму обратных дробей.)
2.РЕШИТЬ С ПОМОШЬЮ РЕКУРСИ. Дано натуральное число. Проверьте, является ли оно палиндромом.
заранее Спасибо


Первая задача не работат может найдете ощибку(если канешно может вобще всё неправелно)
МОДУЛЬ:
unit droby;
interface
type
nat=1..high(longint);
frac=record
p:longint;
q:nat
end;
procedure perev(a:frac;var c:frac);
implementation
procedure perev;
begin
c.q:=a.p;
c.p:=a.q;
end;
begin;
end.
ОСНОВНАЯ ПРОГРАММА:
Uses droby;
type
nat=1..high(longint);
frac=record
p:longint;
q:nat
end;
Var a:array[1..100] of frac;
N,i:integer;
S:frac;
procedure summa(a,b:frac;var c:frac);
begin
c.q:= (a.q*b.q);
c.p:=a.p*b.q+b.p*a.q;
end;
Begin
Writeln;
Readln(n);
s.p:=0;s.q:=1;
for i:=1 to n do
begin
write; readln(a[i].p);
write; readln(a[i].q);
summa(a[i],s,s);
end;
writeln('сумма=',s.p,'/',s.q);
end.


Ко второй задаче написал программrу,но она без рекурсии.
var s:string; i:integer; x:boolean;
begin
readln(s);
x:=true;
for i:=1 to length(s) do
if s[i]<>s[length(s)-i+1] then x:=false;
writeln(x);
end.

[capta1n]

Это модуль:

unit droby;
interface
 function obr (a : real) : real;
implementation

 function obr;
 begin
   if a=0 then obr:=0
   else obr:=1/a
 end;

end.

А это программа, использующая этот модуль:

program prog;
uses droby;
var
 a : real;
 m, n : integer;
 sum : real;
begin
  sum:=0;
  repeat
    write ('Vvedite 4islitel'': ');
    readln (m);
    write ('Vvedite znamenatel'': ');
    readln (n);
    if n=0 then break;
    a:=m/n;
    sum:=sum+a+obr(a);
  until n=0;
    writeln ('Summa= ',sum:0:2);
    readln
end.

Если есть вопросы - обращайся - да и советую прочитать про структуру построения модулей - есть определенные правила писания модулей - почитай - у тебя есть недочеты в написании модуля

[capta1n]

Да и frac - Это одна из стандартных функций паскаля, возвращающая дробную часть от числа - ее нельзя использовать в своих названиях, как допустим у тебя она использована как имя записи

[bliz]

Так проще ,но не совсем то, что мне надо. Я немножко неправильно постановку задачи написал. Мне нужно ввести n-количество дробей, в модуле перевернуть их, а в основной программе посчитать сумму, вот.

[capta1n]

сча исправим за 15 секунд )

[capta1n]

исправил ) чтобы выйти из цикла достаточно ввести знаменатель, равный нулю, что сразу убьет двух зайцев - мы избежим ошибки и выйдем из цикла )

[capta1n]

Вторая задача - прошу с отзывом

program lala;
var
n,m : string;
i : byte;

 function pp ( st : string; i : byte ) : string;
 begin
  if i=1 then pp:=st[1]
  else pp:=st[i]+pp(st,i-1)
 end;
begin
writeln ('vvedite 4islo');
readln (n);
m:=pp(n,length(n));
if m=n then
writeln ('palindrom')
else
writeln ('NE PALINDROM');
readln;
end.

[bliz]

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

[capta1n]

Отзыв не забудь! Для тебя важна решенная задача, а для меня - набор опыта, помощь людям и отзывы )))

[bliz]

Сообщение от capta1n

Отзыв не забудь! Для тебя важна решенная задача, а для меня - набор опыта, помощь людям и отзывы )))

Или чёта и меня глючит или с форумом неладное вроде дабавел отзыв, а репутации не прибавилось.