Witam, piszę program, który wyciągnie mi z jakiegoś działania jeden nawias i obliczy jego wartość, udało mi się wyciągnąć nawias, jednak utknąłem przy zamianie tego co w nawiasie ze stringów na integer. Byłbym wdzięczny za pomoc. Oto kod:
uses crt;
var i:integer;
ciag:string;
nawz,nawo,wartosc:integer;
err:integer;
dzialanie:string;
function nawias(ciag:string):string;
begin
nawz:=0;
nawo:=0;
for i:=1 to length(ciag) do
if ciag=')' then
begin
nawz:=i;
break;
end;
if (nawz<>0) then
for i:=nawz downto 1 do
if(ciag='(') then
begin
nawo:=i;
break;
end;
for i:=nawo to nawz do
write(ciag);
end;
begin
clrscr;
write('Podaj jakies dzialanie z nawiasem:');
readln(ciag);
nawias(ciag);
val(ciag,wartosc,err);
if err <>0 then
writeln('Blad!');
writeln(err);
readkey;
end.
