Question

How to convert meters to yards and vice versa in Pascal

Answer 1

program ConvertUnits;

const
  MeterToYard = 1.0936133;
  YardToMeter = 0.9144;

function MetersToYards(m: real): real;
begin
  MetersToYards := m * MeterToYard;
end;

function YardsToMeters(y: real): real;
begin
  YardsToMeters := y * YardToMeter;
end;

var
  m, y, m2, y2: real;

begin
  m := 10.0;
  y := MetersToYards(m);
  writeln(m:0:2, ' meters = ', y:0:6, ' yards');

  y2 := 10.0;
  m2 := YardsToMeters(y2);
  writeln(y2:0:2, ' yards = ', m2:0:6, ' meters');
end.




(*
run:

10.00 meters = 10.936133 yards
10.00 yards = 9.144000 meters

*)

 

70+ SQL courses for beginners and professionals