Instruksi Input dan Output Bahasa Pascal : Materi dan Contoh

Instruksi Input dan Output Bahasa Pascal

Input Output (I/O) dalam pemrograman merujuk pada proses untuk memasukkan data ke dalam program dan menampilkan hasil keluaran dari program tersebut ke pengguna. Proses input adalah cara untuk memasukkan data ke dalam program, sedangkan proses output adalah cara untuk menampilkan hasil dari program tersebut ke pengguna.

Intruksi input-output adalah sebagai berikut :

Algoritma	Pascal
Read(variabel) ;	Read(variabel) ; Readln(variabel) ;
Write(“teks... “, variabel)	Write(“teks... “, variabel) ; Writeln(“teks... “, variabel) ;
Contoh : Algoritma Hitung_Rata {menghitung rata dari tiga angka} Deklarasi Real Num1, Num2, Num3, Rata; String Nama; Deskripsi Write (“Masukkan Nama anda : “) ; Read (Nama) ; Write (“Masukkan angka 1 : “) ; Read(Num1) ; Write (“Masukkan angka 2 : “) ; Read(Num2) ; Write (“Masukkan angka 3 : “) ; Read(Num3) ; Rata = (Num1+Num2+Num3) /3; Write (“Rata-rata = “, Rata) ; Write (“Terimakasih “, Nama) ;	Contoh : PROGRAM  Hitung_Rata; USES crt; VAR Num1, Num2, Num3, Rata : Real; Nama : string; BEGIN Write (“Masukkan Nama anda : “) ; Readln (Nama) ; Write (“Masukkan angka 1 : “) ; Readln(Num1) ; Write (“Masukkan angka 2 : “) ; Readln(Num2) ; Write (“Masukkan angka 3 : “) ; Readln(Num3) ;   Rata := (Num1+Num2+Num3) /3;   Writeln (“Rata-rata = “, Rata) ; Writeln (“Terimakasih “, Nama) ;            END

Tips pada pernyataan Output

Jika Anda ingin menampilkan banyak baris teks atau menampilkan hasil numerik pada baris terpisah, biasanya kita menggunakan pernyataan WRITELN sebanyak jumlah baris yang diperlukan. Cara lain untuk melakukan ini adalah dengan menggunakan kode kontrol ASCII 13 (carriage return) dan 10 (linefeed) setiap kali baris baru diperlukan. Anda kemudian dapat menggunakan satu pernyataan WRITE atau WRITELN untuk mencetak semua hasil. Contoh : karakter kontrol CHR(10) dideklarasikan sebagai konstanta bernama LF (singkatan umum untuk umpan baris), dan karakter kontrol CHR(13) sebagai CR (singkatan umum untuk carriage return). Kombinasi dua karakter CR dan LF memberikan efek yang sama seperti menekan Enter.

PROGRAM Display1(INPUT,OUTPUT);

CONST

    LF = CHR(10);

    CR = CHR(13);

VAR

    X, Y, Z :INTEGER;

BEGIN

    WRITE('Enter three integers: ');

    READLN(X, Y, Z);

    WRITELN('X=', X, CR, LF, 'Y=', Y, CR, LF, 'Z=', Z)

END.

Sample run:

Enter three integers: 11 22 33

X=11

Y=22

Z=33

Tips tentang pernyataan Input

Saat Anda menggunakan pernyataan input READ atau READLN, beberapa jebakan dapat terjadi selama pembacaan berturut-turut, terutama dengan input karakter. Oleh karena itu, penting untuk memahami bagaimana pernyataan input bekerja dengan tipe data yang berbeda. Saat pernyataan READ atau READLN dijalankan, nilai disimpan dalam file INPUT standar (keyboard). Nilai yang disimpan kemudian dibaca dari file ini dan ditetapkan ke variabel yang ditentukan dalam daftar input. Setiap kali Anda menekan tombol Enter, tanda akhir baris ditulis ke file INPUT.

Program Pascal Konversi Suhu

Program Konversi_Suhu; uses crt; var     fahrenheit,celsius:real; begin     clrscr;     writeln ('MENCARI KONVERSI SUHU');     writeln ('=====================');     Write ('Input derjad Celsius =');     readln (celsius);     fahrenheit:=9/5*celsius+32;     write ('Derjad Fahrenheit =',fahrenheit:5:2); end.

Program Pascal Menentukan Harga Bayar

Program Harga_Bayar; uses crt; var     barang,satuan,pajak,bayar:real; begin     clrscr;     writeln ('Menentukan Harga Bayar');     writeln ('======================');     write ('Jumlah Barang =');     readln (barang);     write ('Harga Satuan Rp. =');     readln (satuan);     write ('Pajak Rp. =');     readln (pajak);     bayar:=barang*satuan+pajak;     write ('Harga Bayar Rp. =',bayar:20:2); end.

Program Pascal Mencari Luas Lingkaran

Program Luas_Lingkaran; uses crt; var     jari,luas:real; begin     clrscr;     writeln ('Mencari Luas Lingkaran');     writeln ('======================');     write ('Input Panjang Jari-jari (cm) =');     readln (jari);     luas:=22/7*jari*jari;     write ('Luas adalah (cm^2) =',luas:10:2); end.

Program Pascal Mencari Standar Deviasi

Program Standar_Deviasi; uses crt; var     a,b,c,d,e,n : integer;     rata,sd,sq : real; begin     clrscr;     writeln ('Mencari Standar Deviasi (SD)');     writeln ('============================');     write ('Data ke 1 (data) = '); readln (a);     write ('Data ke 2 (data) = '); readln (b);     write ('Data ke 3 (data) = '); readln (c);     write ('Data ke 4 (data) = '); readln (d);     write ('Data ke 5 (data) = '); readln (e);     n := a+b+c+d+e;     rata := n/5;     sq := sqr(a-rata);     sq := sq+sqr(b-rata);     sq := sq+sqr(c-rata);     sq := sq+sqr(d-rata);     sq := sq+sqr(e-rata);     sd := sqrt(sq/4);     writeln ('Jumlah Data (n) = ',n);     writeln ('Rata-rata (rata) = ',rata:10:2);     writeln ('Standar Deviasi = ',sd:10:2);     readln; end.

Program Pascal Nilai Tabel Distribusi Normal

Program Distribusi; uses crt; var     a,b,c,d,e,n : integer;     m,za,zb,zc,zd,ze,sq,sd :real; begin     clrscr;     writeln ('NILAI TABEL DARI DISTRIBUSI NORMAL');     writeln ('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');     Write ('Data ke-a (data) = '); readln (a);     Write ('Data ke-b (data) = '); readln (b);     Write ('Data ke-c (data) = '); readln (c);     Write ('Data ke-d (data) = '); readln (d);     Write ('Data ke-e (data) = '); readln (e);     n := a+b+c+d+e ;     m := n/5;     sq := sqr(a-m);     sq := sq+sqr(b-m);     sq := sq+sqr(c-m);     sq := sq+sqr(d-m);     sq := sq+sqr(e-m);     sd := sqrt(sq/4);     writeln ('Jumlah data (n) = ',n);     writeln ('Nilai rata-rata Keseluruhan (m) = ',m:5:2);     za :=(a-m)/sq;     zb :=(b-m)/sq;     zc :=(c-m)/sq;     zd :=(d-m)/sq;     ze :=(e-m)/sq;     writeln ('HASIL TABEL Z');     writeln ('-------------');     writeln ('Nilai Tabel (z(a)) = ',za:5:5);     writeln ('Nilai Tabel (z(b)) = ',zb:5:5);     writeln ('Nilai Tabel (z(c)) = ',zc:5:5);     writeln ('Nilai Tabel (z(d)) = ',zd:5:5);     writeln ('Nilai Tabel (z(e)) = ',ze:5:5);     readln; end.

Terima Kasih Telah Membaca semoga bermanfaat, jika ada saran, kritik, dan pertanyaan silakan sampaikan di kolom komentar ya !!! see you...

Referensi : 

Suarga.2012.Algoritma dan Pemrograman.Yogyakarta:ANDI

Abolrous, Sam A.2002.Learn Pascal in Three Days Third Edition.Texas:Wordware Publishing Inc

Read More