[Free Pascal] Calcul du prix d'un télégramme

[emyasena]

Nouveau

Bonjour, SVP je dois écrire un programme qui calcule le prix d'un télégramme. Voilà l'énoncé de l'exercice :

On donne un télégramme mot par mot. On souhaite compter le nombres d'unités de paiement du télégramme, sachant qu'il se termine par le mot (stop) et qu'un mot de longueur L coûte (L/10)+1 unités. Le mot stop ne coûte rien.

Je dois utiliser la fonction lenght mais je sais pas comment faire.

Ps : je travaille sur le Free Pascal.
Merciii

[Alcatîz]

Bonjour,

Envoyé par emyasena

Je dois utiliser la fonction lenght mais je sais pas comment faire.

Le nom de la fonction est Length, elle retourne la longueur d'une chaîne de caractères :

Code :

NbCar := Length(Chaine);