Record

uses wincrt;
type
RecBarang=Record
Nama:string[15];
Kualitas:Char;
Harga:String;
end;
var
Barang:RecBarang;
begin
clrscr;
barang.nama:='Printer';
barang.kualitas:='A';
barang.Harga:='1000000';
writeln('Nama barang     :',Barang.nama);
writeln('Kualitas barang :',Barang.kualitas);
writeln('Harga barang    :',Barang.Harga);
end.

Hasil:

Array

Uses wincrt;
Const
max=5;
Type
Lagu=array[1..max] of string[10];
Var
JnsLg :lagu;
i:integer;
begin
For i:=1 to max do
JnsLg[1]:='POP';
JnsLg[2]:='KRONCONG';
JnsLg[3]:='ROCK';
JnsLg[4]:='JAZZ';
JnsLg[5]:='COUNTRY';
For i:=1 to max do
writeln(i,'. ',JnsLg[i]);
end.


Hasilnya :

Program Input

Ini sebenernya tugas q waktu smt 2 dulu, dari pada blog ku kosong mlompong

ya udah deh tak posting aja. hehe.. sp tau ada yang butuh. tul gak? he….

——————————————————————————————-
Uses wincrt;
Var
Nama,Nim,Alamat:string;
Begin
Write('Masukkan Nama : '); readln(Nama);
Write('Masukkan Nim : '); readln(Nim);
Write('Masukkan Alamat : '); readln(Alamat);
{Menampilkan hasil input data}
Writeln;

Writeln ('Hasil input data');
Writeln ('Nama : ',Nama);
Writeln ('Nim : ',Nim);
Writeln ('Alamat : ',Alamat);

end.