[Chaines de caractèrs] Fréquence d’apparition

Un algorithme qui permet d’afficher la fréquence d’apparition de s1 dans s:


Var
	s, s1, s2: string;
	Fre: entier;

Debut

	Fre := 0;
	s2 := s;

	TantQue(pos(s1, s) <> 0) Faire
		Fre := Fre + 1;
		delete(s, pos(s1, s), length(s1));
	FinTantQue

	Ecrire("La fréquence: ", Fre);
	s := s2;

Fin.

Laisser des commentaires:

Entrez vos coordonnées ci-dessous ou cliquez sur une icône pour vous connecter:

Logo WordPress.com

Vous commentez à l'aide de votre compte WordPress.com. Déconnexion / Changer )

Image Twitter

Vous commentez à l'aide de votre compte Twitter. Déconnexion / Changer )

Photo Facebook

Vous commentez à l'aide de votre compte Facebook. Déconnexion / Changer )

Photo Google+

Vous commentez à l'aide de votre compte Google+. Déconnexion / Changer )

Connexion à %s

%d blogueurs aiment cette page :