Brandis Variable

Aus ProgrammingWiki

Archivierte Version vom 2011-07-18T16:20:21+00:00. Aktuelle Version

VAR freikartenzahl,personenzahl,entfernung : integer;
    gesamtkosten,einzelkosten              : real;
    schuelergruppe                         : string;
    nochmal                                : char;

 PROCEDURE eingabe;
 BEGIN
   clrscr;
   writeln;
   writeln('Sie haben sich entschieden, die Fahrtkosten Ihrer Schlergruppe');
   writeln('im Voraus zu ermitteln.');
   writeln('Dazu werden folgende Angaben ben”tigt.Geben Sie diese bitte ein:');
   write('Personenzahl:                 ');
   readln(personenzahl);
   writeln;
   write('Entfernung (gerundet auf km) :');
   readln(entfernung);
   writeln;
   write('Bezeichnung der Schlergruppe:');
   readln(schuelergruppe);
 END;

 PROCEDURE berechnung;
 BEGIN
   freikartenzahl:=personenzahl DIV 6;
   gesamtkosten:=entfernung*0.18*(personenzahl-freikartenzahl);
   einzelkosten:=gesamtkosten/personenzahl;
 END;

 PROCEDURE ausgabe;
 BEGIN
   clrscr;
   writeln;
   writeln('Fahrtkostenberechnung fr ',schuelergruppe,':');
   writeln('===============================================================================');
   writeln('Die Fahrtkosten betragen:' ,gesamtkosten:0:2,' DM');
   writeln;
   writeln('Jeder Teilnehmer bezahlt:' ,einzelkosten:0:2,' DM');
   readln
 END;

BEGIN              {Beginn Hauptprogramm}
  REPEAT
    eingabe;
    berechnung;
    ausgabe;
    writeln('Wnschen Sie noch eine Rechnung (J/N) ');
    readln (nochmal);
  UNTIL nochmal = 'n';
END.

Brandis Variable

Suche