Navigace: Hlavní stránka -> PASCAL -> 10 Znaky, texty ->10.02 Hledání pozice zadaného znaku v řetězci znaků

MENU

10.02 Hledání pozice zadaného znaku v řetězci znaků

Zadání:
Sestavte program, který vypíše pozici zadaného znaku v zadaném řetězci.
Řešení:
Program ukazuje hledání určitého znaku v řetězci znaků příkazem pos. Tento příkaz vrací pozici prvního výskytu znaku. 
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var s:string;
    z:char;
    p:integer;

begin

   write('Zadejte retezec: ');
   readln(s);

   write('Zadejte hledany znak: ');
   readln(z);

   p:=pos(z,s);

   writeln('Pozice znaku ',z,' v retezci ',s,': ',p);

   readln;

end.
program ke stažení