contoh kode pascal 3

Program String1;
Uses WinCrt;
Var JumKal : Integer;
    Kal      : String;
    Ul       : Char;

Procedure CekJKal(Teks: String; Var JK: Integer);
Var i: Integer;
Begin
  If (Teks[1]=' ') Then
     JK:=0
  Else
     JK:=1;
  For i:= 1 To Length(Teks) Do
    Begin                                                
      If (Teks[i]=' ') And (Teks[i+1]<>' ') And (Teks[i+2]<>' ') Then
         Inc(JK)
      Else If (Teks[i]='-') And (Teks[i-1]<>' ') And (Teks[i+1]<>' ')



Then
         Inc(JK);
    End;
End;

Begin
  Repeat
    Clrscr;
    Writeln('Program Menghitung Jumlah Kata Dalam Kalimat');
    Writeln('============================================');
    Writeln;
    Writeln('Masukkan Kalimat:');Readln(Kal);
    CekJKal(Kal,JumKal);
    Writeln;
    Writeln('Jumlah  Kata  Dalam  Kalimat  Di  Atas  Sebanyak:  ',JumKal,'
Buah');
    Writeln;
    Write('Mau Ulang Lagi [Y/T]: ');Ul:=Upcase(Readkey);
  Until Ul<>'Y';
End.


Program String2;
Uses WinCrt;
Type Data=Record
          Kata   : String;
     End;
     Larikdata = Array [1..100] of Data;
Var KataPjg  : Larikdata;
    i,j,idx  : Integer;
    Kal      : String;
    Ul       : Char;

Procedure Ambilkata(Var a,b: Integer; Kalimat: String);
Var Tmp : String;
Begin
  Tmp:='';
  While (Kalimat[a]<>' ') And (Kalimat[a]<>'-') And (Kalimat[a]<>'!')
         And  (Kalimat[a]<>'?')  And  (Kalimat[a]<>',')  And
(Kalimat[a]<>'.')
         And  (Kalimat[a]<>':')  And  (Kalimat[a]<>';')  And
(a<=Length(Kalimat)) Do
    Begin
      Tmp:=Tmp+Kalimat[a];
      Inc(a);
    End;
  Inc(b);
  KataPjg[b].Kata:=Tmp;
End;
Procedure CariKataTerpanjang(x:Integer;Var indeks: Integer);
Var i,max: Integer;
Begin
  max:=0;
  For i:= 1 to x Do
     If max<Length(KataPjg[i].Kata) Then
        Begin
          max:=Length(KataPjg[i].Kata);
          indeks:=i;
        End;
End;

Begin
  Repeat
    Clrscr;
    Writeln('Program Cari Kata Terpanjang Dalam Kalimat');
    Writeln('==========================================');
    Writeln;
    Writeln('Masukkan Kalimat:');Readln(Kal);

    i:=1;
    j:=0;
    While i<=Length(Kal) Do
      Begin
        If (i=1) And (Kal[1]<>' ') Then
           AmbilKata(i,j,Kal)
        Else  If (Kal[i]=' ') And (Kal[i+1]<>' ') And (Kal[i+2]<>' ')
Then
           Begin
             Inc(i);
             AmbilKata(i,j,Kal);
           End
        Else  If  (Kal[i]='-')  And  (Kal[i-1]<>'  ')  And  (Kal[i+1]<>'  ')
Then
           Begin
             Inc(i);
             AmbilKata(i,j,Kal);
           End
        Else
            Inc(i);
      End;

    CariKataTerpanjang(j,idx);

    Writeln;
    Writeln('Kata  Terpanjang  Dalam  Kalimat  Di  Atas:
',Katapjg[idx].kata);
    Writeln;
    Write('Mau Ulang Lagi [Y/T]: ');Ul:=Upcase(Readkey);
  Until Ul<>'Y';
End.