Mesran

Hanya ingin berbagi kebaikan dan mendapatkan kebaikan yang lain.

Statement WITH

Digunakan untuk mengurangi penulisan yang berulang-ulang untuk nama recordnya. Dengan menggunakan statement WITH hanya cukup sekali saja menyebutkan nama recordnya.

Syntax  :

WITH nmRecord DO
BEGIN
{langsung dimasukkan/dicetak fieldnya}
END ;

Contoh penerapannya :

TYPE
Mahasiswa = RECORD
NIM    :  String[8]     ;
Nama   :  String[20]     ;
Umur   :  Byte         ;
END;

VAR
RecMhs : Mahasiswa        ;

BEGIN
With RecMhs Do
Begin
{Bagian Input Data}
Write(‘NIM Anda    :’); readln(NIM ) ;
Write(‘Nama    :’); readln(Nama ) ;
Write(‘Umur    :’); readln(Umur ) ;

{Bagian Menampilkan Data yang telah diinputkan  }
Writeln(‘NIM Anda    :’ , NIM ) ;
Writeln(‘Nama        :’ , Nama ) ;
Writeln(‘Umur        :’ , Umur ) ;
End;

END.

Bagaimana apakah anda paham dengan penerapan WITH ?

Advertisements

Filed under: Pemrograman Pascal,

Terima kasih telah memberikan komentar anda.

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

Archives Per Tahun

%d bloggers like this: