INPUT DAN OUTPUT PASCAL

 INPUT/OUTPUT

1.       Pendahuluan

Pada umumnya program dibuat untuk menampilkan suatu keluaran. Dalam suatu program yang bekerja sesuai kebutuhan pengguna yang bervariasi, akan lebih baik bila juga memiliki kemampuan untuk menerima masukan. Dengan adanya kemampuan menerima masukan ini, maka program dapat menangani lebih dari 1 keadaan sekaligus, sehingga mampu memberikan keluaran sesuai masukan yang diberikan. Kemampuan menerima masukan juga memperlihatkan bahwa sebuah program dapat memanipulasi masukan tersebut, asalkan masukan masih dalam batas sesuai yang telah dispesifikasikan dalam program melalui tipe data, jenis variabel, dan lain-lain.

Selama masih berbasis teks, dalam bahasa pemrograman Pascal dapat dilakukan pemberian perintah untuk masukan maupun keluaran yang berbeda-beda, tergantung kebutuhan. Masukan dapat diberikan dalam suatu rangkaian karakter/teks atau bilangan, dapat pula satu saja karakter atau bilangan, suatu tekanan pada salah satu tombol keyboard, ataupun tekanan pada tombol Enter. Tampilan keluaran juga dapat diperlihatkan baik dalam 1 baris ataupun dibentuk dalam beberapa baris untuk mempermudah pembacaan. Dalam pengembangannya, program dapat dibuat untuk dapat menerima berbagai masukan, tetapi untuk latihan awal akan dibatasi terlebih dahulu pada pola-pola pemberian masukan dan memunculkan keluaran yang bersifat sederhana.

2.     Prosedur yang digunakan

Write          :  menuliskan suatu variabel ke dalam sebuah komponen file, dalam file teks digunakan untuk menuliskan satu nilai atau lebih ke suatu file
Writeln       :  mengeksekusi prosedur write, kemudian mengeluarkan sebuah penanda end-of-line (EOL) ke file program

Read          :  membaca suatu komponen file menjadi suatu variabel, dalam file teks digunakan untuk membaca satu nilai atau lebih menjadi satu atau lebih variabel
Readln       :  mengeksekusi prosedur read, kemudian bergerak ke baris berikutnya dalam file program

3.       Contoh Program

a.       Contoh pertama

Program m3bc1;

Uses wincrt;

Var

      Index : byte;

      Count : real;

      What : boolean;

      Letter : char;

      Name : string[10];

begin

      Writeln('Integer');

      Index := 17;

      Writeln(Index,Index);

      Writeln(Index:15,Index:15);

      Writeln;

      Writeln('Real');

      Count := 27.5678;

      Writeln(Count,Count);

      Writeln(Count:15,Count:15);

      Writeln(Count:15:2,Count:15:2);

      Writeln(Count:15:3,Count:15:3);

      Writeln(Count:15:4,Count:15:4);

      Writeln;

      Writeln('Boolean');

      What := FALSE;

      Writeln(What,What);

      Writeln(What:15,What:15);

      Writeln('Char');

      Letter := 'Z';

      Writeln(Letter,Letter);

      Writeln(Letter:15,Letter:15);

      Writeln('String');

      Name := 'John Doe';

      Writeln(Name,Name);

      Writeln(Name:15,Name:15);

      Writeln;

      Writeln('Text output','Text output');

      Writeln('Text output':15,'Text output':15);

End.

Untuk lebih lengkapanya download artikel di sini.. download..