Operasi Input Output

Statemen adalah perintah untuk pengerjaan program pascal. Statemen terletak di

bagian deklarasi statemen dengan diawali oleh kata cadangan BEGIN dan diakhiri dengan

kata cadangan END. Akhir dari setiap statemen diakhiri dengan titik koma [;]. Statemen

statemen dalam bahasa Pascal terdiri dari pernyataan yang berupa fungsi dan prosedur yang

telah disediakan sebagai perintah standar Turbo Pascal.

Perintah Output

Perintah write dan writeln digunakan untukl menampilkan output di layar. Perintah

write digunakan untuk mencetak pada baris yang sama dari beberapa argument. Perintah

writeln digunakan untuk mencetak pada satu baris tersendiri dari beberapa argument. Perintah

writeln yang tidak diikuti argument hanya mencetak baris kosong.

Contoh : 

     Write (‘Bahasa’);                            Writeln (‘Bahasa’);

     Write (‘Pascal’);                              Writeln (‘Pascal’);

     Hasilnya setelah dicetak.                Hasilnya setelah dicetak.

     Bahasa Pascal                                 Bahasa

                                                            Pascal

Perintah Input

Perintah input Read/Readln digunakan untuk memasukkan [input] data lewat

keyboard ke dalam suatu variabel. Perbedaan perintah read dan readln sama dengan

perbedaan perintah write dan writeln. Perintah read akan membaca masukan dari keyboard

tanpa memindahkan posisi kursor setelah pembacaan, sedangkan perintah readln akan

membaca masukan sekaligus memindahkan posisi kursor.

Contoh :

Program input;

Uses Crt;

Var nama, NIM : String;

Begin

Clrscr;

Writeln ('masukkan nama dan NIM ');

Writeln ('------------------------------');

Write ('nama anda : ');

Readln (nama);

Writeln ('NIM anda : '); Readln (NIM);

End.

Bila dijalankan hasilnya adalah:

masukkan nama dan NPM

------------------------------

nama anda : ( di input )

NIM anda : ( di input )

Dengan menggunakan komputer, praktekkan beberapa contoh program dibawah ini :

1. Program luas_PersegiPanjang

uses wincrt;

var panjang, lebar, luas : integer;

BEGIN

write('Panjang = '); readln(panjang);

write('Lebar = '); readln(lebar);

luas:= panjang *lebar;

writeln('Luas = ', luasPSP);

End.

2. Program Simpan_Nilai;

uses wincrt;

var a,b,c,d:integer;

Begin

write('Nilai a = ');readln(a);

write('Nilai b = ');readln(b);

write('Nilai c = ');readln(c);

d:=a+b+c;

writeln('Nilai d = ',d);

a:=b+d;

b:=d;

d:=a-d;

writeln;

writeln('Nilai a = ',a);

writeln('Nilai b = ',b);

writeln('Nilai d = ',d);

End.

3. Program Menghitung_Jarak;

Uses WinCrt;

var

x1,x2,y1,y2:integer;

d:real;

begin

Writeln('Program Menghitung Jarak Titik A dan B');

Writeln('======================================');

Writeln;

Write('Masukan Nilai A (X1): ');readln(x1);

Write('Masukan Nilai B (X2): ');readln(x2);

Write('Masukan Nilai A (Y1): ');readln(y1);

Write('Masukan Nilai B (Y2): ');readln(y2);

d:=sqrt(sqr(x2-x1)+sqr(y2-y1));

Writeln;

Writeln('Jadi Jarak Titik A ke B Adalah: ',d:4:2);

end.

4. Program Konversi_Suhu;

Uses WinCrt;

var f,c:real;

begin

Writeln('Program Konversi Fareinheit Ke Celcius');

Writeln('======================================');

Writeln;

Write('Masukan Suhu dalam Farenheit: ');readln(f);

c:=5/9*(f-32);

Writeln;

Writeln('Jadi Suhu Dalam Celcius Adalah: ',c:4:2);

end.

5. Program Menukar_Nilai;

Uses WinCrt;

var A,B:integer;

Begin

Writeln('Program Menukar Nilai A Menjadi B');

Writeln('=================================');

Writeln;

Write('Masukkan Nilai A: ');readln(A);

Write('Masukkan Nilai B: ');readln(B);

Writeln;

A:=A-B;

B:=B+A;

A:=B-A;

Writeln;

Writeln('Hasil A=',A,' B=',B);

End.