POS - Vraĉa redni broj tipa.
Sintaksa: FUNCTION POS(PodString, IzvorniString:<StringTip>):<BYTE>;

Ako POS ne na|e podstring tad ispisuje 0.

Tabela d.19. POS - funkcija

Listing programa

Ekran

Opis

PROGRAM MjestoPodstringa;

 

Naslov

VAR

 

 

  a: 'PASCAL';

 

String

BEGIN

 

 

  WRITELN('S je na',POS('S',a));          

S je na 3

Redno

  WRITELN('L je na',POS('L',a));          

L je na 6

mjesto

  WRITELN('B je na',POS('B',a));          

B je na 0

slova

END.

 

Kraj

Listing programa:

PROGRAM pPOS;
USES
  WinCrt;
VAR
  a: 'PASCAL'; 
BEGIN
  WRITELN('S je na',POS('S',a));           
  WRITELN('L je na',POS('L',a));           
  WRITELN('B je na',POS('B',a));           
END.

Index