Convertir les unités de mesure de distance

bonsoir comment faire un programme avec turbo pascal qui convertit les unités de mesure de distance
Merci

1 réponse

  1. Contributeur
    Bonjour,

    Par exemple, comme cela :

    Program Convert;
    
    uses sysutils;
    
    function Miles2Km(miles: real): real;
    begin
      Miles2Km := miles * 1.60934;
    end;
    
    begin
      writeln('A 100 miles is ' + FloatToStr(Miles2Km(100)) + ' km');
    end.

    Dal
    0