[share]Pascal : Bahasa Pemrograman pertama yang ku kenal

[etca]

loh delphi kan visualnya pascal,
kok ga ngemet?

ngemet apaan sih ul artinya?

[Agitho_Ryuki]

gw pake free pascal IDE
untuk bikin socket programming, silakan ditambahkan library IP/networknya

silakan download dari freepascal.org - zonder mbayar

Mbayar mbah?

[GiKu]

^
lha.. kan free/zonder mbayar/khratis

ini tampilannya (masih fresh - barusan gw capture)

[Agitho_Ryuki]

tampilannya kayak Turbo pascal 7 ya....

terkesan kuno gitu...
donlot dulu ah....

[ul.malik]

loh delphi kan visualnya pascal,
kok ga ngemet?

ngemet apaan sih ul artinya?

entah, Delphi terlihat bertele" menurut q.
kalo VB to the point.

ga ngemet = ga ngerti ca.

[E = mc²]

masa seh pascal butek??

maksudnya kalo ngerunnya pake Turbo Pascal (yg warna biru) butek banget ga ada variasi. Kalo pake devPascal yg putih kan lebih enak diliat.

Tapi dosen saya dulu jail bgt. Soal ujiannya cuma satu, buat program buat nyari bilangan prima ke-n dari deret Fibonacci (n=1...100). Ujiannya 4 jam, tp cukup bikin muntah darah karena pas kuliah gak diterangin sama sekali ttg cara bikin algoritma deret Fibonacci. Maklum dosen beda jurusan, suka sentimen.

[Ronggolawe]

program segitiga;
uses crt;
var
x: array[1..4,1..7] of integer;
i,j: integer;
a,b,c: integer;
begin
crlscr;
a:=4;
b:=4;
c:=4;
for i:=1 to 4 do
begin
for j:=a to b do
gotoxy(j,i); write('x');
end;
a:=(c-i);
b:=(c+i);
writeln;
readln;
end;
end.

---------- Post Merged at 04:04 PM ----------

maksudnya kalo ngerunnya pake Turbo Pascal (yg warna biru) butek banget ga ada variasi. Kalo pake devPascal yg putih kan lebih enak diliat.

Tapi dosen saya dulu jail bgt. Soal ujiannya cuma satu, buat program buat nyari bilangan prima ke-n dari deret Fibonacci (n=1...100). Ujiannya 4 jam, tp cukup bikin muntah darah karena pas kuliah gak diterangin sama sekali ttg cara bikin algoritma deret Fibonacci. Maklum dosen beda jurusan, suka sentimen.

gw malah ingat dosen jurusan sendiri waktu ujian
Algoritma dan Pemrograman ngasih soal terkait ku
liah Gelombang

[RAP]

GW Basic
Kalo ngak salah .. jadul banget soalnya...

[kandalf]

Agitho belajar pascal pasti di kampus.
UGM dulu juga pakai Pascal.

Aku sendiri belajar bahasa pemrograman pertama pakai QBasic, otodidak.
Tapi sekarang lupa syntax-nya.

trus belajar Batch File-nya MS DOS.

[beastmen85]

awal dl jg pascal.
php
delphi

[beastmen85]

eh. btw kok maen pascal lg? emg buat apa?

[Agitho_Ryuki]

Agitho belajar pascal pasti di kampus.
UGM dulu juga pakai Pascal.

Aku sendiri belajar bahasa pemrograman pertama pakai QBasic, otodidak.
Tapi sekarang lupa syntax-nya.

trus belajar Batch File-nya MS DOS.

kenal pascal sejak SMA um...

[GiKu]

eh. btw kok maen pascal lg? emg buat apa?

masih banyak yg mempertahankan coding dengan bahasa ini
dan sepertinya berkembang

jadi daripada belajar C, lebih baik nerusin pake pascal karena sekarang udah multiplatform dan mendukung socket programming

[E = mc²]

saya juga belajar Pascal sejak SMA. Tapi masih sederhana, paling banter ngindex tabel. Dan materi kuliah juga sampai sana sih, maklum cuma komplemen sks dr jurusan luar.

Tapi entah kenapa soal ujian yg keluar malah bikin program algoritma bilangan prima Fibonacci yg bikin muntah. Anak2 yg nyerah ada yg balikin jawabannya jam pertama, separuh durasi, dll. Bukan karena udah bisa, tp frustasi nyerah. Hanya beberapa yg bertahan sampai 4 jam.

[Agitho_Ryuki]

saya juga belajar Pascal sejak SMA. Tapi masih sederhana, paling banter ngindex tabel. Dan materi kuliah juga sampai sana sih, maklum cuma komplemen sks dr jurusan luar.

Tapi entah kenapa soal ujian yg keluar malah bikin program algoritma bilangan prima Fibonacci yg bikin muntah. Anak2 yg nyerah ada yg balikin jawabannya jam pertama, separuh durasi, dll. Bukan karena udah bisa, tp frustasi nyerah. Hanya beberapa yg bertahan sampai 4 jam.

buat function fibonaccinya dan detector bilangan prima dulu...

[E = mc²]

buat detector bilangan prima sih agak mending, ada pencerahan dikit. Nah itu deret Fibonacci yg jelimet, karena kan kalo disuruh nentuin Fibonacci ke-n, algoritmanya harus ngitung dr awal. saya sampai bikin menu function banyak hanya utk bikin deret Fibonacci doang biar di bagan algoritma utama gak kepanjangan.

Dan saya makin sebel dan keki pas saya tanya ke anak informatika sendiri jawabannya, dia jawab gak bisa (padahal IPK dia 3.8x )

[Agitho_Ryuki]

tanya tentang algoritma fibonacci ke anak informatika kayaknya memang kurang pas... mestinya ke anak matematika...

eh iya barisan fibonacci bisa dicari rumusnya loh... pakai relasi rekursif. buat persamaan karakteristiknya dst...

[Agitho_Ryuki]

buat detector bilangan prima sih agak mending, ada pencerahan dikit. Nah itu deret Fibonacci yg jelimet, karena kan kalo disuruh nentuin Fibonacci ke-n, algoritmanya harus ngitung dr awal. saya sampai bikin menu function banyak hanya utk bikin deret Fibonacci doang biar di bagan algoritma utama gak kepanjangan.

tertantang juga... tapi ternyata cepet juga terselesaikan, tapi cuma kuat sampai n=6 kayaknya.... Pertumbuhan fungsinya sangat besar..

program fibonacci3;
uses
wincrt;
var
i,k,n,fiboprima:longint;

function fibo(x:integer):longint;
var a: array[1..105] of integer;
i:integer;
begin
a[1]:=0; a[2]:=1;
if x=1 then fibo:=0 else
if x=2 then fibo:=1 else
for i:= 3 to x do a[i]:=a[i-1]+a[i-2];
fibo:=a[i];
end;

function cekprima(x:integer):longint;
var a,i:integer;
begin
a:=1;
if (x=1) or (x=0) then a:=0 else
if x=2 then a:=1 else
begin
for i:= 3 to x-1 do
if (x mod i = 0) then a:=0;
end;
cekprima:=a;
end;

begin
write('masukkan bilangan ; ');readln(n);
i:=0;
k:=0;
repeat
i:=i+1;
if cekprima(fibo(i))=1 then
begin
k:=k+1;
fiboprima:=fibo(i);
end;
until k=n;
writeln('bilangan prima ke ',n,' pada barisan fibonaci = ',fiboprima);
readln;
end.

hasil running
primfibo.jpg

[E = mc²]

itu dia jebakan batman-nya. Deret Fibonacci kan hampir lipat ganda tiap suku berikutnya. Untuk sampai prima ke-100 jumlahnya udah ujubileh. Makanya harus dipecah-pecah.

[Agitho_Ryuki]

Mecahnya gimana ya??