Salut à tous,
bon voilà, je rencontre cet exercice :
Écrire une fonction qui permet de nettoyer une chaîne d'un caractère, par exemple :
nettoyer ('bonjour','o') renverra 'bnjur'.
J'ai essayé de le faire mais je ne sais pas comment enlever les deux 'o' en une seul fois ; voici je que j'ai essayé :
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
 
program heh;
uses crt;
var t,z:string; k,n:integer;
function del(x:string;a,b:integer):string;
delete(x,a,b);
del:=x;
end;
begin
clrscr;
write('donner votre chaine'); readln(t);
write('donner la position'); readln(k);
write('donner ...'); readln(n);
z:=del(t,k,n);
readln;readln;
end.
J'ai pris t:=bonjour, k:=5 et n:=1 et j'ai eu 'bonjur'. Voilà donc je demande votre aide.