Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- DECLARE
- TYPE T_tabelaNatpisa IS TABLE OF VARCHAR(40) INDEX BY BINARY_INTEGER;
- brojac INTEGER:=0;
- in_char CHAR;
- indikator BOOLEAN;
- resenje VARCHAR(20):='';
- duzina INTEGER;
- tabela T_tabelaNatpisa;
- i BINARY_INTEGER;
- BEGIN
- tabela(1):='Structured Query Language';
- tabela(2):=' eXtensible Markup Language';
- tabela(3):='eXtensible Markup Language';
- tabela(4):='Hyper TEXT MarKup Language';
- i:=tabela.first;
- WHILE i<=tabela.last LOOP
- indikator:=TRUE;
- resenje:='';
- duzina := LENGTH(tabela(i));
- WHILE (brojac <= duzina) LOOP
- in_char := SUBSTR(tabela(i), brojac, 1);
- IF (indikator=TRUE AND in_char>='A' AND in_char<'Z') THEN
- resenje:=resenje|| in_char;
- indikator:=FALSE;
- END IF;
- IF (in_char=' ') THEN
- indikator:=TRUE;
- END IF;
- brojac:=brojac+1;
- END LOOP;
- brojac:=0;
- DBMS_OUTPUT.PUT_line(tabela(i) || ' == ' || resenje);
- i:=tabela.next(i);
- END LOOP;
- END;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement