Contoh Penggunaan “Write/WriteLn”

Kumpulan contoh-contoh program PASCAL menggunakan “Write/WriteLn”

EXP – A1

PROGRAM Lat1;

BEGIN

WriteLn(‘Selamat Belajar’) ;

WriteLn(‘Turbo Pascal’) ;

END.

EXP – A2

PROGRAM Lat2;

{ ——————————————– }

{ Program : LAT2.PAS }

{ }

{ Program ini dimaksudkan sebagai bahan }

{ untuk berlatih pemrograman Pascal }

{ ——————————————- }

BEGIN (* Awal program utama *)

WriteLn(‘Selamat Belajar Turbo Pascal’) ;

END.

EXP – A3

PROGRAM Bel ;

{ ————————————- }

{ Contoh program yang menggunakan }

{ konstanta karakter Bel }

{ ————————————- }

BEGIN

WriteLn(^G) ;

END.

EXP – A4

PROGRAM Kontrol ;

{ —————————————————– }

{ Contoh untuk menunjukan string yang mengandung }

{ karakter kontrol dan yang tidak }

{ —————————————————– }

USES Crt;

BEGIN

WriteLn(‘Baris 1’#10#13’Baris 2’) ;

WriteLn(‘——–) ;

WriteLn(‘Baris 1#10#13Baris 2’) ;

END.

EXP – A5

PROGRAM Variabel ;

{ —————————————————– }

{ Contoh untuk menunjukan program yang mengandung }

{ variabel. }

{ —————————————————– }

USES Crt;

VAR

Jumlah : Integer; { Deklarasi variabel Jumlah }

BEGIN

Jumlah := 23; { Memberi nilai terhadap variabel }

WriteLn(Jumlah) ; { Menampilkan isi variabel }

END.

EXP – A6

PROGRAM TesJum;

{ —————————————————- }

{ Contoh untuk menunjukan hasil operasi penjumlahan }

{ untuk berbagai kemungkinan tiga operand }

{ ————————————————– }

USES Crt;

BEGIN

ClrScr;

WriteLn(‘4 + 2 = ‘, 4 + 2) ;

WriteLn(‘4.0 + 2 = ‘, 4.0 + 2) ;

WriteLn(‘4 + 2.0 = ‘, 4 + 2.0) ;

WriteLn(‘4.0 + 2.0 = ‘, 4.0 + 2.0) ;

END.

EXP – A7

PROGRAM TesKali ;

{ ————————————————— }

{ Contoh untuk menunjukan hasil operasi perkalian }

{ untuk berbagai kemungkinan tiga operand }

{ ————————————————— }

USES Crt;

BEGIN

ClrScr;

WriteLn(‘4 * 2 = ‘, 4 * 2) ;

WriteLn(‘4.0 * 2 = ‘, 4.0 * 2) ;

WriteLn(‘4 * 2.0 = ‘, 4 * 2.0) ;

WriteLn(‘4.0 * 2.0 = ‘, 4.0 * 2.0) ;

END.

EXP – A8

PROGRAM TesMod;

{ —————————————————– }

{ Contoh untuk menunjukan hasil operasi MOD }

{ untuk berbagai kemungkinan tiga operand. }

{ —————————————————– }

USES Crt;

BEGIN

ClrScr;

WriteLn(‘6 MOD 3 = ‘, 6 MOD 3) ;

WriteLn(‘7 MOD 3 = ‘, 7 MOD 3) ;

WriteLn(‘8 MOD 3 = ‘, 8 MOD 3) ;

WriteLn(‘9 MOD 3 = ‘, 9 MOD 3) ;

END.

EXP – A9

PROGRAM Priorita;

{ ———————————————– }

{ Contoh untuk menunjukan efek pemberian tanda }

{ kurung pada suatu operasi. }

{ ———————————————– }

USES Crt’

BEGIN

ClrScr;

WriteLn(1 + 2 * 3) ;

WriteLn( (1 + 2) * 3) ;

END.

EXP – A10

PROGRAM Over1;

{ ———————————————— }

{ Contoh untuk menunjukan terjadinya overlow. }

{ ———————————————— }

USES Crt;

VAR

TotalHarga : Integer;

HargaSatuan : Integer;

BEGIN

ClrScr;

HargaSatuan := 32767;

TotalHarga := 2 * HargaSatuan;

WriteLn(‘Total = ‘, TotalHarga) ;

END.

EXP – A11

PROGRAM Over2;

{ —————————————————- }

{ Contoh untuk menghilangkan terjadinya overlow. }

{ —————————————————- }

USES Crt;

VAR

TotalHarga : LongInt;

HargaSatuan : Integer;

BEGIN

ClrScr;

HargaSatuan := 32767;

TotalHarga := LongInt(2) * HargaSatuan;

WriteLn(‘Total = ‘, TotalHarga) ;

END.

EXP – A12

PROGRAM Dekla;

{ ————————————— }

{ Contoh deklarasi yang lengkap. }

{ ————————————— }

USES Crt;

LABEL

Selesai;

CONST

PHI = 3.14;

TYPE

BilanganNyata = Real ;

VAR

JariJari : BilanganNyata;

PROCEDURE HitungLuas(Radius : BilanganNyata) ;

BEGIN

ClrScr;

WriteLn(‘Luas = ‘, 0.5 * PHI * Radius *Radius) ;

END;

BEGIN { Program Utama }

JariJari := 10.5;

HitungLuas(JariJari) ;

GOTO Selesai;

WriteLn(‘Lho, kok saya dilewati’) ;

Selesai:

WriteLn(‘Selesai…’) ;

END.

EXP – A13

PROGRAM KonsTipe;

{ —————————-}

{ Contoh konstanta bertipe }

{ —————————-}

CONST

Kualitas : Char = ‘A’ ;

BEGIN

WriteLn(Kualitas) ;

Kualitas := ‘B’ ; {Konstanta bertipe dapat diubah}

WriteLn(Kualitas) ;

END.

EXP – A14

PROGRAM Writ1;

{ ————————————— }

{ Contoh untuk menunjukan efek WriteLn }

{ terhadap berbagai tipe data. }

{ ————————————— }

USES Crt;

VAR

Harga : Real;

Jumlah : Integer;

BEGIN

ClrScr; { Hapus Layar }

Harga := 500.25;

Jumlah := 10;

WriteLn(‘1234567890123456789012345678901234567890’) ;

WriteLn(Jumlah, Jumlah) ;

WriteLn(Jumlah, -Jumlah) ;

WriteLn(Harga, Harga) ;

WriteLn(Harga, -Harga) ;

WriteLn(‘Harga Total’, Harga * Jumlah) ;

END.

EXP – A15

PROGRAM Form1;

{ ——————————————————-}

{ Contoh pengaturan format tampilan pada WriteLn. }

{ ——————————————————-}

USES Crt;

VAR

Barang1,

Barang2,

Barang3 : STRING; { Variabel string }

Jum1,

Jum2,

Jum3 : Integer;

BEGIN

ClrScr; { Hapus Layar }

Barang1 := ‘Disket 3,5 inci merk FUMIRANCI’ ;

Barang2 := ‘Pembersih disket 3,5 inci’ ;

Barang3 := ‘CD-ROM Quad Speed’ ;

Jum1 := 100;

Jum2 := 5;

Jum3 := 16;

WriteLn(Barang1 : 40, Jum1 : 5) ;

WriteLn(Barang2 : 40, Jum2 : 5) ;

WriteLn(Barang3 : 40, Jum3 : 5) ;

END.

EXP – A16

PROGRAM Form2;

{ ——————————————————-}

{ Contoh pengaturan format tampilan pada WriteLn. }

{ ——————————————————-}

USES Crt;

CONST

SPASI = #32; { Karakter spasi }

VAR

Barang1,

Barang2,

Barang3 : STRING; { Variabel string }

Jum1,

Jum2,

Jum3 : Integer;

BEGIN

ClrScr; { Hapus Layar }

Barang1 := ‘Disket 3,5 inci merk FUMIRANCI’ ;

Barang2 := ‘Pembersih disket 3,5 inci’ ;

Barang3 := ‘CD-ROM Quad Speed’ ;

Jum1 := 100;

Jum2 := 5;

Jum3 := 16;

WriteLn(Barang1, SPASI: 40 – Length(Barang1) , Jum1 : 5) ;

WriteLn(Barang2, SPASI: 40 – Length(Barang2) , Jum2 : 5) ;

WriteLn(Barang3, SPASI: 40 – Length(Barang3) , Jum3 : 5) ;

END.

EXP – A17

PROGRAM Cetak1;

{ ———————————————– }

{ Contoh program untuk mengirimkan tulisan }

{ ke layar dan printer. }

{ ———————————————– }

USES Crt, Printer; { Unit Printer dilibatkan }

BEGIN

ClrScr;

WriteLn(‘Tulisan ini dikirim ke layar’) ;

WriteLn(Lat, ‘Tulisan ini dicetak ke Printer’) ;

WriteLn(Lat, ‘Begitu juga tulisan ini’) ;

END.

EXP – A18

PROGRAM Cetak2;

{ ———————————————– }

[ Contoh program untuk mengirimkan tulisan }

{ ke Printer dengan berbagai bentuk }

{ ———————————————– }

USES Crt, Printer; { Unit Printer dilibatkan }

CONST

AWAL_KECIL = #15;

AKHIR-KECIL = #18;

AWAL-LEBAR = #14;

AKHIR_MIRING = #27’4′ ;

AWAL-MIRING = #27’5′ ;

AWAL_GARIS = #27#45#1 ;

AKHIR_GARIS = #27#45#0 ;

AWAL_TEBAL = #27’E’ ;

AWAL_TEBAL = #27’F’ ;

BEGIN

ClrScr;

WriteLn(‘Siapkan Printer dan tekan Enter’) ;

ReadLn;

WriteLn(Lat, ‘Discetak normal’) ;

WriteLn(Lat, AWAL_KECIL, ‘Berukuran kecil’, AKHIR_KECIL) ;

WriteLn(Lat, AWAL_GARIS, ‘Digarisbawahi’, AKHIR_GARIS) ;

WriteLn(Lat, AWAL_TEBAL, ‘Tebal Lho’, AKHIR_TEBAL) ;

WriteLn(Lat, AWAL_TEBAL, ‘Besar Ya !’) ;

WriteLn(Lat, ‘Normal lagi ah’) ;

END.

EXP – A19

PROGRAM St1;

{ —————————————- }

{ Contoh pendeklarasian dan penugasan }

{ terhadap variabel string. }

{ —————————————- }

USES Crt;

TYPE

StrKata = STRING[6] ;

VAR

Kata : StrKata;

BEGIN

ClrScr;

Kata := ‘AWAN’ ;

WriteLn(Kata) ;

Kata := ‘KELABU’ ;

WriteLn(Kata) ;

Kata := ‘MENGGANTUNG’ ;

WriteLn(Kata) ;

ReadLn

END.

EXP – A20

PROGRAM St2;

{ —————————————– }

{ Contoh operasi penggabungan string. }

{ —————————————– }

USES Crt;

TYPE

StrKata = STRING[6] ;

StrKalimat + StrKalimat ;

BEGIN

ClrScr;

Kata1 := ‘LANGIT’ ;

Kata2 := ‘BIRU’ ;

Kalimat := Kata1 + ‘ BERWARNA ‘ + Kata2;

WriteLn(Kalimat) ;

ReadLn

END.

EXP – A21

PROGRAM St3;

{ —————————————- }

{ Contoh pengisian variabel string }

{ karakter demi karakter. }

{ —————————————- }

USES Crt;

TYPE

StrKata = STRING[6] ;

VAR

Kata : StrKata;

BEGIN

ClrScr;

Kata[1] := ‘A’ ;

Kata[2] := ‘W’;

Kata[3] := ‘A’ ;

Kata[4] := ‘N’ :

Kata[0] := #4; { — Panjang string — }

WriteLn(Kata) ;

ReadLn

END.

EXP – A22

PROGRAM St4;

{ ——————————————————- }

{ Contoh untuk menampilkan panjang berbagai string. }

{ ——————————————————- }

USES Crt;

TYPE

StrKata = STRING[6] ;

VAR

Kata : StrKata;

BEGIN

ClrScr;

Kata := ‘KALO’ ;

WriteLn(Ord(Kata[0])) ;

Kata := ‘KAWAN’ ;

WriteLn(Ord(Kata[0])) ;

ReadLn

END.