Salut à tous,
bon voilà, je rencontre cet exercice :
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é :Écrire une fonction qui permet de nettoyer une chaîne d'un caractère, par exemple :
nettoyer ('bonjour','o') renverra 'bnjur'.
J'ai pris t:=bonjour, k:=5 et n:=1 et j'ai eu 'bonjur'. Voilà donc je demande votre aide.
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.
Partager