Question

How to convert meters to kilometers, miles, feet, yards, and inches in Pascal

Answer 1

program UnitConversion;

{$mode objfpc}  // Enable modern Free Pascal mode

// Conversion functions
function toKilometers(meters: Double): Double;
begin
    toKilometers := meters / 1000.0;
end;

function toMiles(meters: Double): Double;
begin
    toMiles := meters * 0.000621371;
end;

function toFeet(meters: Double): Double;
begin
    toFeet := meters * 3.28084;
end;

function toYards(meters: Double): Double;
begin
    toYards := meters * 1.09361;
end;

function toInches(meters: Double): Double;
begin
    toInches := meters * 39.3701;
end;

var
    meters: Double;

begin
    meters := 1000;

    writeln('Conversions:');
    writeln('(Input) Meters: ', meters:0:0);
    writeln('Kilometers:     ', toKilometers(meters):0:6);
    writeln('Miles:          ', toMiles(meters):0:6);
    writeln('Feet (foot):    ', toFeet(meters):0:2);
    writeln('Yards:          ', toYards(meters):0:2);
    writeln('Inches:         ', toInches(meters):0:1);
end.



(*
run:

Conversions:
(Input) Meters: 1000
Kilometers:     1.000000
Miles:          0.621371
Feet (foot):    3280.84
Yards:          1093.61
Inches:         39370.1

*)

 

70+ SQL courses for beginners and professionals