Sekarang saya mau ngasih contoh syntax pascal yang ARRAY :D check this one out !!!


PROGRAM TABELMATEMATIKA;
USES WINCRT;
VARI,N:INTEGER;
X,Y:ARRAY[1..10] OF INTEGER;
TAMBAH,KALI,KURANG,BAGI:REAL;
BEGINWRITE('JUMLAH DATA ?');READLN(N);
FOR I:=1 TO N DO
BEGIN
WRITELN('INPUT DATA KE-',I);
WRITELN('___________________');
WRITE('NILAI X : ');READLN(X[I]);
WRITE('NILAI Y : ');READLN(Y[I]);
END;
WRITELN('         TABEL OPERASI MATEMATIKA        ');
WRITELN('_________________________________________');
WRITELN('NO.  X    Y     X+Y    X*Y    X-Y    X/Y '); WRITELN('_________________________________________');
FOR I:=1 TO N DO
BEGIN
TAMBAH:=X[I]+Y[I];
KALI:=X[I]*Y[I];
KURANG:=X[I]-Y[I];
BAGI:=X[I]/Y[I];
WRITELN(I,'    ',X[I],'    ',Y[I],' ',TAMBAH:6:0,' ',KALI:6:0, ' ',KURANG:6:0,' ',BAGI:6:0);
END;
WRITELN('_________________________________________');
END.


Contoh yang kedua :


program mahasiswa;
uses wincrt;
var
I,N:integer;
NIM:array[1..10] of string;
NAMA:array[1..10] of string;
TUGAS,QUIS,UTS,UAS:array[1..10] of integer;
NA:real;
GRADE:char;
begin
write('Jumlah Data ? ');readln(N);
for I:=1 to N do
begin
write('Input data ke-',I);
write('___________________________');
write('Nama Mahasiswa : ');Readln(nama[i]);
write('NIM Mahasiswa  : ');Readln(NIM[i]);
write('TUGAS          : ');readln(TUGAS[i]);
write('QUIZ           : ');readln(QUIS[i]);
write('UTS            : ');readln(UTS[i]);
write('UAS            : ');readln(UAS[i]);
end;
clrscr;
writeln('DAFTAR NILAI MAHASISWA');
writeln('>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>');
writeln('No.  NIM   NAMA    TUGAS QUIS UTS UAS NA GRADE');
writeln('>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>');
for I:= 1 to N do
begin
NA:=0.2*tugas[i]+0.15*quis[i]+0.25*uts[i]+0.4*uas[i];
if (na>=86) and (na>=100) then
grade:='A'
else if (na>=71) and (na>=85) then
grade:='B'
else if (na>=61) and (na>=70) then
grade:='C'
else if (na>=46) and (na>=60) then
grade:='D'
else if (na>=17) and (na>=45) then
grade:='E'
end;
writeln(I,' ',NIM[i],' ',NAMA[i],' ',TUGAS[i],' ',QUIS[i],' ',UTS[i],' ',UAS[i]);
end.


Semoga bermanfaat :)

|

Saya mau bagi bagi syntax pemrograman Pascal nih :D




program pembelianbarang; 
uses wincrt; 
var 
nb,bonus:string[30]; 
kode:byte; 
jb:integer; 
total,bayar,hs,diskon:real; 
begin 
write('masukkan kode barang : ');readln(kode); 
write('masukkan jumlah pembelian : ');readln(jb); 
if kode=01 then 
begin 
writeln('nama barang : Printer'); 
hs:=500000; 
end 
else if kode=02 then 
begin 
writeln('nama barang : Monitor'); 
hs:=750000; 
end 
else if (kode=03) then 
begin 
writeln('nama barang : Speaker'); 
hs:=300000; 
end 
else if (kode=04) then 
begin 
writeln('nama barang : Mouse'); 
hs:=100000; 
end 
else if(kode=05) then 
begin 
writeln('nama barang : flashdisk'); 
hs:=120000; 
end; 
total:=jb*hs; 
begin 
if (total=1000000) then 
begin 
diskon:=2.5/100*total; 
bonus:=('cover'); 
end 
else if (total>1000000) and (total5000000 then 
begin 
diskon:=10/100*total; 
bonus:=('flashdisk'); 
end; 
bayar:=total-diskon; 
writeln('Total Belanjaan : Rp ',total:10:2); 
writeln('Diskon : Rp ',diskon:10:2); 
writeln('...........................................................-'); 
writeln('Total Pembayaran : Rp ',bayar:10:2); 
writeln('Bonus : ',bonus); 
end; 
writeln('...................TERIMAKASIH SUDAH BERBELANJA..............');

Semoga Bermanfaat untuk kawan-kawan :)

|