Program S4;
Var
ch : string;
//*******************************
Procedure saisie (Var ch:String);
Var
i : integer;
ch1 : string;
Begin
Repeat
writeln('entrer une chaine non vide :');
readln(ch);
ch := '';
For i:= 1 To length(ch) Do
Begin
If (ch[i] In ['A'..'Z']) Then
ch1 := ch1+ch[i];
End;
Until (ch<>'') And (ch=ch1);
End;
//*******************************
Function rang(c:char) : integer;
Var
r : integer;
Begin
Case c Of
'A' : r := 1;
'E' : r := 5;
'I' : r := 9;
'O' : r := 15;
'U' : r := 21;
'Y' : r := 25;
End;
rang := r;
End;
//*******************************
Function poid(ch:String) : integer;
Var
p,i : integer;
Begin
p := 0;
For i:=1 To length(ch) Do
If (ch[i] In ['A','E','I','O','U','Y']) Then
p := p+(i*rang(ch[i]));
poid := p;
End;
//*******************************
Begin
saisie(ch);
writeln('le poid = : ', poid(ch));
End.
Inscription à :
Publier les commentaires (Atom)
