program-program pascal selanjutnya..

ini beberapa tugas yang diberikan dosen...
membuat program-program dari pascal diantaranya :
1. karakter
program Karakter;

Uses WinCrt;

Var

     a:Char;

Begin

     Writeln('Tugas Prokom 2 (Karakter)');

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

     writeln;

     Write('Masukkan Sebuah Karakter:'); readln(a);

     Case a of

     'a','b','c','d','e':writeln('huruf');

     '1','2','3','4','5':Writeln('angka');

     '-','=','*','+',':':writeln('simbol operasi matematika');

     else writeln('tidak dikenal');

     end;

End.

2. konversi nilai

program Konversi_Nilai;

uses WinCrt;

Var

a:Byte;

Begin

     Writeln('Tugas Prokom 2 (Konversi Nilai)');

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

     writeln;

     Write('Masukkan Nilai=');readln(a);

     If a>=86 then write ('Nilai = A') else

     if a>=81 then write ('Nilai= AB') else

     if a>=71 then write ('Nilai= B') else

     if a>=66 then write ('Nilai= BC') else

     if a>=61 then write ('Nilai= C') else

     if a>=56 then write ('Nilai= CD') else

     if a>=51 then write ('Nilai= D') else

     write ('Nilai= E');

End.