     Steffi (Darkestflower)
 | Sonntag, den 26. Januar, 2003 - 01:02 
Habe ein Programm zum Bruchrechnen geschrieben und es läuft nicht, irgendwo ist ein Fehler im Programm...bitte versucht mir zu helfen...bitte
es ist in TurboPascal geschrieben..
Program Bruchrechnen;
uses crt;
begin
Var Z1,Z2,N1,N2,NE,ZE:integer;
Var i:integer;
Procedure Add (ZE,NE,Z1,Z2:integer);
uses crt;
begin
clrscr;
ZE:=N2*Z1+N1*Z2;
NE:=N1*N2;
end;
Procedure Sub (ZE,NE,Z1,Z2,N1,N2:integer);
uses crt;
begin
clrscr;
ZE:=Z1*N2-N1*Z2;
NE:=N1*N2;
end;
Procedure Mult (ZE,NE,Z1,Z2,N1,N2:integer);
uses crt;
begin
clrscr;
ZE:=Z1*N2;
NE:=N1*Z2;
end;
Procedure Divi (ZE,NE,N1,N2,Z1,Z2:integer);
uses crt;
begin
clrscr;
ZE:=Z1*N2;
NE:=N1*Z2;
end;
Procedure Kuerzen (a,b:integer):
var vz,min,teiler:integer;
begin{kuerze}
writeln(a ,'/',b'!');
if a/b>0
then vz:=1
else vz:=-1;
if a<b then
min:=a
else min:=b:
for i:=2 to min do
if (a mod i:=0) and (b mod i_0)
then
teiler:=i;
a:=a div teiler;
a:=a*vz;
b:b div teiler
end;{kuerzen}
Procedure Ausgabe (a,b,c,d,r,q:integer);
begin
writeln('',a,' ',c,' ',r);
writeln('-------',i,' ------ = -------');
writeln('',b,' ',d,' ',q);
readln;
end;
begin
clrscr;
writeln('Bitte geben sie ein was sie tun möchten..');
writeln('addieren +');
writeln('subtrahieren -');
writeln('multiplizieren * ');
writeln('dividieren /');
readln(i);
dann kommt die Eingabe von Z1,Z2,N1,N2..
danach...
Kuerzen;
Ausgabe;
writeln;
writeln('danke das sie mit unserem Programm gerechnet haben..');
readln;
end.
aber es kommt immer ERROR IN STATEMENT..
bitte helft mir, ich will nicht schon wieder ne schlech´te Note bekommen... |