задача перевода из восьмеричной системы счисления в десятеричную

[Sylar9]

Помогите с задачей вот задача
Написать на паскале решение задачи перевода из восьмеричной системы счисления в десятеричную. Решить эту задачу нужно двумя способами для целых и для дробных чисел

[Mad_Cat]

function OctToDec(s:string):integer;
var n,f,i:integer;
begin
n:=0;f:=1;
for i:=length(s) downto 1 do
 begin
  n:=n+f*(ord(s[i])-48);
  f:=f*8;
 end;
OctToDec:=n;
end;
function RealOctToDec(s:string):real;
var f,i:integer;
n:real;
begin
n:=0;f:=1;
for i:=pos(',',s)-1 downto 1 do
 begin
  n:=n+f*(ord(s[i])-48);
  f:=f*8;
 end;
 f:=1;
for i:=pos(',',s)+1 to length(s) do
 begin
  f:=f*8;
  n:=n+(ord(s[i])-48)/f;
 end;
 RealOctToDec:=n;
 end;
var s,s1:string;
c1,c2:real;
begin
s:='23,12';
if pos(',',s)=0 then c1:=OctToDec(s) else
c1:=RealOctToDec(s);
writeln(s,'o=',c1,'d');
end.

результат

23,12o=19.15625d

[Sylar9]

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

для целого (с) Puporev

function OctToDec(s:string):integer;
var n,f,i:integer;
begin
n:=0;f:=1;
for i:=length(s) downto 1 do
 begin
  n:=n+f*(ord(s[i])-48);
  f:=f*8;
 end;
OctToDec:=n;
end;

а второй пример

[Serge_Bliznykov]

вам обе функции дали:

function OctToDec(s:string):integer;

function RealOctToDec(s:string):real;