Data Mahasiswa Pada Pascal

     Hi.... Bro and sis kali ini ane akan memposting tentang pascal lagi karena ane mulai tertarik dangan bahasa pemograman ini yang sangat unik dan sekaligus menantang ketelitian dan juga logika para orang yang membuat programnya. Hari ini tidak jauh dari yang ane posting sebelumnya yaitu tentang data mehasiswa OK berikut sintaks-nya

program data_mahasiswa;

uses crt;

var

   nama, nim : string;

   nilai,jurusan : integer ;

   ulang : char;

begin

   while upcase(ulang) <> 'T' do

   begin

   clrscr;

   writeln(' - - - - - - - - - - - - - - ');

   writeln('    Program Data Mahasiswa   ');

   writeln(' - - - - - - - - - - - - - - ');

   writeln;

   write('Masukkan Nama Mahasiswa : ');

   readln(nama);

   writeln;

   write('Masukkan NIM Mahasiswa : ');

   readln(nim);

   Writeln;

   writeln('Pilihan Jurusan Yang Tersedia : ');

   writeln('1. Teknik Sipil ');

   writeln('2. Teknik Elektro ');

   writeln('3. Teknik Arsitektur ');

   writeln('4. Teknik Mesin ');

   writeln('5. Teknik Perencanaan Wilayah & Kota ');

   writeln('6. Teknik Informatika ');

   writeln;

   write('Masukkan Nomor Jurusan Mahasiswa : ');

   readln(jurusan);

   writeln;

   writeln('Rentang Nilai : ');

   writeln('80 - 100 = A ');

   writeln('60 - 79  = B ');

   writeln('40 - 59  = C ');

   writeln('20 - 39  = D ');

   writeln('0  - 19  = E ');

   writeln;

   write('Masukkan Nilai Akhir Mahasiswa : ');

   readln(nilai);

   writeln;

   writeln;

   writeln('Data-Data Mahasiswa Yang Anda Telah Input Adalah ');

   writeln;

   writeln;

   writeln('Nama Mahasiswa Adalah ',nama);

   writeln;

   writeln('NIM Mahasiswa Adalah ',nim);

   writeln;

   case jurusan of

   1 : begin writeln('Jurusan Mahasiswa Adalah Teknik Sipil ') end;

   2 : begin writeln('Jurusan Mahasiswa Adalah Teknik Elektro '); end;

   3 : begin writeln('Jurusan Mahasiswa Adalah Teknik Arsitektur '); end;

   4 : begin writeln('Jurusan Mahasiswa Adalah Teknik Mesin '); end;

   5 : begin writeln('Jurusan Mahasiswa Adalah Teknik Perencanaan Wilayah Dan Kota '); end;

   6 : begin writeln('Jurusan Mahasiswa Adalah Teknik Informatika'); end;

   end;

   writeln;

   if nilai <=19 then writeln('Nilai Anda ',nilai,' Sama Dengan E ')

   else if nilai <=39 then writeln('Nilai Anda ',nilai, ' Sama Dengan D ')

   else if nilai <=59 then writeln('Nilai Anda ',nilai, ' Sama Dengan C ')

   else if nilai <=79 then writeln('Nilai Anda ',nilai, ' Sama Dengan B ')

   else if nilai <=100 then writeln('Nilai Anda ',nilai, ' Sama Dengan A ')

   else writeln('Anda Salah Memasukkan Nilai Mahasiswa ');

   writeln;

   writeln;

   writeln('Tekan Y untuk Mengiput Data Lagi & T untuk Keluar Dari Program ');

   write('Masukkan Y/T : ');

   readln(ulang);

   end;

end.

Program ATM Pada PASCAL

    Kali ini ane bakal memposting sintaks ATM pada program pascal yang kebetulan menjadi tugas besar ane di striktur data. Heheh ... sory agak curhat dikit OK langsung saja Berikut contoh sintaks-nya

program buat_atm;

uses wincrt;

label a,b,c,d,e,f,g,h,k;

var

   ma: string;

   t: char;

   pil,pin: byte;

   uang,ing,i: longint;

 

begin

gotoxy(16,2);writeln('SELAMAT DATANG DI PROGRAM ATM');

GOTOXY(16,3);WRITELN('   MANAJEMEN INFORMATIKA    ');

writeln('==========================================================');

writeln;

write('Inputkan Huruf Y Untuk Menggunkan Program ATM Ini : ');readln(t);

if (t='y') or (t='Y') then

goto a

else

writeln;

h:

clrscr;

writeln('Saldos What You Have Is Rp. 134.800.000,00');

writeln('*************************************************');

write('Ingin Transaksi Lagi Y/T : ');readln(t);

 IF (t='Y') or (t='y') then

 goto a

 else

 writeln;

k:

clrscr;

writeln('Saldo Yang Anda Miliki Adalah Rp. 30.000.800,00');

writeln('*************************************************');

write('Ingin Transaksi Lagi Y/T : ');readln(t);

 IF (t='Y') or (t='y') then

 goto a

 else

 writeln;

g:

 clrscr;

 gotoxy(12,2);writeln('MENTION YOUR TOTAL WAHAT WILL YOU TAKE');

 writeln('------------------------------------------------------------');

  write('MENTION MONEY TOTAL WHAT WILL TAKE : ');readln(uang);

  for i:= 10000 to uang do write(i:5);

  clrscr;

  gotoxy(12,2);writeln('    Please Take Your Money');

  gotoxy(12,3);writeln('Thank You Has Used Our Service');

 writeln;

 writeln('----------------------------------------------------------');

 write('Want To Transaction Again Y/T : ');readln(t);

 IF (t='Y') or (t='y') then

 goto a

 else

 writeln;

f:

 clrscr;

 gotoxy(12,2);writeln('       Please Wait a Few Minute!');

 gotoxy(12,3);writeln('Please Take Your Money. Thank You ^_^');

 writeln;

 writeln('----------------------------------------------------------');

 write('Want To Transaction Again Y/T : ');readln(t);

 IF (t='Y') or (t='y') then

 goto a

 else

 writeln;

 e:

 clrscr;

 gotoxy(12,2);writeln('      Mohon Tunggu Beberapa Menit!');

 gotoxy(12,3);writeln('Silahkan Ambil Uang Anda . Terima Kasih ^_^');

 writeln;

 writeln('----------------------------------------------------------');

 write('Ingin Transaksi Lagi Y/T : ');readln(t);

 IF (t='Y') or (t='y') then

 goto a

 else

 writeln;

 d:

 clrscr;

 gotoxy(12,2);writeln('MASUKKAN JUMLAH UANG YANG ANDA AKAN AMBIL');

 writeln('------------------------------------------------------------');

  write('Masukkan Jumlah Uang Yang Akan Diambil : ');readln(uang);

  for i:= 10000 to uang do write(i:5);

  clrscr;

  gotoxy(12,2);writeln('          Silahkan Ambil Uang Anda');

  gotoxy(12,3);writeln('Terima kasih Telah Menggunakan Layanan Kami');

 writeln;

 writeln('----------------------------------------------------------');

 write('Ingin Transaksi Lagi Y/T : ');readln(t);

 IF (t='Y') or (t='y') then

 goto a

 else

 writeln;

 c:

 begin

 clrscr;

 gotoxy(12,2);writeln('PLEASE CHOOSE THESE ITEM');

 writeln('=================================================');

 writeln;

 writeln('1. Rp. 100.000'); gotoxy(22,5);writeln('7. Your Saldo');

 writeln('2. Rp. 200.000'); gotoxy(22,6);writeln('8. Other Transaction');

 writeln('3. Rp. 250.000');

 writeln('4. Rp. 1.000.000');

 writeln('5. Rp. 2.000.000');

 writeln('6. Rp. 3.000.000');

 writeln('--------------------------------------------------------------');

 writeln;

 write('PLEASE INPUT YOUR CHOOSE  1/2/3/4/5/6 : ');readln(ing);

 if (ing=1) or (ing=2) or (ing=3)or (ing=4) or (ing=5) or (ing=6) then

 goto f

 else

 if ing= 8 then

 goto g

 else

 if ing= 7 then

 goto h

 end;

  b:

 begin

 clrscr;

 gotoxy(12,2);writeln('SILAHKAN MASUKKAN PILIHAN ANDA');

 writeln('=================================================');

 writeln;

 writeln('1. Rp. 100.000'); gotoxy(22,5);writeln('7. Info Saldo Anda');

 writeln('2. Rp. 200.000'); gotoxy(22,6);writeln('8. Transaksi Lain');

 writeln('3. Rp. 250.000');

 writeln('4. Rp. 1.000.000');

 writeln('5. Rp. 2.000.000');

 writeln('6. Rp. 3.000.000');

 writeln('--------------------------------------------------------------');

 writeln;

 write('Silahkan Input Pilihan Anda  1/2/3/4/5/6 : ');readln(uang);

 if (uang=1) or (uang=2) or (uang=3)or (uang=4) or (uang=5) or (uang=6) then

 goto e

 else

 if uang=8 then

 goto d

 else

 if uang= 7 then

 goto k

 end;

 a:

  clrscr;

       gotoxy(12,2);writeln('.....SELAMAT DATANG DI.....');

       gotoxy(12,3);writeln('....ATM BANK BRI KENDARI....');

       WRITELN('***************************************************************');

       writeln;

       write('MASUKKAN KARTU ATM ANDA  ');readln(ma);

       clrscr;

       gotoxy(12,2);writeln('---------MASUKKAN PIN ATM ANDA--------- ');

       gotoxy(12,3);writeln('------------YOUR ATM"S PIN--------------');

       writeln('*****************************************************************');

       write('PIN ANDA    : ');readln(pin);

 clrscr;

 gotoxy(12,2);writeln('SILAHKAN PILIH BAHASA YANG INGIN ANDA GUNAKAN');

 Gotoxy(12,3);writeln('             CHOOSE YOUR LANGUAGE ');

 writeln('===========================================================');

 writeln;

 writeln('1. Bahasa Indonesia');

 writeln('2. English Language');

 writeln('===========================');

 writeln;

 write('Masukkan Pilihan Anda  1 / 2 : ');readln(pil);

 if pil = 1 then

 goto b

 else

 if pil= 2 then

 goto c

 end.

Pascal (bahasa pemrograman)

Pascal adalah bahasa pemrograman yang pertama kali di buat oleh Profesor Niklaus Wirth, seorang anggota International Federation of Information Processing (IFIP) pada tahun 1971. Dengan mengambil nama dari matematikawan Perancis, Blaise Pascal, yang pertama kali menciptakan mesin penghitung, Profesor Niklaus Wirth membuat bahasa Pascal ini sebagai alat bantu untuk mengajarkan konsep pemrograman komputer kepada mahasiswanya. Selain itu, Profesor Niklaus Wirth membuat Pascal juga untuk melengkapi kekurangan-kekurangan bahasa pemrograman yang ada pada saat itu.

Kelebihan

Kelebihan dari bahasa pemrograman Pascal adalah:

• Tipe Data Standar, tipe-tipe data standar yang telah tersedia pada kebanyakan bahasa pemrograman. Pascal memiliki tipe data standar: boolean, integer, real, char, string,
• User defined Data Types, programmer dapat membuat tipe data lain yang diturunkan dari tipe data standar.
• Strongly-typed, programmer harus menentukan tipe data dari suatu variabel, dan variabel tersebut tidak dapat dipergunakan untuk menyimpan tipe data selain dari format yang ditentukan.
• Terstruktur, memiliki sintaks yang memungkinkan penulisan program dipecah menjadi fungsi-fungsi kecil (procedure dan function) yang dapat dipergunakan berulang-ulang.
• Sederhana dan Ekspresif, memiliki struktur yang sederhana dan sangat mendekati bahasa manusia (bahasa Inggris) sehingga mudah dipelajari dan dipahami.

Bahasa PASCAL juga merupakan bahasa yang digunakan sebagai standar bahasa pemrograman bagi tim nasional Olimpiade Komputer Indonesia (TOKI). Selain itu, Bahasa PASCAL masih digunakan dalam IOI (International Olympiad in Informatics).

Tipe Data

Dalam bahasa Pascal terdapat beberapa jenis tipe data yang bisa digunakan untuk sebuah variabel atau konstanta pada program. Tipe Data tersebut antara lain adalah

Tipe Data	Deskripsi (range variabel)
Byte	angka dari 0 sampai 255
Integer	angka dari -32768 to 32767
Real	semua nilai pecahan dari 1E-38 to 1E+38
Boolean	nilai TRUE atau FALSE
Char	semua karakter dari tabel ASCII
String	semua huruf, spasi, frasa

Program Nilai Semester Mahasiswa Pada Pascal

 Berikut ini saya akan memposting tentang  Contoh Program Nilai Semester Mahasiswa Pada Pascal yang sering menjadi bahan tugas atau latihan mahasiswa yang mepelajari pascal

Berikut adalah Sintaks-nya

Program nilai_akhir_semester_mahasiswa_UNIDAYAN;

uses wincrt;

var

   nabs,nt,uts,uas,nakhir:real;

   npm,nm,prostudi,mk,grd,ket:string[25];

   grade,smtr:char;

 

begin

writeln(' Nilai Akhir Semester Mahasisiwa UNIDAYAN  ');

writeln('======================================');

write  ('Nama Mahasiswa         :');readln(nm);

write  ('NPM                    :');readln(npm);

write  ('Program Studi          :');readln(prostudi);

write  ('Semester               :');readln(smtr);

write  ('Mata Kuliah            :');readln(mk);

write  ('masukan Nilai absen    :');readln(nabs);

write  ('masukan Nilai Tugas    :');readln(nt);

write  ('masukan Nilai UTS      :');readln(uts);

write  ('masukan Nilai UAS      :');readln(uas);

nakhir:=(0.15*nabs)+(0.15*nt)+(0.35*uts)+(0.4*uas);

   if (nakhir >= 80 ) and (nakhir <= 99.99) then

   grade := 'A'

   else if (nakhir >= 70) and (nakhir <= 79.99) then

   grade := 'B'

   else if (nakhir >= 60) and (nakhir <= 69.99) then

   grade := 'C'

   else if (nakhir >= 50) and (nakhir <= 59.99) then

   grade := 'D'

   else if (nakhir >= 40) and (nakhir <= 49.99) then

   grade := 'E'

   else if (nakhir >= 30) and (nakhir <= 0) then

   grade := 'F';

case grade of

    'A' : ket := 'Lulus Sangat Memuaskan';

    'B' : ket := 'Lulus Dengan Baik';

    'C' : ket := 'Lulus Dengan Cukup';

    'D' : ket := 'Gagal';

    'E' : ket := 'Terkapar';           

    'F' : ket := 'Ke laut ajah';

    end;

writeln;

writeln('mahasiswa yang bernama :',nm);

writeln('dengan npm             :',npm);

writeln('mendapatkan nilai akhir:',nakhir:2:0);

writeln('dan gradenya adalah    :',grade);

writeln('keterangan             :',ket);

writeln;

writeln('*****Developed By: Reza Maxi*******');

readln;

donewincrt;

end.