Program Pascal

Select  Case

Uses crt;

Var Kal:String;

    HB,HK,DA,KS,KL,I:Integer;

Begin

     Clrscr;

     Writeln('Masukkan Sembarang Kalimat :');

     Readln(Kal);

     HB:=0;HK:=0;DA:=0;KS:=0;KL:=0;

     For I:=1 To Length(Kal) do

     Begin

          Case Kal[I] Of

               'A'..'Z':HB:=HB+1;

               'a'..'z':HK:=HK+1;

               '0'..'9':DA:=DA+1;

               ' ':KS:=KS+1;

          Else

              KL:=KL+1;

          End;

     End;

     Writeln('Total Karakter = ',I);

     Writeln('Huruf Besar = ',HB);

     Writeln('Huruf Kecil = ',HK);

     Writeln('Digit Angka = ',DA);

     Writeln('Spasi = ',KS);

     Writeln('Karakter Selain Huruf, Angka, Dan Spasi = ',KL);

     Readln;

End.

ARRAY

Uses crt;

Var I:Integer;

    Nama:Array[1..3] Of string;

    Nilai:Array[1..3] Of Real;

    TotNil,Rata:Real;

Begin

     Clrscr;

     TotNil:=0;

     For I:=1 To 3 Do

     Begin

          Write('Nama Mahasiswa Ke-',I,'=');

          Readln(Nama[I]);

          Write('Nilai Ujiannya =');

          Readln(Nilai[I]);

          TotNil:=TotNil+Nilai[I];

     End;

     Writeln;

     Writeln('Daftar Nama-Nama Mahasiswa MI');

     Writeln('=============================');

     For I:=1 To 3 Do

         Writeln(I,'.',Nama[I],'(',Nilai[I]:0:2,')');

     Rata:=TotNil/I;

     Writeln('Total Nilai=',TotNil:0:2);

     Writeln('Nilai Rata - Rata =',Rata:0:2);

     Readln;

End.

PROCEDURE BERSIH

uses crt;

procedure Bersih;

Var I:Byte;

Begin

     Clrscr;

     For I:=1 to 27 do

     Writeln;

     Gotoxy(1,1);

End;

Procedure Garis(JlhGaris:Byte;Karakter:char);

Var I:Byte;

Begin

     For I:=1 to JlhGaris do

         write(karakter);

     Writeln;

End;

IF ELSE (BULAN)

uses crt;

Var

   BulanAngka:Real;

   BulanHuruf:String;

Begin

     Clrscr;

     Write('Ketikkan Bulan Angka:');

     Readln(BulanAngka);

     If BulanAngka =1 then

        BulanHuruf:='Januari'

     Else if BulanAngka =2 then

          BulanHuruf:='Februari'

     else If BulanAngka =3 then

          BulanHuruf:='Maret'

     Else If BulanAngka =4 then

          BulanHuruf:='April'

     Else If BulanAngka =5 then

          BulanHuruf:='Mei'

     Else if BulanAngka =6 then

          BulanHuruf:='Juni'

     Else if BulanAngka =7 then

          BulanHuruF:='Juli'

     Else If BulanAngka =8 then

          BulanHuruf:='Agustus'

     Else if BulanAngka =9 then

          BulanHuruf:='September'

     Else If BulanAngka =10 then

          BulanHuruf:='Oktober'

     Else If BulanAngka =11 then

          BulanHuruf:='November'

     Else If BulanAngka =12 then

          BulanHuruf:='Desember'

     Else

         BulanHuruf:='BulanTidakDikenal';

     Writeln('Bulan Huruf=',BulanHuruf);

     Readln;

end.

Begin

     Bersih;

     Writeln('Uji Coba Prosedure Bersih layar');

     Garis(50,'*');

     Readln;

End.

CASE (ULANGI)

Uses crt;

Label Ulangi;

Var Karakter,Ulang:Char;

Begin

     Ulangi:

     Clrscr;

     Write('Masukkan Sembarang Karakter:');

     Readln(Karakter);

     Case Karakter Of

          'A'..'Z':Writeln('Huruf Besar');

          'a'..'z':Writeln('Huruf Kecil');

          '0'..'9':Writeln('Digit Angka');

          Else

              Writeln('Karakter Khusus');

          End;

          Write('Ingin Ulangi (Y/T)=');Readln(Ulang);

          If UPcase(Ulang)='Y' Then Goto Ulangi;

     End.

CASE(BILANGAN)

uses crt;

var

   Bil:Byte;

Begin

     clrscr;

     write('Ketikkkan Sebuah Bilangan (1-9):');

     Readln(Bil);

     Case Bil Of

          1: writeln('Anda Mengetikkan Bilangan Satu');

          2: writeln('Anda Mengetikkan Bilangan Dua');

          3: Writeln('Anda Mengetikkan Bilangan Tiga');

          4: Writeln('Anda Mengetikkan Bilangan Empat');

          5: Writeln('Anda Mengetikkan Bilangan Lima');

          6: Writeln('Anda Mengetikkan Bilangan Enam');

          7: Writeln('Anda Mengetikkan Bilangan Tujuh');

          8: Writeln('Anda Mengetikkan Bilangan Delapan');

          9: Writeln('Anda Mengetikkan Bilangan Sembilan');

          Else

              Writeln('Anda Salah Mengetikkan Bilangan');

     End;

     Readln;

End.