Discussion :

[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,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

NbCar := Length(Chaine);

[bigrb]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program telegramme;
uses
  wincrt;
var
  prix: real;
  mot:string; 
  pu:real; 
begin
  prix:=0; 
  writeln('entrer votre mot'); 
  readln(mot);
  writeln(length(mot));
  while(mot<>'stop') do
    begin 
      pu:=(length(mot)/10)+1;
      Prix:=prix +pu;
    end;
  writeln(' le prix de votre télégramme est :',prix :3 :2)
end.

[e-ric]

@bigrb: quand on propose une solution, on s'assure a minima qu'elle fonctionne.

En effet, La boucle que tu as écrit risque de tourner un certain temps car la variable mot n'y est jamais modifiée, la condition de terminaison n'est jamais atteinte sauf si on commence par le mot "stop". Mais emyasena aura corrigé d'elle même...

[droggo]

Kia,

@bigrb: quand on propose une solution, on s'assure a minima qu'elle fonctionne.

En effet, La boucle que tu as écrit risque de tourner un certain temps car la variable mot n'y est jamais modifiée, la condition de terminaison n'est jamais atteinte sauf si on commence par le mot "stop". Mais emyasena aura corrigé d'elle même...

Surtout après 2 ans, à quelques jours près.