Ich bins wieder schon wieder mit einem Pascal Problem!
Ich habe folgendes:
Delphi-Quellcode:
begin
write('Gib den Nenner ein : ');
readln(nenner);
write('Gib den Zähler ein : ');
readln(zahler);
write('Gib das Rechenzeichen ein : ');
readln(zeich);
write('Gib den Zweiten Nenner ein : ');
readln(nenner2);
write('Gib den Zweiten Zähler ein : ');
readln(zahler2);
teiler:=zahler * zahler2;
if zeich = '+' then begin
x:=teiler div zahler;
y:=teiler div zahler2;
nenner:=nenner * x;
nenner2:=nenner2 * y;
nennerges:=nenner + nenner2;
writeln(nennerges);
writeln(teiler);
end;
Das ist ein Teil von einem Programm es funktoniert perfekt das Ergebniss stimmt auch aber es soll auch gekürzt werden! Wie geht das?
Danke
[edit=sakura][Delphi]-Tags gesetzt. Mfg, sakura[/edit]