Convertir les unités de mesure de distance

parfait131 Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
[Dal] Messages postés 6122 Date d'inscription Statut Contributeur Dernière intervention - 11 mai 2017 à 10:38

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

Afficher la suite

1 réponse

[Dal] Messages postés 6122 Date d'inscription Statut Contributeur Dernière intervention 1 108

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

Convertir les unités de mesure de distance

1 réponse

Discussions similaires

Newsletters