Question

Adauda doua spatii dupa fiecare caracter (In Pascal va rog)

Answer 1

Răspuns:

program DouaSpatii;

var s:string;

   i,k:integer;

   v:array[1..330]of char;

begin

 write('Dati sirul de caractere: ');  read(s);

 k:=0;

 for i:=1 to length(s) do

   begin

     inc(k); v[k]:=s[i];

     inc(k); v[k]:=' ';

     inc(k); v[k]:=' ';

   end;

 writeln('Sirul obtinut, dupa fiecare caracter sunt afisate 2 spatii');

 for i:=1 to k do

   begin

     write(v[i]);

     if i mod 100=0 then writeln;

   end;

end.

Explicație:

Se adaugă 2 spaţii după orice caracter... Prin caracter se înţelege orice simbol imprimabil, chiar şi spaţiul. Am folosit vector de caractere, deoarece rezultatul după adăugarea a două spaţii după orice caracter, lungimea şirului rezultant poate întrece dimensiunea maximă de 255, şi atunci toate caracterele ce depăşesc dimensiunea maximă vor fi trunchiate