Discussion :

[mira87]

Bonjour ! J'ai besoin d'aide s'il vous plaît pour résoudre le problème suivant :

saisir une chaîne de caractères puis trouver et afficher la premier voyelle rencontrée
version 1 : la chaine contient sûrement une voyelle
version 2 : la chaîne peut ne pas contenir de voyelle

et merci d'avance.

[Roland Chastain]

et merci d'avance.

Mais de rien, c'est avec plaisir.

Quelle difficulté rencontrez-vous ? Pourriez-vous montrer ce que vous avez fait jusqu'à présent ?

[Nazoïde]

saisir une chaîne de caractères puis trouver et afficher la premier voyelle rencontrée
version 1 : la chaine contient sûrement une voyelle
version 2 : la chaîne peut ne pas contenir de voyelle

et merci d'avance.

Apprends à faire tes devoir. C'est ce qui fer de toi un

WINNER

[ptitjoz]

Bonjour,

en Freepascal pour le fun et pour me forcer à faire un exercice j'ai écrit ce code. Sous Linux dans un terminal, ça fonctionne.
(mais ça ne marche pas en turbo pascal sous Dosbox ;ça bloque sur upcase(ListeVoyelles[j]) 'invalid qualifier')

c'est une variante de l'exercice demandé. mais le code est peut être lourd...

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
20
21
22
23
24
25
program voyelles; 
{ by ptitJoz }
uses crt;
const ListeVoyelles='aàâäeèéêëiîïoôöuùûüyÿ';
var chaine:string;
var i,j,flag:Integer;
begin
	clrscr;
	Writeln('le programme affichera les voyelles en jaune');
	repeat
		write('Entrez quelques mots ou * pour fin : ');
		readln(chaine);
		writeln;
		for i:=1 to length(chaine) do
		begin
			flag:=0;
			for j:=1 to length(ListeVoyelles) do
					if upcase(chaine[i])=upcase(ListeVoyelles[j]) then flag:=1;
			if flag=1 then textcolor(14) else textcolor(7);
			write(chaine[i]);
		end;
		textcolor(7);
		writeln;
	until chaine = '*';
end.

Qu'est-ce que vous en pensez ?

Merci et bien cordialement

Edit : je viens de m'apercevoir qu'avec les majuscules accentuées ça ne fonctionnait pas... ça me met une sorte point d'interrogation... une idée ?

[Roland Chastain]

je viens de m'apercevoir qu'avec les majuscules accentuées ça ne fonctionnait pas... ça me met une sorte point d'interrogation... une idée ?

Vous allez devoir utiliser plutôt la fonction UTF8UpperCase de l'unité LazUTF8, comme dans cet exemple.

Voyez aussi cette discussion qui fait le tour complet de la question.

Et cette autre.

[ptitjoz]

Bonjour et merci pour ces liens intéressants.
Comme je n'ai pas installé Lazarus (que intaillerai plus tard) cette unité n'est pas reconnue sous FPC. Il y a des solutions de contournement mais comme c'était un auto-exercice je ne vais pas aller plus loin.

Merci à toi.