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.

program pascal konversi waktu

program pascal merupakan hal yang diperbincangkan dalam kuliahku semester 3 ini..
banyak tugas-tugas membuat program dengan pascal
seperti konversi waktu...
tugas pertama dalam perkuliahan pemrograman komputer..
ini dia programnya:

program Konversi_waktu;

uses Wincrt;

Var

    A,H,S,J,T,M,D:longint;

Begin

     writeln('Tugas 1 Konversi Waktu');

     write('masukkan detik:');readln(A);

     H:=A div 86400;

     S:=A mod 86400;

     J:=S div 3600;

     T:=S mod 3600;                     

     M:=T div 60;

     D:=T mod 60;

     writeln(H,'hari');

     writeln(J,'jam');

     writeln(M,'menit');

     writeln(D,'detik');

end.

semoga bermanfaat ^_^ d_t@;