Question

Elaborati un program in Pascal ce enumara toate literele dintr-un sir de date.

Answer 1

Răspuns:

var

  sir: string;

  litere: array['A'..'Z'] of integer;

  i: integer;

  c: char;

begin

  // Citeste sirul de la tastatura

  write('Introduceti un sir de caractere: ');

  readln(sir);

  // Initializeaza numarul de aparitii al fiecarei litere cu 0

  for c := 'A' to 'Z' do

     litere[c] := 0;

  // Numara aparitiile fiecarei litere

  for i := 1 to length(sir) do

  begin

     c := upcase(sir[i]);

     if c in ['A'..'Z'] then

        inc(litere[c]);

  end;

  // Afiseaza numarul de aparitii al fiecarei litere

  for c := 'A' to 'Z' do

     if litere[c] > 0 then

        writeln(c, ': ', litere[c]);

 

end.