hallo leute,
ich soll für die schue ein programm schreiben dass 2 brüche addieren subtrahieren teilen und malnehmen kann. Das ergebniss soll auch wieder als bruch ausgegeben werden. Sitze bereits seit stunden daran aber es will einfach nicht laufen woran liegt dies?hier ist dass programm:
Program Project3;
Var a,b,c,d,n,z:integer;
k:char;
Begin
writeln('Geben sie den zähler des 1.bruches ein');
readln(a);
writeln('Geben sie den zähler des 1.bruches ein');
readln(b);
writeln('geben sie den zähler des 2.bruches ein');
readln(c);
writeln('geben sie den nenner des 2.bruches ein');
readln(d);
writeln('Entscheiden sich ob die brüche addiert(+),subtrahiert(-),multipliziert(*) oder dividiert(/) werden sollen');
readln(k);
case k of
+: begin
z:=d*a+b*c;
n:=b*d;
write('Loesung',z,'/',n);
- :begin
z:=d*a-b*c;
n:=b*d;
write('Loesung',z'/'n);
* :begin
z:=a*b;
n:=b*d;
write('Loesung',z,'/',n);
/ :begin
if c=0 then write('keine Loesung')
else begin
z:=a*d;
n:=b*c;
write('Loesung',z,'/',n);
Schon mal im voraus danke für eure hilfe
euer shinai
ich soll für die schue ein programm schreiben dass 2 brüche addieren subtrahieren teilen und malnehmen kann. Das ergebniss soll auch wieder als bruch ausgegeben werden. Sitze bereits seit stunden daran aber es will einfach nicht laufen woran liegt dies?hier ist dass programm:
Program Project3;
Var a,b,c,d,n,z:integer;
k:char;
Begin
writeln('Geben sie den zähler des 1.bruches ein');
readln(a);
writeln('Geben sie den zähler des 1.bruches ein');
readln(b);
writeln('geben sie den zähler des 2.bruches ein');
readln(c);
writeln('geben sie den nenner des 2.bruches ein');
readln(d);
writeln('Entscheiden sich ob die brüche addiert(+),subtrahiert(-),multipliziert(*) oder dividiert(/) werden sollen');
readln(k);
case k of
+: begin
z:=d*a+b*c;
n:=b*d;
write('Loesung',z,'/',n);
- :begin
z:=d*a-b*c;
n:=b*d;
write('Loesung',z'/'n);
* :begin
z:=a*b;
n:=b*d;
write('Loesung',z,'/',n);
/ :begin
if c=0 then write('keine Loesung')
else begin
z:=a*d;
n:=b*c;
write('Loesung',z,'/',n);
Schon mal im voraus danke für eure hilfe
euer shinai