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

Program Biodata Pascal

Apa kabar semuanya......? :3
Sebelumnya ane minta maaf kalau sudah lama g posting, balas komentar sobat2 dan g pernah ngrusin nich blog. Maklum pulsa modem rada habis kantong juga lagi bolong.weleh..weleh...nasib dech..hehehe

Untuk kedepannya ane mungkin akan banyak memposting artikel mengenai pembuatan program delphi yang sudah ane pelajari di kampus. Karena kapasitas harddisk ane yang udah pada di ujung tanduk, sayang kan kalau dihapus, sapa tahu ada yang lagi butuh... ^_^.

Berikut Program Input Biodata menggunakan Pascal

program Input_data;
uses wincrt;
var
   nama, TL, Tlr, Jk, Agama, Alamat : String;
begin
   GOTOXY(35,6); WRITELN('B I O D A T A');
   GOTOXY(19,7); WRITELN('-------------------------------------------');
   GOTOXY(20,9); write('Nama           :  ');  READLN(nama);
   GOTOXY(20,10);write('Tempat lahir   :  ');  READLN(TL);
   GOTOXY(20,11);write('Tanggal Lahir  :  ');  READLN(tlr);
   GOTOXY(20,12);write('jenis kelamin  :  ');  READLN(jk);
   GOTOXY(20,13);write('Agama          :  ');  READLN(agama);
   GOTOXY(20,14);write('alamat         :  ');  READLN(alamat);
   GOTOXY(19,15);WRITELN('--------------------------------------------');

   GOTOXY(18,17);writeLN('Input Data');
   GOTOXY(19,18); WRITELN('-------------------------------------------');
   GOTOXY(20,19);writeln('Nama Anda          : ',nama);
   GOTOXY(20,20);writeln('Tempat lahir       : ',tl);
   GOTOXY(20,21);writeln('Tanggal lahir Anda : ',tlr);
   GOTOXY(20,22);writeln('Jenis kelamin      : ',jk);
   GOTOXY(20,23);writeln('Agama              : ',agama);
   GOTOXY(20,24);writeln('Alamat             : ',alamat);
   GOTOXY(19,25);WRITELN('--------------------------------------------');
   end.


Hasilnya : 

Program Perhitungan Bangun Ruang - Pascal

 

Program Input Data Pascal

program input_data;
uses wincrt;
var
nama,nim,jur:string;
begin
clrscr;
gotoxy (22,3); write   ('Silahkan Masukkan Data Anda');

Program Menu Pilihan Pascal

Program Studi_Kasus;
uses wincrt;
label
     lagi;
var p,l,a,TB,s1,s2,s3,x,n : integer;
    tanya: char;
    BI,BB,luas,kll,harga, diskon, total   : real;
    ket: string;
begin

Program Perhitungan Pascal

Program Perhitungan;
uses wincrt;
label
     lagi;
var p,l,a,t,s1,s2,s3,x,n : integer;
    tanya: char;
    luas, kll   : real;

Program Sederhana Pascal

Program Penjumlahan Pascal

Program Tambah;
uses wincrt;
var
       a,b,c  :integer;
beginclrscr;
      write ('Masukkan nilai A = ');  readln(a);
      write ('Masukkan nilai B = ');  readln(b);
c:=a+b;
     writeln('Hasil A + B=',c);
readln;
end.

Maka Hasilnya :
Masukkan Nilai A = 'Nilai'
Masukkan Nilai B = 'Nilai'
Hasil A + B = 'Hasil'