loh delphi kan visualnya pascal,
kok ga ngemet?
ngemet apaan sih ul artinya?
loh delphi kan visualnya pascal,
kok ga ngemet?
ngemet apaan sih ul artinya?
^
lha.. kan free/zonder mbayar/khratis
ini tampilannya (masih fresh - barusan gw capture)
tampilannya kayak Turbo pascal 7 ya....
terkesan kuno gitu...
donlot dulu ah....
Barangsawijine purwo marang kawitan, Bandar sejatining wujud. Yuk lakone.. BUTHO CAKIL sido NGEMUTTT PEN.....THUNG!!
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.
you can also find me here
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 ----------
gw malah ingat dosen jurusan sendiri waktu ujian
Algoritma dan Pemrograman ngasih soal terkait ku
liah Gelombang
GW Basic
Kalo ngak salah .. jadul banget soalnya...
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.
Lomba peluk2an di Citos: 30 November 2013
Lomba dorong2an di Candra Naya (dkt Glodok): 8 Desember 2013
awal dl jg pascal.
php
delphi
because, imagination is a part of reality-
eh. btw kok maen pascal lg? emg buat apa?
because, imagination is a part of reality-
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.
you can also find me here
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 )
you can also find me here
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...
Last edited by Agitho_Ryuki; 17-07-2012 at 08:01 PM.
tertantang juga... tapi ternyata cepet juga terselesaikan, tapi cuma kuat sampai n=6 kayaknya.... Pertumbuhan fungsinya sangat besar..
hasil runningprogram 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.
primfibo.jpg
Barangsawijine purwo marang kawitan, Bandar sejatining wujud. Yuk lakone.. BUTHO CAKIL sido NGEMUTTT PEN.....THUNG!!
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.
you can also find me here
Mecahnya gimana ya??
Barangsawijine purwo marang kawitan, Bandar sejatining wujud. Yuk lakone.. BUTHO CAKIL sido NGEMUTTT PEN.....THUNG!!