Калькулятор, с произвольными разрядами Опции

[Maximka]

Подскажите пожалуйста как реализовать калькулятор с числами произвольной разрядности?????
например

 
var
 s:string;
  begin
   s:=(2000-353)*164-(2222/234);

Польская запись вроде не подходит....Можно сделать массив строк, и забивать каждый элемент в эти строки...Но как потом проверять приоритетность действий ??????

[volvo]

Maximka, с чего бы это польская запись здесь не подходила? Что мешает? Слишком большие числа? Пользуйся Real... Мало? Double, Extended...

Если тебе надо действительно ЛЮБУЮ разрядность - смотри в сторону "Длинной Арифметики" (у нас в FAQ-е есть такая тема)... Но все равно, чтобы вычислить значение выражения, его сначала придется перевести в постфикс...

[Maximka]

Может польская и подходит, но я что-то не пойму как ее применить....
Допустим дана строка (3567-123), то по идее на выходе должно получиться: 3567123-
Вот здесь у меня ступор. Как разделить два числа, чтобы они не сливались в одно. |3567|123|-
Помогите пожалуйста!!!!
вот пример моей проги (но она считает с числами от 1 до 9).

" (Показать/Скрыть)

   
   { Польская запись}
Program Qwerty;
{ S	-	 T	 -	A	 -	 C	 -	 K}
 const
	 Max = 100;
 Type
	TStack = record
	   top : byte;
	  elem : array[1..Max] of Char;
	end;
	TIntStack = record
	   top : byte;
	  elem : array[1..Max] of Integer;
	end;
 var
		 s,vs: Tstack;
		symb : Char;
 virazh, str : String;
		 tmp : TIntStack;
procedure MakeNull(var st : Tstack);
begin
	st.Top := Max + 1;
end;

function IsEmpty(st : Tstack) : boolean;
begin
	isEmpty := st.top > max;
end;

procedure Del(var st : Tstack);
begin
	if isEmpty(st) then
	  exit
	else
	  st.top := st.top + 1;
end;

procedure InStack( var st : TStack;x : Char);
begin
	if st.top = 1 then
	  exit
	else
	  begin
		  st.top := st.top - 1;
		  st.elem[st.top] := x;

	   end;
end;

procedure OutStack(var st : TStack;var elem : char);
begin
	if IsEmpty(st) then
	  exit
	else
	  begin
		  elem := st.elem[st.top];
		  st.top := st.top +1;
	  end;
end;

function Top( st : Tstack) : char;
begin
	if IsEmpty(st) then
	  exit
	else
	  Top := st.elem[st.top];
end;
{-----------------------------------------}
function IsEmptyI(st : TIntstack) : boolean;
begin
	isEmptyI := st.top > max;
end;

function TopI( st : TIntstack) : Integer;
begin
	if IsEmptyI(st) then
	  exit
	else
	  TopI := st.elem[st.top];
end;

procedure MakeNullI(var st : TIntstack);
begin
	st.Top := Max + 1;
end;

procedure OutStackI(var st : TIntStack;var elem : Integer);
begin
	if IsEmptyI(st) then
	  exit
	else
	  begin
		  elem := st.elem[st.top];
		  st.top := st.top +1;
	  end;
end;

procedure InStackI( var st : TIntStack;x : Integer);
begin
	if st.top = 1 then
	  exit
	else
	  begin
		  st.top := st.top - 1;
		  st.elem[st.top] := x;

	   end;
end;

{ END S   -   T	-   A   -   C   -   K}

function Prior(f : char) : Byte;
begin
	case f of
	   '+' : prior := 2;
	   '-' : prior := 2;
	   '*' : prior := 3;
	   '/' : prior := 3;
	   '(' , ')' : prior := 1;
	   else  prior := 0;
	end;
end;

procedure Norm2OPZ( vir : string);
var
  i : integer;
begin
  for i := 1 to Length(vir) do
	begin
		case vir[i] of
		'0'..'9': InStack(vs,vir[i]);
'+','-','/','*' : begin
				   while Prior(Top(s))>= Prior(vir[i]) do
					   begin
						   OutStack(s,symb);
						   InStack(vs,symb);
					   end;
				   InStack(s,vir[i]);
				  end;
				  
			'(' : InStack(s,vir[i]);
			
			')' : begin
					  while Prior(Top(s)) <> 1 do
						 begin
							 OutStack(s,symb);
							 InStack(vs,symb);
						 end;
					  Del(s);
				  end;
		end; {case}
	 end;{for}
for i := max downto vs.top do
  str := str + vs.elem[i];
for i := max downto s.top do
  str := str + s.elem[i];
 writeln('OPZ=',str);
end;{Norm2OPZ}

function ChrToInt(x : char) : Integer;
begin
 case x of
  '0': ChrToInt := 0;
  '1': ChrToInt := 1;
  '2': ChrToInt := 2;
  '3': ChrToInt := 3;
  '4': ChrToInt := 4;
  '5': ChrToInt := 5;
  '6': ChrToInt := 6;
  '7': ChrToInt := 7;
  '8': ChrToInt := 8;
  '9': ChrToInt := 9;
 end;
end;

Procedure OPZ2Result(l : string);
var
  x,y,r,i : Integer;
begin
MakeNull(s);
Makenull(vs);
MakenullI(tmp);
for i := 1 to Length(str) do
  begin
	  case str[i] of
	  '0'..'9' : InStackI(tmp,ChrToInt(str[i]));
	  '+' : begin
			 OutStackI(tmp,y);
			 OutStackI(tmp,x);
			 r := x + y;
			 InStackI(tmp,r);
			end;
			
	  '-' : begin
			 OutStackI(tmp,y);
			 OutStackI(tmp,x);
			 r := x - y;
			 InStackI(tmp,r);
			end;
			
	  '*' : begin
			 OutStackI(tmp,y);
			 OutStackI(tmp,x);
			 r := x * y;
			 InStackI(tmp,r);
			end;
			
	  '/' : begin
			 OutStackI(tmp,y);
			 OutStackI(tmp,x);
			 r := x div y;
			 InStackI(tmp,r);
			end;
	  end;{case}
   end;
Writeln(TopI(tmp));
end;{OPZ2Result}
begin
MakeNull(s);
MakeNull(vs);
 Writeln('Vvedite virazhenie :' );
 Readln(virazh);
Norm2OPZ(virazh);
OPZ2Result(str);
 Readln;
end.

[volvo]

Ты меня конечно извини, но ты бы уточнил, ЧТО СДЕЛАТЬ хочешь? Просто преобразовать выражение в постфикс, или же ВЫЧИСЛИТЬ его? Если вычислить, то ... вычисляй, зачем ты его распечатываешь?

Я же тебе давал ссылку на FAQ, где есть и калькулятор с использованием постфиксных выражений... Там был?

[Maximka]

Вы тоже извиняйте, что толком объяснить не могу. Я хочу сделать калькулятор, который бы вычислял скобочные выражения, с числами произвольной разрядности. (например: (23434-1)-(13414+1)). По началу думал что это можно с помощь постфиксой записью.

Моя задача это делает так:

1.) Пользователь вводит строку. Допустим такую (1+1)
2.) Выражение просматривается посимвольно с лева на право. Прога, с помощью стеков переводит выражение в постфиксную запись 1 1 +
3.) Далее алгоритм считывает посимвольно новую строку и преобразует строки в числа и знаки.
4.) Складывает 1+1. Итог:2


А если ввести числа большой разрядности 124+234, то глюк. Прога переводит выражение в постфиксную запись 1 2 4 2 3 4 +. Получается она сливает 2 числа в одно. И я никак не пойму как от этого избавиться. FAQ читал , но там тоже задачи не для больших чисел. Помогите пожалуйста доработать задачу, чтобы она все таки научилась считать числа с произвольной разрядностью. СПАСИБО!!!!!!

[volvo]

Ну, вот же программа:
FAQ: Постфиксная форма записи, Перевод выражения в постфикс

Только что проверил - она прекрасно отработала со строкой:

const
  s: string = '142*(3+2214)*5';

Результат:

142 3 2214 + * 5 *

В чем проблема?

[Maximka]

Значит проблема в моей задаче. (не хочет она правильно работать).. Не могли бы вы взглянуть на нее своим профессиональным взглядом???!!!! Я новичек в программировании, и поэтому мне еще тяжело читать чужой код.... .


-------
Спасибо, что уделяете свое время..............

[Maximka]

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

" (Показать/Скрыть)

const
max=1000;
type
 STACK = record
		  top:integer;
		  elem:array [1..max] of char;
		 end;
 var
 s,s2:stack;
 symv:char;
 {---------------------------------------}
   procedure MakeNull (var S:STACK);
	   begin
		 S.top:=max + 1;
	   end;
{---------------------------------------}
   function Empty (S:Stack):boolean;
	   begin
		if S.top > max then
		   Empty:=true
		else
		   Empty:=false;
	   end;
{----------------------------------------}
   function Top(s : stack) : char;
  begin
	if Empty(s) then exit
  else
	  Top := s.elem[s.top];
  end;
{---------------------------------------}
   procedure OutStack (var s:stack; var symv:char);
	  begin
		if Empty (s) then exit
	   else
		begin
		 symv:= s.elem[s.top];
		 s.top:=S.top + 1;
		end;
	  end;
{---------------------------------------}
   procedure Instack (var S:Stack;x:char);
	  begin
		if S.top = 1 then exit
	   else
			begin
			 s.top:=s.top-1;
			 s.elem[s.top]:=x;
			end;
	   end;
{----------------------------------------}
   function Prior(f : char) : Byte;
begin
	case f of
	   '+','-' : prior := 2;
	   '*','/' : prior := 3;
	   '(' , ')' : prior := 1;
		else
	 prior := 0;
	end;
end;

{----------------------------------------}
 procedure Dell(var s : stack);
begin
	if Empty(s) then exit
	else
	  s.top := s.top + 1;
end;
{----------------------------------------}
  procedure opz (var output:string);
	var
	 i: integer; input:string;
	 t: boolean;
	  begin
	   Makenull(s);
	   Makenull(s2);
	   write ('Inp = ');
	   readln (input);
		for i:=1 to length (input) do
		  case input[i] of
		   '0'..'9': instack (s2,input[i]);
	'+','-','*','/': begin
						while Prior(Top(s))>= Prior(input[i]) do
						   begin
							outstack(s,symv);
							instack(s2,symv);
						   end;
							instack (s,input[i]);
						 end;


			'(' : instack (s,input[i]);
			')' :  begin
					 while prior(top(s))<>1 do
					   begin
						outstack (s,symv);
						instack (s2,symv);
					   end;
						Dell(s);
					 end;
				   end;

		   for i:=max downto s2.top do
			output:=output+s2.elem[i];


		   for i:=max downto s.top do
			output:=output+s.elem[i];

				writeln ('out = ',output);

			  end;





  var
   outp,inp:string;
	s1:stack;
	begin
	 OPZ (outp);
	 writeln ('---------------------------');
	  readln;
	 end.

[volvo]

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

Для этого совершенно не надо ничего запускать... Я тебе и так скажу. Вот то, что тебе мешает:

Procedure opz(var output: string);
...
case input[i] of
  '0'..'9': instack (s2,input[i]); { <--- !!! }

То есть ты ГАРАНТИРОВАННО запихнешь в стек только один символ. Так? А это неверно... Тебе надо сначала прочесть из строки ряд символов (до первого знака операции, скобки или конца строки), и только потом заносить эту последовательность в стек...

[Maximka]

Спасибо!!!! Буду мудрить...Вроде понял, что надо менять