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

[EleF]

Есть задача: Дано 20-ти разрядное число в пятеричной системе, необходимо написать программу для перевода его в десятичную. Причем при вводе неправильного знака (>=5) программа должна об этом говорить. Вот что навоял, но есть несколько недостатков:

1. Разрядность максимум 12 знаков (дальше начинает считать неправильно)
2. Не до конца разобрался с синтаксисом (go to не работает должным образом).

program Kursovik;

var
  J, i, p: integer;
  Pyat: string;
  DEC: double;

label 1;
begin
  1:
  writeln('Введите пятеричное число');
  read(Pyat);
  DEC := 0;
  for J := 1 to Length(Pyat) do
  begin
    if StrToInt(Pyat[J]) >= 5 then
    begin
      writeln('Ошибка в ', j, ' Знаке. Проверьте данные.');
      goto 1;
    end
    else
      p := 1;
    for i := 1 To (J - 1) Do p := p * 5;
    DEC := DEC + StrToInt(Pyat[Length(Pyat) + 1 - J]) * p//Пересчет с "конца" исходного массива
  end;
  Writeln('В пятеричной системе  ', Pyat, ' = ', DEC, ' В десятичной системе');
end.

Большое спасибо за то, что уделили внимание

[TinMan]

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

1. Разрядность максимум 12 знаков (дальше начинает считать неправильно)
2. Не до конца разобрался с синтаксисом (go to не работает должным образом).

Чтоб правильно обрабатывать длинные числа, используй тип extended, а не double.
По синтаксису совет такой: НИКОГДА НЕ ИСПОЛЬЗУЙ goto. Если в опциях компилятора есть возможность отключить goto - СДЕЛАЙ это без тени сомнения. Твой код - это классический пример того, как можно изуродовать программу, применяя этот оператор.

Вот тебе твоя исправленная прога. Постарайся вникнуть и разобраться. Если будут вопросы - задавай. Извини, я твои (совершенно уродские) переменные переименовал в более приличные..

var
  i, p,e: integer;
  s: string;
  d: extended;

begin
  repeat
    writeln('Введите пятеричное число:');
    readln(s);
    e:= 0;
    for i:=Length(s) downto 1 do
      if not (s[i] in ['0'..'4']) then e:=i;
    if e>0 then
      writeln('Ошибка в ', e, '-м знаке. Проверьте данные.')
  until e=0;
  d:= 0;
  for i:= 1 to Length(s) do d:= d*5+ord(s[i])-ord('0');
  Writeln('В пятеричной системе ',s,' = ',d:0:0,' в десятичной системе');
end.

И последнее - обрати внимание на форматирование кода (отступы). Возьми мой код за пример и придерживайся таких правил. Это ОЧЕНЬ важно.
Успехов тебе.

[EleF]

Спасибо тебе большое. Только : Неизвестное имя 'extended'.
И еще

d:= 0;
for i:= 1 to Length(s) do d:= d*5+ord(s[i])-ord('0');

при d=0 произведение d*5 тоже ноль. Или я чего не понимаю?

[AlexMas]

там же цикл. Сначала ноль, но при каждом проходе изменяется.

[EleF]

Понял, спасибо.

[TinMan]

AlexMas, спасибо за помощь, +1.

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

Спасибо тебе большое. Только : Неизвестное имя 'extended'.

Говори, какой у тебя компилятор, хватит уже в прятки играть.. ))
extended - это тип, введенный в TurboPascal, он также присутствует в FreePascal. Позиционировался для банковских вычислений. Занимает 10 байт, если помню правильно.. Он как бы вещественный, но очень удобен для целых чисел с большой разрядностью.

Так на чем ты работаешь? PascalABC?

[EleF]

PascalABC. В принципе 'real' хватило