[Chaines de caractèrs] Supprimer des unités blanches

Un algorithme qui permet de supprimer une unité blanches parmi deux unités.


Var
	s: string;
	i: entier;

Debut

	Pour i := 1 à length(s) Faire
		si (s[i] == '_' Et s[i+1] == '_') Alors
			delete(s, i, 1);
		FinSi
	FinPour

Fin.

Ou bien:


Var
	s, s1: string;
	i: entier;

Debut

	s1 = "__";
	TantQue (pos(s1, s) <> 0) Faire
		i := pos(s, i, 1);
		delete(s, i, 1);
	FinTantQue

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 :