Belajar Programming Pascal :D #perdana version

ditulis oleh zul dalam : tutorial pascal

Mulai sekarang blog ini selain berfungsi sebagai tempat pembuangan unek-unek (ceilehh..) juga pengen jadi blog tutorial yang bisa nge bantu temen temen dalam hal programming Pascal :D ( dijamin tambah bingung ).

Untuk launching pertama gw mau ngasih script tetang mencari bilangan terkecil dan terbesar !
Let's watch it !!

bil : matrik;
max,min,i,n:integer;
begin
writeln(' __----***Menghitung Bilangan Terbesar dan Terkecil***----__');
writeln(' .: Bang Zul :. ');
writeln;
write('Masukkan banyak bilangan = ');readln(n);
writeln;
for i := 1 to n do
begin
write (' Masukkan bilangan ke-',i,' = ');
readln(bil[i]);
end;
max:= bil[i];
min:=bil[i];

for i := 1 to n do
begin
if bil[i] > max then
max:=bil[i]
else
if bil[i] < terbesar =" ',max);" terkecil =" ',min);">