programm Verbrauch pascal wiederholung Benzinverbrauch

Pascal

Von: , Frage gestellt am Mo, 1. Nov 1999

Ich habe ein Problem mit dem Programm Pascal. Ich soll ein Programm schreiben (Benzinverbrauch), welches den Benutzer fragt "Wieviel wurde getankt" und "Welche km-Zahl wurde zurückgelegt". Ausgegeben werden soll dann der Verbrauch pro 100 km auf 1 Nachkommastelle gerundet.
Außerdem soll das Programm mit einer Wiederholungfunktion durch
Eingabe von J/N mit einer while/do-Schleife ausgestattet sein.

Die Fragen sind kein Problem, aber mit der Ausgabe und der Wiederholung habe ich meine Probleme, da mir dazu die notwendigen Funktionen fehlen. Hat da jemand von ecuh Ahnung ?

Schon mal Danke,
Tobias

1 Antworten zu dieser Frage

1. Antwort von nach einem Tag hilfreich

   Re: Pascal

   Welches Pascal - wo liegt das Problem genau (so ungefähr sieht das Programm ja aus) ?
   
   

    
   var verbrauch, getankt, gefahren: real; 
   var ende : char; 
   Begin 
   ende := 'n';
   while not (ende in ['J', 'j']) do 
   begin
   getankt :=0;
   gefahren :=0;
   verbrauch :=0;
   repeat 
   write ('getankt (>0 und < 500): '); 
   readln (getankt);
   until (getankt > 0) and (getankt < 500);
   repeat
   write ('gefahren: (>0 und < 5000): '; 
   readln (gefahren);
   until (gefahren > 0) and (gefahren <5000);
   verbrauch := (getankt * 100) / gefahren;
   writeln (' Sie benötigten ', verbrauch :5:1, ' Liter je 100 km ');    
   repeat 
   write ('noch ein Versuch j/n'); 
   read (ende);
   until (ende in ['j', 'J', 'n', 'N']); 
   end;
   end.
   

   
   write (verbrauch:5:1) heisst 5 Stellen Ausgabe, 1 Nachkommastelle - ich weiss allerdings nicht genau, ob der schneidet oder rundet (wenn er schneidet musst du halt write ((verbrauch + 0.05):5:1) machen.
   
   Gruss
   

Keine passende Antwort gefunden? Jetzt eigene Frage stellen!