NAMA FILE : IANS.PAS

NAMA PROGRAM :

INPUT / DEKLARASI :

1. Type :

Pacar = record

Nama : string

Umur : byte

Telp : byte

2. Variabel :

p : array [1. . 2] of pacar

n : integer

3. Fungsi :

Uses crt = Clrscr,

LOGIKA PROGRAM :

¨ Uses crt;

Penjelasan :

Menghidupkan fungsi yaitu pada clrscr yang fungsinya membersihkan layar tampilan

¨ Type

Pacar = record

Nama : string ;

Umur : byte ;

Telp : byte ;

End;

Penjelasan :

Kita memberikan type type data dari beberapa data yang akan kita masukkan dan pacar merupakan sebuah record oleh karena itu dari record tersebut type datanya berbeda beda antara data yang satu dengan yang lainnya

¨ Var

P : array [1..2] of pacar ;

N : integer ;

Penjelasan :

Pada var ini kita mendeklarasikan sebuah variabel dimana pada p merupakan fungsi array dari record pacar artinya didalam array tersembunyi data record dan untuk n merupakan type datanya berupa integer

¨ Begin

Penjelasan :

Perintah untuk memulai suatu program

¨ Clrscr;

Penjelasan :

Perintah untuk membersihkan layar tampilan

¨ Writeln (' '); writeln (' ');

For n := 1 to 2 do begin;

Writeln (' input orang ke- ',n,':');

Write (''nama :'); readln (p[n].nama);

Write (''umur :'); readln (p[n].umur);

Write (''telp :'); readln (p[n].telp);

End;

Penjelasan :

Pada listing program diatas menggunakan perintah looping yang didalamnya teredapat data record juga array disana dijelaskan bahwa kita akan memasukkan dua data yang sama sebagai data array namun isinya type datanya berbeda beda yang disebut juga data record.

¨ Writeln (' ');

Writeln (' DATA SAYA PERNAH BERPACARAN ');

Penjelasan :

Program mencetak kata kata sekaligus memberikan jarak satu baris karena diatasnya mencetak kata yang kosong jadi berupa baris kosong saja

¨ For n := 1 to 2 do begin;

Writeln (' input orang ke- ',n,':');

Writeln (''nama : (p[n].nama);

Writeln (''umur : (p[n].umur);

Writeln (''telp : (p[n].telp);

End;

Penjelasan :

Kita mencetak dari data yang kita masukkan sebelumnya atau dari mengisikan data sebelumnya secara langsung, disana dapat dijelaskan pula pencetakkan itu juga karena ada perintah looping jadi semua data yang kita masukkan sebelumnya dapat tercetak kembali

¨ Writeln (' GIMANA MASIH MAU GAK PACARAN MA AKU……..!!!');

Writeln (' KALAU MAU, SAYA MASUKIN DATA KE-3 Ni..e..e..h…!! ');

Readln;

Penjelasan :

Program mencetak kata kata yang tertulis dan sekaligus mengaktivkan program agar pada saat dijalankan program bisa dijalankan

¨ End.

Penjelasan :

Perintah untuk mengakhiri suatu program

LISTING PROGRAM

uses crt;

type

pacar = record

nama:string;

umur:byte;

telp:byte;

end;

var

p : array [1..2] of pacar;

n: integer;

begin

clrscr;

Writeln ('');writeln ('');

for n := 1 to 2 do begin;

writeln (' Input orang ke- ',n,':');

write (' Nama :');readln(p[n].nama);

write (' Umur :');readln(p[n].umur);

write (' Telp :');readln(p[n].telp);

end;

Writeln ('');

Writeln (' DATA SAYA PERNAH BERPACARAN ');

for n := 1 to 2 do begin;

writeln (' Input orang ke-',n);

writeln (' Nama :',p[n].nama);

writeln (' Umur :',p[n].umur);

writeln (' Telp :',p[n].telp);

end;

Writeln (' GIMANA MASIH MAU GAK PACARAN MA AKU......!!!');

writeln (' KALAU MAU SAYA MASUKIN DATA KE-3 Ni..e...e...h...!!!');

readln;

end.