Dasar Bahasa Pascal - Lesson 9

pemograman

dasar pascal - lesson 9


PERINTAH INPUT - OUTPUT
3. Perintah Output (write atau writeln )
Perintah digunakan untuk menyajikan data ke default output - key-board.
SYNTAX Write(x); atau writeln(x);
Contoh:
write('TES');
Perintah ini akan menampilkan teks string TES ke layar monitor pada posisi kursor
sebelum perintah write dilaksanakan. Setelah menyajikan ke layar,
kursor pindah ke ujung teks TES pada baris yang sama.
writeln('TES');
Perintah ini akan menampilkan teks TES ke layar monitor pada posisi kursor
sebelum perintah write dilaksanakan. Setelah menyajikan ke layar,
kursor pindah ke awal baris berikutnya.

program luas_PersegiPanjan_01;
{Program untuk menghitung luas bangun empat persegi panjang.
input dibaca dari keyboard dan output ditampilkan ke layar monitor }
uses wincrt;
var panjangPSP, lebarPSP, luasPSP : integer;
{ Mendeklarasikan variable panjang, lebar dan luas persegi panjang sebagai integer. }
BEGIN { Program MULAI }
{ Membaca dari data panjang dan lebar persegi panjang;
default input unit dan default format dengan memberikan pentunjuk ke pemakai tanpa ganti baris.
Setelah membaca data kursor pindah ke baris baru. }
write('Panjang = '); readln(panjangPSP);
write('Leabar = '); readln(lebarPSP); { Menghitung luas persegi panjang. }
luasPSP := panjangPSP * lebarPSP;
{ Menyajikan hasil hitungan luas persegi panjang ke unit default output dan default format.
Setelah menyajikan kursor pindah ke baris baru. }
writeln('Luas = ', luasPSP);
END. { Program SELESAI }

Catatan: Argumen perintah writeln boleh berupa ekspresi.
Contoh perintah penyajian writeln('Luas = ', luasPSP); bisa dikerjakan dengan perintah:
writeln('Luas = ', panjangPSP * lebarPSP);