ouniss a écrit :
program ouniss;
uses wincrt;
var
ch,h:string;
pos,l:integer;
procedure saisir(var pos :integer; var l:integer;var ch:string);
begin
writeln('donner la chaine CH =');
read(ch);
writeln('donner le position de coupure POS =');
read(pos);
writeln('donner le nombre de caractere on doit coupe L =');
read(l);
end;
procedure coupe ( var ch :string; pos,l:integer);
begin
delete(ch,pos,l);
end;
procedure affiche (var ch:string );
begin
writeln('la chaine devient comme ca =',ch);
end;
BEGIN
saisir(pos,l,ch);
coupe(ch,pos,l);
affiche(ch);
END.
|