Question

Function BB(S:string):string;
Var I:byte;
Begin
I:=1; while I<=length(S) do
If S[I]=` ` then delete (S,I,1) else I:=I+1
BB:=S; end;
a) Ce realizează această funcție ?
b) Scrieți o procedură care realizează același algoritm .

Answer 1

Răspuns:

a) Funcţia BB şterge toate spaţiile din şirul de caractere S

Explicație:

b) procedură care realizează același algoritm .

procedure BBp(var S:string);

var l:byte;

Begin

I:=1; while I<=length(S) do  

If S[I]=' ' then delete (S,I,1) else I:=I+1;  

end;