|
Written by Administrator
|
|
Monday, 22 December 2008 16:27 |
Soit c et ch deux variables données tel que c est un caractère et ch est une chaîne de caractère. On vous demande d'afficher la deuxième position de c dans ch.
Exemple :
Pour c = "m" et ch = "programmation", le programme affichera : 8
Pour c = "w" et ch = "programmation", le programme affichera : 0
Correction :
En Pascal
Program pos_2;
Uses WinCrt;
Var c:char; ch:string; p:integer;
Begin
Writeln('Tapez un caractere'); Readln(c);
Writeln('Tapez une chaine de caractere'); Readln(ch);
p:= pos(c,ch);
p:= p + pos(c, copy(ch,p + 1, length(ch) - p));
Writeln('La deuxieme position de "',c,'" dans "',ch,'" = ',p);
End.
|
Exercices 
