Convertir les unités de mesure de distance

Fermé
parfait131 Messages postés 1 Date d'inscription jeudi 11 mai 2017 Statut Membre Dernière intervention 11 mai 2017 - 11 mai 2017 à 00:41
[Dal] Messages postés 6194 Date d'inscription mercredi 15 septembre 2004 Statut Contributeur Dernière intervention 11 octobre 2024 - 11 mai 2017 à 10:38
bonsoir comment faire un programme avec turbo pascal qui convertit les unités de mesure de distance
Merci
A voir également:

1 réponse

[Dal] Messages postés 6194 Date d'inscription mercredi 15 septembre 2004 Statut Contributeur Dernière intervention 11 octobre 2024 1 092
11 mai 2017 à 10:38
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