Калькулятор, длинная арифметика Опции

[RathaR]

Вот решил написать прогу "калькулятор".
Вчера ночью еще написал функции на "+" и "-", проверил, всё работало железобетонно, но то что писал не сохранилось злой рок и електричество...
Начал сегодня писать, вроде написал снова на + и -, плюс работает, но с минусом возникла какаято проблема которую я просто немогу осознать
Вот код:

program Kalkyl;

uses Crt;

var
        A,B,rez:string;

        S1,S2:string;

        C:char;

        E_e:char;

        Dalee:boolean;


function Suma(A,B:string):string;                   <============ работает правильно

var
       I,sub:integer;

       L1,L2:integer;

       S1,S2,S3:string;

begin

S1:=A;

S2:=B;

L1:=Length(S1);

L2:=Length(S2);

For I:=L2 to L1 do

  insert('0',S2,1);

insert('0',S1,1);


S3:='';

Sub:=0;

For I:=L1+1 downto 1 do

  If (ORD(S1[I])-48+ORD(S2[I])-48+sub)>9 then begin

                                                S3:=CHR(ORD(S1[I])+ORD(S2[I])-48+sub-10)+S3;

                                                sub:=1;

                                                end

                                         else

                                                begin

                                                 S3:=CHR(ORD(S1[I])+ORD(S2[I])-48+sub)+S3;

                                                 sub:=0;

                                                end;

if S3[1]='0' then delete(S3,1,1);

Suma:=S3;

end;

function Raznica(A,B:string):string;                              <==========работает неправильно

var
       I,sub:integer;

       L1,L2:integer;

       S1,S2,S3:string;

begin

S1:=A;

S2:=B;

L1:=Length(S1);

L2:=Length(S2);

for I:=L2 to L1 do

  insert('0',S2,1);

insert('0',S1,1);


S3:='';

Sub:=0;

For I:=L1+1 downto 1 do

  If (ORD(S1[I])-48-ORD(S2[I])-48-sub)<0 then begin

                                                S3:=CHR(ORD(S1[I])-ORD(S2[I])-sub+10+48)+S3;

                                                sub:=1;

                                                end

                                         else
                                                begin

                                                 S3:=CHR(ORD(S1[I])-ORD(S2[I])+48-sub)+S3;

                                                 sub:=0;

                                                end;

if S3[1]='0' then delete(S3,1,1);

Raznica:=S3;

end;

procedure Logo;

begin

clrscr;

gotoxy(15,1);

textcolor(lightblue);

Writeln('Калькулятор');

gotoxy(15,2);

textcolor(white);

end;

function Opr_d(C:char):string;

begin

case C of

        '+':Opr_d:='сложение';
        '-':Opr_d:='вычитание';
        '*':Opr_d:='произведение';
        '/':Opr_d:='деление'

        else Opr_d:='Некоректные данные';
end;

end;

procedure Vvod;

begin

gotoxy(2,6);

writeln('Введите первое число и нажмите "Enter".');

gotoxy(2,8);

textcolor(red);

write('Первое число: ');

textcolor(white);

readln(A);

gotoxy(2,10);

write('Введите необходимое действие и нажмите "Enter: ');

readln©;

gotoxy(2,12);

textcolor(red);

write('Необходимо выполнить : ');

textcolor(white);

write(Opr_d©);

gotoxy(2,14);

writeln('Введите второе число и нажмите "Enter"');

gotoxy(2,16);

textcolor(red);

write('Второе число: ');

textcolor(white);

readln(B);

end;

procedure Rezultat;

begin

case C of

        '+':rez:=Suma(A,B);

        '-':rez:=Raznica(A,B);
end;

gotoxy(10,20);

writeln('Решение: ');

write(A,' ',C,' ',B,' = ',rez);

end;

BEGIN

logo;

gotoxy(2,4);

write('Нажмите  "Enter" чтобы продолжить, или "Escape" чтобы выйти');

Dalee:=false;

while Dalee=false do

begin

E_e:=readkey;

if E_e=chr(27) then exit;

if E_e=char(13)then Dalee:=true;

delline;

end;

Vvod;

Rezultat;

readln;

END.

помогите найти ошибку в функции Raznica

и еще... я когда запускаю программу прямо с Fpc 2.2.2. то сначала всё что на екране пишет иероглифами, а после первого нажатия - нормально, а после последнего нажатия, когда должно вывести результат, выводит результат и снова всё слова становятся иероглифами, причом происходит это только в полноекранном режиме, если в окне всё норм, и когда запускаю програму с ексешника, в окне, тоже всё норм

И вообще был бы рад выслушать замечания какие есть, как было бы лучше организовать программу...

Сообщение отредактировано: RathaR - 25.07.2009 16:31

[volvo]

Но в реализации допустил ошибки, ибо функция Proizvedenie просто вылитает

Во-первых:

function O_gen(K:integer):string;
var
  I:integer;
  s: string;
begin
  s:='';
  For I:=1 to K do s:=s+'0';
  O_gen := s;
end;

, иначе у тебя получается что-то типа рекурсии. Не надо делать непереносимые вещи.

А во-вторых, что, тебе FPC не сообщает, почему программа вылетает? Мне, например, сообщает:

строка №166 выделена. Беглый просмотр дает ответ: при N = 0 - вылет за нижнюю границу массива. Отладчик для кого?

Добавлено через 2 мин.
P.S. Если ты думаешь, что тот цикл, в котором находится выделенная строка, отформатирован правильно - ты ошибаешься. Отформатируй, пока не поздно, как положено. Иначе будут проблемы...