Форум "Delphi"

Паскаль, Делфи

#0 Vlad © 17.06.06 17:14:26 - 04.07.06 16:38:56

любые числа сложить, умножить, разделить, отнять

function MyByte(ch:char):byte;
begin
case ch of
'0':result:=0;
'1':result:=1;
'2':result:=2;
'3':result:=3;
'4':result:=4;
'5':result:=5;
'6':result:=6;
'7':result:=7;
'8':result:=8;
'9':result:=9;
end;
end;

function MyChar(b:byte):char;
begin
case b of
0:result:='0';
1:result:='1';
2:result:='2';
3:result:='3';
4:result:='4';
5:result:='5';
6:result:='6';
7:result:='7';
8:result:='8';
9:result:='9';
end;
end;

function Madd(N1,N2:string):string;
label 1,2;
var
  N3:string;
  b:byte;
  j:longint;
  t1:byte;
  t2,t3:byte;
begin
1:
  if length(N1)>length(N2) then begin
   N2:='0'+N2;
   goto 1;
   end;
2:
  if length(N1)<length(N2) then begin
   N1:='0'+N1;
   goto 2;
   end;
   N3:=N1;
   b:=0;
   for j:=length(N1) downto 1 do begin
   t1:=MyByte(N1[j]);
   t2:=MyByte(N2[j]);
   t3:=(t1+ t2 ) mod 10;
   N3[j]:=MyChar(t3+b);
   b:=(t1+ t2) div 10;
   end;
   N3:=inttostr(b)+N3;
   if N3[1]='0' then delete(N3,1,1);
   result:=N3;
end;

неправильно.
Ну и где натупил?
А Кто сделает остальное? :)

#1 Axis_of_Evil © 17.06.06 20:03:45

не смешно. в чем должен быть прикол?

#2 Deep © 17.06.06 23:01:53

> #0 Vlad ©
насколько я понял у тебя ошибка при сложении?

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

Как насчет чисел с точкой?

Вопрос второй -- почему не использует тип variant?

Вопрос третий -- почему не воспользоваться кодом готовых парсеров?
На то же торри.нет их в изобилии.

#3 Axis_of_Evil © 17.06.06 23:20:53

если серьезно = не понимаю,
зачем это постить и здесь, и на delphimaster.
ты же вполне понимаешь, щто код кривой. и далеко не лопух, щтобы такое писать.

#4 Старый маразматик © 19.06.06 10:34:37

шо это за фигня, простите? шо надо вообще делать-то? постановка задачи какая: шо на входе, шо на выходе?

#5 Andrey © 19.06.06 11:34:17

>#4 Старый маразматик
А это уж извольте телепатические способности развивать. А то понимаешь ли ваще абнаглели... пастанофку им падавай! вах, вах, вах...

#6 Старый маразматик © 19.06.06 11:36:15

> #5 Andrey ©

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

Написать ответ