Sujet Précédent Sujet Suivant

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 6205 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

A voir également:

Convertir les unités de mesure de distance
Mesure avec telephone - Guide
Allumer son pc a distance - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Controle à distance windows 10 - Guide
Déverrouiller mon telephone a distance - Guide

1 réponse

Réponse 1 / 1

[Dal] Messages postés 6205 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.

Convertir les unités de mesure de distance

1 réponse

Discussions similaires

Newsletters