Einzelnen Beitrag anzeigen

Sofa5000

Registriert seit: 25. Apr 2003
48 Beiträge
 
#1

Wie kann ich in Pascal kürzen?

  Alt 7. Nov 2003, 19:37
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]
  Mit Zitat antworten Zitat