Bagi anda para mahasiswa mungkin sudah tidak asing lagi dengan yang namanya Program Pascal. Terutama bagi anda yang kuliah dengan jurusan yang berhubungan dengan komputer misalkan Teknik Informatika (seperti saya), Sistem Informatika, dan lainnya. Banyak mahasiswa yang menganggap program pascal itu sulit, ada juga yang menganggap pascal itu yaa lumayaannn, dan ada juga yang menganggap pascal itu sulit bahkan mereka tidak bisa mengaplikasikannya. Hal ini sebenarnya tergantung dari kita yang menjalaninya. Padahal sebenarnya program pascal itu tidak sesulit yang dikatakan beberapa mahasiswa tersebut jika anda ingin mempelajarinya dengan logika karena kuliah komputer itu yang terpenting adalah logika.
Berikut ini saya akan memberikan contoh program menggunakan operator seperti penjumlahan, pengurangan, perkalian dan pembagian. Berikut porgramnya :
uses wincrt;var a,b,p,h:real;beginwriteln('Masukan Angka Pertama = ');read(a);writeln('Masukan Angka Kedua = ');read(b);writeln('==============================');writeln('1. Penjumlahan');writeln('2. Pengurangan');writeln('3. Perkalian');writeln('3. Pembagian');writeln('================================');writeln('Pilih Operasi Hitung : ');read(p);if p=1 then h:=a+b;if p=2 then h:=a-b;if p=3 then h:=a*b;if p=3 then h:=a/b;writeln('=================================');writeln('Hasil Operasi Hitung Anda Adalah ',h:0:2);
end.
Demikian contoh yang bisa saya berikan untuk saat ini. Yang lainnya insyaallah menyusul karena saya juga baru mahasiswa semester 1 yang masih awam program. Terima kasih.
Silahkan sampaikan saran dan komentar juga pertanyaan anda.
masi error tuh
BalasHapuscoba dibenahin lagi
oowwhh iya gan maaf ada yang ketinggalan ehehhe ..
Hapussudah ane benerin gan thanks atas sarannya ...
Maaf,masih salah gan,mungkin aada yg kurang lagi gan,disini compilenya gk bisa gan
BalasHapusbisa koq sdh saya coba lagi ..
Hapusmungkin compile agan kali eheheh ..
kok waktu di enter hasilnya malah balik ke free pascal lagi,,ndak keluar hasilnya,gimana tuh?
BalasHapuswaduunh saya gak ngerti nih maksudnya free pascal :D
Hapuskalau pakai free pascal biasanya sebelum end. terakhir itu dikasih readln; . coba aja gmana hasilnya stelah pakai readln;
HapusReadln di akhir itu agar program tersebut bisa kita baca kan
BalasHapus