Zistí počet písmen vo vete

Kategorija: Zadaňa zos Pascalu

Zrobil: Juraj Pupák
Program: Pocetpis.pas
Subor exe: Pocetpis.exe

{ POCETPIS.PAS                                                      }
{ Zisti pocet pismen vo vete.                                       }
{                                                                   }
{ Author: Juraj Pupak                                               }
{ Date  : 27.10.2006                           http://www.trsek.com }
 
program PocetPismen;
uses crt;
 
Function Overenie_Pismena(veta : string;index : integer) : boolean;
  var
    dlzka_vety,i : integer;
    Is_Char : boolean;
begin
  dlzka_vety := length(veta);
  Is_Char := False;
  For i := 1 To index - 1 Do
    begin
      IF veta[i] = veta[index] THEN
        Is_Char := True;
    end;
    Overenie_Pismena := Is_Char;
end;
 
  var
    veta : string;
    pismeno : char;
    index,i : integer;
    pocet_pismen,dlzka_vety : integer;
 
begin
  clrscr;
  writeln('Zadaj vetu velkymi pismenami');
  readln(veta);
  clrscr;
  dlzka_vety := length(veta);
 
  For index := 1 To dlzka_vety Do
     begin
      IF (veta[index] <> ' ') and (Overenie_Pismena(veta,index) = False) THEN
        begin
           For i := 1 To dlzka_vety Do
             begin
                IF veta[index] = veta[i] THEN
                  begin
                     pocet_pismen := pocet_pismen + 1;
                  end;
            end;
          writeln(veta[index],'..',pocet_pismen);
           pocet_pismen := 0;
        end;
    end;
  readln;
end.