расчетно-графическая работа "перевод числа из разных систем счисления в десятичную" (Pascal, среда разработки lazarus)

[Екатерина 123]

Помогите пожалуйста доработать исходный код программы перевода чисел из разных систем счисления в десятичную и составить блок-схему.Среда разработки lazarus.
Заранее благодарю за помощь.

program project1;
uses
  cthreads, Classes, math;
var
  s: string; i,b,a: integer;
  d,k: double; f,e: boolean; c: char;
begin
Writeln('*****************************************************************');
Writeln('********eta programma perevodit chisla iz raznih sistem v 10-ichnuu********');
Writeln('*****************************************************************');
Writeln(' ');
Writeln('*********************************');
Writeln('*** vvedite osnovanie sistemi ***');
Writeln('*********************************');
ReadLn(b);
e:=b<=1;
if e then begin
         Writeln('************************************************');
         WriteLn('oshibka: osnovanie sistemi doljno bit ne menee 2');
         Writeln('************************************************')
         end
else begin
       Writeln('*********************************************');
       Writeln('vvedite chislo v sisteme s osnovaniem ',b,': ');
       Writeln('*********************************************');
       ReadLn(s);
       f:=false; k:=1;
       for i:=1 to Length(s) do begin
                                              if f then k:=k/b;
                                              c:=UpCase(s[i]);
                                              a:=-1;
                                                       case c of
                                                       '0'..'9': a:=Ord(c)-48;
                                                       'A'..'Z': a:=Ord(c)-55;
                                                       '.',',': if f then e:=true else f:=true;
                                                       else f:=true
                                                       end;
e:=e or (a>=b);
if e then break;
if a>=0 then d:=d*b+a; end;
if e then WriteLn('oshibka v zapisi chisla ')
else Writeln('*******************************************');
     WriteLn('znachenie v desiatichnoi sisteme: ');
     WriteLn(d*k:6:2);
     Writeln('*******************************************'); 
     end;
ReadLn; 
end.

[Stilet]

http://delphiworld.narod.ru/base/base_convert.html
Подходит?

[Екатерина 123]

Спасибо, но мне не очень понятна та программа, которую вы скинули, я только начинаю программировать и мне бы хотелось найти ошибки в моем коде. А вы можете помочь мою программу доработать, она при тестировании в некоторых местах косячит, и блок-схему к ней нарисовать?

[Екатерина 123]

Очень прошу помощи в моей работе!!!!Для меня это невероятно важно!!!

[GetMax]

А вы можете помочь мою программу доработать, она при тестировании в некоторых местах косячит

А какие это косяки и при каких исходных данных они появляются конечно же мы сами должны понять.
Бегло протестировал Вашу программу на переводе из 2-ой, 8-ой и 16-ой СС. Считает правильно и сама программа не падает.
Единственное, что заметил это процесс проверки на ошибку можно чуть проще сделать

 e:=e or (a>=b);
       if e then
       Begin
         WriteLn('oshibka v zapisi chisla ');
         Readln;
         Exit;
       End;
       if a>=0 then d:=d*b+a;
    end;
      Writeln('*******************************************');
      WriteLn('znachenie v desiatichnoi sisteme: ');
      WriteLn(d*k:6:2);
      Writeln('*******************************************');
   end;
   ReadLn;

Если Lazarus понимает функцию Exit.

[Екатерина 123]

спасибо!!большое!!

[Stilet]

Если Lazarus понимает функцию Exit.

Куда он денется )

Катюша, пожалуйста не делай кросспосты. Насчет блок схемы:http://yandex.ua/yandsearch?text=FCE...oc=10&lr=20554
Говорят хорошая программа.

[Екатерина 123]

спасибо огромное!!!!))))))

я не могу разобраться,там все по английски понять не могу((

[QUOTE=Говорят хорошая программа.[/QUOTE]
Спасибо, только осталась одна проблема нерешенная в этой программе, помогите пожалуйста сделать так, чтоб эта программа еще и отрицательные числа переводила!!! заранее оооочень-очень благодарна

[s-andriano]

Сообщение от Екатерина 123

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

Самое простое:
1. Сначала проверить, есть ли перед числом минус. Если есть, запомнить этот факт и удалить минус.
2. Перевести как обычное положительное число.
3. Вспомнить, был ли минус. Если был - добавить его перед числом.

[Екатерина 123]

спасибо большое))))