Po zadaní ujetých kilometrů a spotrebovaných litrů paliva vypočte spotrěbu na 100km

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Kategórie: Zadání z Pascalu

Autor: Pavel Paták
web: www.webpark.cz/programar

Program: Spotreba.pas
Soubor exe: Spotreba.exe

Po zadaní ujetých kilometrů a spotrebovaných litrů paliva vypočte spotrěbu na 100km.
{ SPOTREBA.PAS                            Copyright (c) Pavel Patak }
{ Po zadani ujetych kilometru a spotrebovaných litru paliva vypocte }
{ spotrebu na 100km.                                                }
{                                                                   }
{ Datum:28.10.2004                             http://www.trsek.com }
 
Program Spotreba;
 
Var Km, Litru : Real;
 
Begin
   Write('Zadej pocet ujetych kilometru : ');
   Readln(Km);
   Write('Nyni udej mnozstvi spotrebovaneho paliva v litrech : ');
   Readln(Litru);
   Writeln;
   Writeln('Spotreba vaseho automobilu cini ',Litru/KM*100:5:2,' l na 100km');
	{Pokud nechcete, aby byl vysledek udan v hnusném real-tvaru, pouzijte :
          Litru/KM*100:PocetMist:PocetDesetinnýchMíst, tedy :
   Writeln('Spotreba vaseho automobilu cini ',Litru/KM*100:5:2,' l na 100km');}
   Readln;
End.