How do I make a simple program to convert kilometer to miles in free pascal?

Answer 1

Program MeasurementConversion (input,output);

function Km2Miles( km : real) : real;

begin

Km2Miles:= km/1.6;

end; {kilometers to miles}

{NOTE: to change miles to kilometers, just multiply by 1.6}

Begin

writeln(' 16 km = ',Km2Miles(16):8:2, ' miles ');

writeln(' 8 km = ',Km2Miles(8):8:2, ' miles ');

writeln(' 1.6 km = ',Km2Miles(1.6):8:2,' miles ');

writeln(' 100 km = ',Km2Miles(100):8:2,' miles ');

writeln(' 160 km = ',Km2Miles(160):8:2,' miles ');

end.

====================

16 km = 10 miles

8 km = 5 miles

1.6 km = 1 mile

100 km = 62.5 miles

160 km = 100 miles