Contoh Program Input Output dengan Pascal

Assalamualaikum wr wb

      Bagaimana kabarnya sahabat-sahabatku? Semoga baik-baik saja ya :). Pada kesempatan kali ini saya ingin nge-share tentang pemrograman dengan Pascal. Sebelumnya harus kita ketahui apa itu pascal. 

       Pascal merupakan bahasa pemrograman yang terstruktur, artinya bahasa pemrogramnnya dapat dipecah menjadi fungsi - fungsi kecil yang dapat digunakan berulang - ulang kali. Pascal pertama kali diperkenalkan oleh Niklaus Wirth pada tahun 1971. Bahasa pemrograman ini penting untuk dipelajari karena banyak bahasa pemrograman lainnya menggunakan bahasa dasar Pascal, semisal Delphi. Oleh karena itu jika mempelajari bahasa pemrograman pascal akan sangat mudah mempelajari delhpi, karena Delphi sendiri merupakan visual dari pascal sama halnya seperti Visual Basic. (http://belajar-pemrograman2.blogspot.com/2010/07/pengertian-pascal.html)

      Oke langsung saja untuk kali ini saya ingin membahas tentang program input dan output.

Output

Apabila menggunakan Pascal maka syntax untuk output menggunakan write atau writeln. Contohnya sebagai berikut.

program lat1;

uses wincrt;

begin

writeln('nama        : Asti Widyaningsih');

writeln('nim         : 121 05 1032');

writeln('jurusan     : Teknik Informatika');

writeln('fakultas    : Teknologi Industri');

writeln('universitas : IST AKPRIND Yogyakarta');

end.

Nah apabila program tersebut di running maka hasilnya:

Perlu diperhatihan bahwa coding yang ingin ditampilkan apa adanya harus diapit dengan tanda (').

Input

Apabila menggunakan Pascal maka syntax untuk input menggunakan read atau readln. Contohnya sebagai berikut.

uses wincrt;

var

phi,r,luas:real;

begin

writeln(' MENGHITUNG LUAS LINGKARAN');

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

write('masukkan jari-jari lingkaran = ');read(r);

phi:=3.14;

writeln('_______________________________');

luas:=phi*r*r;

writeln('LUAS                         = ',luas:2:2);

writeln('_______________________________');

writeln('selamat Anda berhasil (^_^)');

writeln('_______________________________');

end.

Program tersebut jika di ruuning sebagai berikut.

Pada program tersebut perintah untuk inputan yaitu untuk memasukkan nilai jari-jari. Untuk menghitung luas lingkaran tersebut disini ada syntax yang melibatkan operator aritmatika perkalian (*). Untuk pembahasan operator aritmatika lebih lanjut akan saya posting selanjutnya. Terima kasih, Semangat Belajar :)