одномерный массив

[Петр-99]

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

А) выполнить действия по порядку;
Б)действия +,-,*,/ выполняются соответствию приоритету этих операций;
В) в записи может присутствовать одна пара или даже несколько пар круглых скобок, что меняет порядок выполнения операций.

[Stilet]

Даж не знаю что посоветовать... Задача не из легких, посмотри сюда, может поймешь смысл:http://www.programmersforum.ru/showthread.php?t=37560

[Петр-99]

помоги дружище очень надо)))

[Mad_Cat]

function Calculate(SMyExpression: string; digits: Byte): string;
var
   z: Char;
   ipos: Integer;

   function StrToReal(chaine: string): Real;
   var
     r: Real;
     Pos: Integer;
   begin
     Val(chaine, r, Pos);
     if Pos > 0 then Val(Copy(chaine, 1, Pos - 1), r, Pos);
     Result := r;
   end;

   function RealToStr(inreal: Extended; digits: Byte): string;
   var
     S: string;
   begin
     Str(inreal:0 : 0, S);
     realToStr := S;   
   end;   

   procedure NextChar;   
   var  
     s: string;   
   begin
     if ipos > Length(SMyExpression) then  
     begin  
       z := #9;   
       Exit;
     end  
     else
     begin
       s := Copy(SMyExpression, ipos, 1);
       z := s[1];   
       Inc(ipos);   
     end;   
     if z = ' ' then nextchar;
   end;   

   function Expression: Real;
   var
     w: Real;

     function Factor: Real;
     var  
       ws: string;
     begin
       Nextchar;   
       if z in ['0'..'9'] then
       begin  
         ws := '';
         repeat  
           ws := ws + z;
           nextchar   
         until not (z in ['0'..'9', '.']);
         Factor := StrToReal(ws);
       end  
       else if z = '(' then  
       begin
         Factor := Expression;
         nextchar   
       end
       else if z = '+' then Factor := +Factor   
       else if Z = '-' then Factor := -Factor;   
     end;
    
     function Term: Real;
     var  
       W: Real;
     begin
       W := Factor;
       while Z in ['*', '/'] do  
         if z = '*' then w := w * Factor
       else
         w := w / Factor;
       Term := w;   
     end;
   begin  
     w := term;
     while z in ['+', '-'] do
       if z = '+' then w := w + term
     else  
       w := w - term;
     Expression := w;
   end;
begin
   ipos   := 1;
   Result := RealToStr(Expression, digits);
end;

[Петр-99]

спасибо,а ты сможешь полностью скинуть прогу с отчетом и сколька это будет стоит

[Mad_Cat]

Стучи в аську/skype обсудим!

[Петр-99]

кто может это сделать,и скинуть на мыло,
выручайте пацаны очень надо,а то на зачет не пустят

ну что либо никто не знает как это делать.....очень надо plees

help.... help...help,,,,

[andrewpalkin]

Сообщение от Петр-99

ну что либо никто не знает как это делать.....очень надо plees

тебе же предложили помощь , что ты ему не написал ?

[Петр-99]

function Calculate(SMyExpression: string; digits: Byte): string;
var
z: Char;
ipos: Integer;

function StrToReal(chaine: string): Real;
var
r: Real;
Pos: Integer;
begin
Val(chaine, r, Pos);
if Pos > 0 then Val(Copy(chaine, 1, Pos - 1), r, Pos);
Result := r;
end;

function RealToStr(inreal: Extended; digits: Byte): string;
var
S: string;
begin
Str(inreal:0 : 0, S);
realToStr := S;
end;

procedure NextChar;
var
s: string;
begin
if ipos > Length(SMyExpression) then
begin
z := #9;
Exit;
end
else
begin
s := Copy(SMyExpression, ipos, 1);
z := s[1];
Inc(ipos);
end;
if z = ' ' then nextchar;
end;

function Expression: Real;
var
w: Real;

function Factor: Real;
var
ws: string;
begin
Nextchar;
if z in ['0'..'9'] then
begin
ws := '';
repeat
ws := ws + z;
nextchar
until not (z in ['0'..'9', '.']);
Factor := StrToReal(ws);
end
else if z = '(' then
begin
Factor := Expression;
nextchar
end
else if z = '+' then Factor := +Factor
else if Z = '-' then Factor := -Factor;
end;

function Term: Real;
var
W: Real;
begin
W := Factor;
while Z in ['*', '/'] do
if z = '*' then w := w * Factor
else
w := w / Factor;
Term := w;
end;
begin
w := term;
while z in ['+', '-'] do
if z = '+' then w := w + term
else
w := w - term;
Expression := w;
end;
begin
ipos := 1;
Result := RealToStr(Expression, digits);
end;
а проверить вы можете

[andrewpalkin]

А ты сам проверить не можешь ??? Или уже лень взять и запустить этот код на компе ?

Тот код , который ты выложил не будет работать , ты вообще связывался с тем , кто тебе обещал помочь ?