Upcase(fungsi)

Memberikan huruf kapital dari argumen.

Sintaks:

UPCASE(S);

S = variabel bertipe karakter.

Contoh :

PROGRAM mani_string;
USES CRT;
VAR 
    s : STRING;
    l : INTEGER;
    h : STRING;
CONST 
    a='STMIK';
    b='AMIK ';
    c='DUMAI';
BEGIN
    CLRSCR;
    s:=CONCAT(a,b,c);
    WRITELN(s);
    INSERT(' & ',s,6);
    WRITELN(s);
    DELETE(s,7,7);
    WRITELN(s);
    h:=COPY(s,1,5);
    WRITELN(h);
    l:=LENGTH(s);
    WRITELN('Panjangnya string S : ',l);
    WRITELN('Posisi "GUNA" pada nilai S :',POS('DUMA',s));
END.

Hasilnya adalah :

STMIKAMIK DUMAI
STMIK & AMIK DUMAI
STMIK DUMAI
STMIK
Panjangnya string S : 15
Posisi "DUMA" pada nilai S : 7