Programowanie - Prosba o pilna i fachowa pomoc.

06.09.2004

18:20

[1]

Maevius [ Czarownik Budyniowy ]

Programowanie - Prosba o pilna i fachowa pomoc.

Prosze o pilna pomoc w zdebugowaniu programu. Nie liczy tak jak powinien, gubi sie przy dluzszych wyrazeniach w nawiasach. Strasznie szybko potrzeba mi ta sprawnie dzialajaca aplikacje, jesli jest to
zbyt skomplikowana robota - zaplace. Nie mam juz pojecia dlaczego sie sypie.

Kod programu i moje objasnienia:


======================

Program Kalkulator_binarny;
uses crt;

var
liczby:array[1..100] of real;
znak:array[1..100] of char;
nawias:array[1..100] of integer;
wynik,kkk:integer;
w:real;
wybor,wyrazenie:string;
i,j,code:integer;
wyr:string;



procedure przesun (x:integer);
var i:integer;
begin

for i:=x to kkk do
begin
nawias:=nawias[i+1];
znak:=znak[i+1];
liczby:=liczby[i+1];
end;

end;



function oblicz (odkad,dokad:integer):real;
label 0,1,2;

var
n,b:integer;
tmp:real;

begin

0:
n:=0;b:=0;

for i:=odkad to dokad do
begin
if nawias>0 then b:=i; ‹Sprawdza czy sa nawiasy, jesli sa to zaglebia sie
coraz bardziej w wyrazenie, az napotka na wyrazenie bez nawiasow, wtedy idzie
dalej i wykonuje najpierw mnozenie/dzielenie a pozniej dodawanie/odejmowanie›

if (nawias<0) and (b<>0) then
begin
dec(nawias);
inc(nawias);
tmp:=oblicz(b,i-1);
dec(dokad,i-1-b);
goto 0;
end;

end;


for i:=odkad to dokad do ‹Mnozenie i dzielenie›
begin
1:
if (i <= dokad) then
‹Mnozy, przesuwa - to jest zamiast pomnozonych liczb wstawia liczbe i liczy dalej›
begin
if znak = '*' then begin w:=liczby*liczby[i+1];przesun (i);liczby:=w;dec(dokad);goto 1;end;
if znak = '/' then begin w:=liczby/liczby[i+1];przesun (i);liczby:=w;dec(dokad);goto 1;end;
end;
end;


for i:=odkad to dokad do ‹Dodawanie i odejmowanie›
begin
2:
if (i <= dokad) then
‹Jak powyzej, dodaje, wstawia liczbe, dodaje....›
begin
if znak = '+' then begin w:=liczby+liczby[i+1];przesun (i);liczby:=w;dec(dokad);goto 2;end;
if znak = '-' then begin w:=liczby-liczby[i+1];przesun (i);liczby:=w;dec(dokad);goto 2;end;
end;
end;

oblicz:=liczby[odkad];
end;

Function DziesBin (liczba: integer): string;
Var
Tab: array [1..100] of char;
last, i: integer;
wynik: string;
begin;
for i:=100 downto 1 do begin;
Tab:='0';
if (liczba mod 2) = 1 then begin;
Tab:='1';
last:=i;
end;
liczba:=(liczba div 2);
end;
for i:=last to 100 do wynik:=wynik+Tab;
DziesBin:=wynik;
end;


Function BinDzies (wyr: string): integer;
Var ggg, h, wartosc, dod, wykladnik: integer;
begin;
wartosc:=0;
dod:=1;
for ggg:=length(wyr) downto 1 do begin;
if wyr[ggg]='1' then wartosc:=wartosc+dod;
dod:=dod*2;
end;
BinDzies:=wartosc;
end;


procedure rozdziel (wyrazenie:string);
begin
j:=1;wyr:='';
for i:=1 to 100 do nawias:=0;
for i:=1 to length (wyrazenie) do
begin
if (wyrazenie='(') then begin inc(nawias[j]);end;
if (wyrazenie=')') then begin dec(nawias[j]);end;
if (wyrazenie>='0') and (wyrazenie<='1') then wyr:=wyr+wyrazenie;
if (wyrazenie='+') or (wyrazenie='-') or (wyrazenie='*') or (wyrazenie='/') or (i=length(wyrazenie)) then
begin
liczby[j]:=BinDzies(wyr);
znak[j]:=wyrazenie;
wyr:='';
kkk:=j;
inc (j);
end;

end;
end;

label 1;
begin
clrscr;
writeln ('Podaj wyrazenie do obliczenia : ');
readln (wyrazenie);
rozdziel (wyrazenie);
writeln ('Wynik w postaci dziesietnej to: ',(oblicz(1,kkk)):0:0);
writeln ('Czy chcesz zobaczyc wynik w postaci binarnej ? (Tylko jego czesc calkowita) (t/n)');
readln (wybor);
if wybor='t' then begin;
writeln ('Wpisz czesc calkowita wyniku:');
readln (wynik);
writeln ('Wynik w postaci binarnej to: ',DziesBin(wynik));
end;
writeln ('Nacisnij dowolny klawisz by zakonczyc.');
readkey;


end.

======================

Ponizej w linku jest caly skompilowany program.