Kód: Vybrať všetko

1. Vytvorte program, ktorý spočíta počet samohlások v reťazci znakov.
2.program upravte tak, aby vedel spočítať počet samohlások alebo
spoluhlások.
3. Vytvorte podprogram, pomocou ktorého zašifrujete vetu. Šifrovací kľúč je:
"32451". Šifrovací kľúč určuje poradie znakov v reťazci.
{Príklad: SKOLA bude OKLAS}

Kód: Vybrať všetko

var
  Meno :string;
  Kluc :string;
  i:integer;
  dlzka:integer;
  
begin
  clrscr;
  writeln('Zadaj meno');
  readln(Meno);
  clrscr;
  dlzka := length(Meno);
  For i :=  dlzka downto 1 Do
    begin
      Kluc:= Kluc + Meno[i];
    end;
  writeln(Meno);
  writeln(Kluc);
  readln;
end.

Kód: Vybrať všetko

program tp7;
uses fdelay,crt;
const
  samohlaska='AEIOUY';
  spoluhlaska='BCDFGHJKLMNPQRSTVWXZ';


  function znak(ch:char):byte;
  begin
    if pos(upcase(ch),samoshlaska)<>0 then znak:=1;
    if pos(upcase(ch),spoluhlaska)<>0 then znak:=2;
  end;

  procedure pocet(s:string);
  var i,psam,pspo:byte;
  begin
    psam:=0;
    pspo:=0;

 For i:=1 to length(s) do
      case Znak(s[i]) do
        1: inc(psam);
        2: inc(pspo);
      end;
    Writeln('Pocet samohlasok je ',psam);
    Writeln('Pocet spoluhlasok je ',pspo);
 end;

  function samohlasky(s:string):byte;
  var i,j:byte;
  begin
    j:=0;
    For i:=1 to length(s) do
      if znak(s[i])=1 then inc(j);
    samohlasky:=j;
  end;

Kód: Vybrať všetko

for I:= 1 to length(slovo) do write(slovo[Integer(kluc[i])-48]);