Contoh Penggunaan “Read/ReadLn”

Kumpulan contoh program PASCAL menggunakan “Read/ReadLn”

EXP – B1

PROGRAM Baca1;

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

{ Contoh untuk menunjukan efek READ. }

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

USES Crt;

VAR

DataA, DataB, DataC, : Integer;

BEGIN

ClrScr;

WriteLn(‘Masukan tiga buah bilangan Integer’) ;

WriteLn(‘Pisahkan dengan spasi’) ;

Read(DataA, DataB) ;

WriteLn(‘DataA = ‘, DataA) ;

WriteLn(‘DataB = ‘, DataB) ;

WriteLn(‘Masukan sebuah bilangan Integer’) ;

ReadLn(DataC) ;

WriteLn(‘DataC = ‘, DataC) ;

END.

EXP – B2

PROGRAM Baca2;

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

{ contoh untuk menunjukan efek READLN. }

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

USES Crt;

BEGIN

ClrScr;

WriteLn(‘Masukan tiga buah bilangan Integer’) ;

WriteLn(‘Pisahkan dengan spasi’) ;

ReadLn(DataA, DataB) ;

WriteLn(‘DataA = ‘, DataA) ;

WriteLn(‘DataB = ‘, DataB) ;

WriteLn(‘Masukan sebuah bilangan Integer’) ;

ReadLn(DataC) ;

WriteLn(‘DataC = ‘, DataC) ;

END.