Program Rekapitulasi Nilai - Pascal

Program Rekapitulasi_Nilai_Mahasiswa;
uses crt;
var
   NO,NIM,SKS_1,SKS_2,NA,Total: integer;
   Nama,Matkul,Grade: string;
begin
clrscr;
      gotoxy(19,3);  writeln (' REKAPITULASI NILAI MAHASISWA PALCOMTECH ');
      gotoxy(18,4);  writeln ('*===========================================*');
      gotoxy(23,5);  write ('No= ')            ; readln(No)     ;
      gotoxy(23,6);  write ('Nama= ')          ; readln(Nama)   ;
      gotoxy(23,7);  write ('NIM= ')           ; readln(NIM)    ;
      gotoxy(23,9);  write ('Matkul 1= ')      ; readln(Matkul) ;
      gotoxy(23,10); write ('SKS 1= ')         ; readln(SKS_1)    ;
      gotoxy(23,11); write ('Nilai angka 1= ') ; readln(NA)     ;

        if (NA>=85) and (na<=100) then
           Grade :='A'
   else if (NA>=75) and (na<=84)  then
           Grade :='B'
   else if (NA>=65) and (na<=74)  then
           Grade :='C'
   else if (NA>=55) and (na<=54)  then
           Grade :='D'
   else if (NA>=0) and (na<=54)   then
           Grade :='E'
   else
begin
           Grade :='x';
     gotoxy(23,13); writeln ('Periksa kembali nilai yang Anda input');
   end;
     gotoxy(23,12); writeln ('Grade Nilai 1= ',grade);

     gotoxy(23,14);  write ('Matkul 2= ')      ; readln(Matkul) ;
     gotoxy(23,15); write ('SKS 2= ')         ; readln(SKS_2)    ;
     gotoxy(23,16); write ('Nilai angka 2= ') ; readln(NA)     ;

        if (NA>=85) and (na<=100) then
           Grade :='A'
   else if (NA>=75) and (na<=84)  then
           Grade :='B'
   else if (NA>=65) and (na<=74)  then
           Grade :='C'
   else if (NA>=55) and (na<=54)  then
           Grade :='D'
   else if (NA>=0) and (na<=54)   then
           Grade :='E'
   else
begin
           Grade :='x';
     gotoxy(23,18); writeln ('Periksa kembali nilai yang Anda input');
   end;
     gotoxy(23,17); writeln ('Grade Nilai 2= ',grade);

          Total:= SKS_1 + SKS_2;
     gotoxy(18,19) ; writeln ('=============================================');
     gotoxy(45,20) ; textcolor(9); writeln ('Total SKS= ',Total);

     gotoxy(25,23); textcolor(10); writeln ('Terima Kasih ^_^');
     readln;
end.

Hasilnya :

Contoh Program Aritmatika - Pascal

Dibawah ini adalah program Aritmatika (Sinus, Cosinus, Tangen) menggunakan bahasa pascal.

program aritmatik;
uses wincrt;
var
  x:real;
begin
     clrscr;
     gotoxy (18,3); writeln ('PROGRAM MENGHITUNG SINUS, COSINUS DAN TANGEN');
     gotoxy (18,4); writeln ('--------------------------------------------');
     gotoxy (18,5); write('Masukkan nilai dari x= ');
     readln(x);

         if x <0 then x:=abs(x);
     gotoxy (18,6); writeln('nilai x=',x:5:2);
     gotoxy (18,7); write('nilai x jika dimasukkan dalam fungsi sin,cos,tangen');
     writeln;
     gotoxy  (18,8); writeln('-sinus =  ',sin(x):9:3);
     gotoxy  (18,9); writeln('-cosinus= ',cos(x):9:3);
     gotoxy (18,10); writeln('-tangen= ',arctan(x):9:3);
end.

Hasilnya :

Program Grade Nilai - Pascal

Berikut adalah Program Grade Nilai Pascal menggunakan statemen Case Of

program grade_nilai;
uses wincrt;
var
   x : integer;
   Grade : string;
begin
clrscr;
write ('nilai anda = '); readln(x);
      case x of
      85..100: Grade :='A';
      75..84  : Grade :='B';
      65..74  : Grade :='C';
      55..64  : Grade :='D';
      0..54   : Grade :='E';
else
    grade :='Tidak ada Nilai';
end;
writeln ('Grade = ',Grade);
readln;
end.

Hasilnya :
Nilai Anda = 80
Grade = B

Program Sederhana Perulangan For Do - Pascal

uses wincrt;
var
     i,j,n:integer;
begin
     write ('Banyak Perulangan: '); readln(n);
     j:=5;
     for i:=1 to n do
begin
     writeln(i,' ',j);
     j:=j-1;
end;
  readln;
end.

Hasilnya :
1    5
2    4
3    3
4    2
5    1