[share]Pascal : Bahasa Pemrograman pertama yang ku kenal

[Agitho_Ryuki]

Bahasa pemrograman yang pertama aku kenal... Turbo Pascal.
Yang mau mencoba bisa donlot disini (http://www.4shared.com/archive/xOwd653g/TrbPscl.html)
ya perlu perjuangan dikit lah mesti register/login dulu sebelum donlot...
extract dengn 7zip.

Bagi yang sudah pernah belajar mohon bagi-bagi ilmunya dunk...
::maap::::maap::






Suka ndak suka
ampas kopinya ya...

[etca]

enggak tuh, pertama kali justru basica. iseng2 belajar sendiri dari buku.
baru setelah itu beneran belajar apa itu proses looping, if then di pascal ;D

[E = mc²]

di jurusan saya, saya belajar Pascal entah buat apa (dan gak pernah dipake lg ilmunya ampe skrg)

Drpd pake Pascalnya sendiri, sy lbh suka pake devpascal. Berwarna dan lbh enak diliat drpd Pascal yg butek monoton.

soal ujian ajaib, nilai yg keluar ajaib. Dapet A *pamer*

[GiKu]

pertama kenal adalah BASICA yg ditanem di BIOS

[ul.malik]

Pascal itu yg gini bukan.

#include "stdio.h"
#include "cnio.h"

void main ()
{
getch();
}

:tanya:

[GiKu]

^
itu C

pascal yg sekarang juga pake yg model gitu untuk library-nya

[Agitho_Ryuki]

enggak tuh, pertama kali justru basica. iseng2 belajar sendiri dari buku.
baru setelah itu beneran belajar apa itu proses looping, if then di pascal ;D
Ampasku mana mbak yu...
malah thanks melulu...
::nangis::::nangis::

[opera]

begin
writeln('Hello world!');
end.

[Agitho_Ryuki]

di jurusan saya, saya belajar Pascal entah buat apa (dan gak pernah dipake lg ilmunya ampe skrg)

Drpd pake Pascalnya sendiri, sy lbh suka pake devpascal. Berwarna dan lbh enak diliat drpd Pascal yg butek monoton.

soal ujian ajaib, nilai yg keluar ajaib. Dapet A *pamer*
masa seh pascal butek??
371

[Parameswara Li]

Pertama dulu kenal BASIC. Ya kalau dulu memang ditanam di BIOS, tapi itu kan tidak bisa disave, jadi ya pakai BASIC/BASICA.com yang ada di disket DOS. Setelah itu pakai TURBO BASIC dan Microsoft BASIC.

Terus belajar PASCAL sendiri, pakai Turbo Pascal. Tapi jelas sudah lupa karena sudah lama sekali.

[etca]

kok dulu pascal ku yang default bekgroudnya model biru yaa..

[Agitho_Ryuki]

eh jangan-jangan pascal yang ini ya?
372

[GiKu]

yg backgroundnya biru itu pake embel2 TURBO (turbo pascal, turbo vision) - racikan borland

[etca]

eh jangan-jangan pascal yang ini ya?
372

ho oh yang itu.. .

[cha_n]

pertama kenal pemrograman bahasa C.
pascal itu bahasa pemrograman pertama anak2 matematika. kalau anak ilkom S1 pertama pake C. ilkom D3 basic (kalau di kampus ku)

[Agitho_Ryuki]

di windows 64 bit ndak jalan....
::elaugh::

---------- Post Merged at 01:58 PM ----------



pascal itu bahasa pemrograman pertama anak2 matematika.
aku anak matematika...
tapi kenal pertama pas SMA..
::hihi::::hihi::

[etca]

beda platform lah ;D

[ul.malik]

begin
writeln('Hello world!');
end.

ah iya, baru inget pascal kayak gini.
ini bahasa pemrograman pertama saya.
dulu pakenya turbo pascal.
::hohoho::

habis pascal baru belajar VB, pas d VB lancar, tapi pas Delphi ga ngemet :iamdead:

[Agitho_Ryuki]

jadi kalo pingin main-main mesti pake oracle virtual box...
::hihi::::hihi::

---------- Post Merged at 02:02 PM ----------


ah iya, baru inget pascal kayak gini.
ini bahasa pemrograman pertama saya.
dulu pakenya turbo pascal.
::hohoho::

habis pascal baru belajar VB, pas d VB lancar, tapi pas Delphi ga ngemet :iamdead:
padahal delphi itu bahasa object pascal mestinya sama...
::hihi::::hihi::

[GiKu]

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

silakan download dari freepascal.org - zonder mbayar


ini petikannya

Free Pascal (aka FPK Pascal) is a 32 and 64 bit professional Pascal compiler. It can target multiple processor architectures: Intel x86, AMD64/x86-64, PowerPC, PowerPC64, SPARC, and ARM. Supported operating systems include Linux, FreeBSD, Haiku, Mac OS X/iOS/Darwin, DOS, Win32, Win64, WinCE, OS/2, MorphOS, Nintendo GBA, Nintendo DS, and Nintendo Wii.

[etca]

loh delphi kan visualnya pascal,
kok ga ngemet?

ngemet apaan sih ul artinya? ;D

[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)

http://www.imgjoe.com/x/fpcide.jpg

http://www.imgjoe.com/x/fpcide01.jpg

http://www.imgjoe.com/x/fpcide02.jpg

http://www.imgjoe.com/x/fpcide03.jpg

[Agitho_Ryuki]

tampilannya kayak Turbo pascal 7 ya....
::hihi::::hihi::
terkesan kuno gitu...
donlot dulu ah....

[ul.malik]

loh delphi kan visualnya pascal,
kok ga ngemet?

ngemet apaan sih ul artinya? ;D

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

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...
::elaugh::

[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...
::elaugh::

[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...
::elaugh::
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..
::ungg::::ungg::


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
374

[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??

[Ronggolawe]

algoritma dasar prima:
begin-for i<---1 to n do
begin-for j<---1 to i do
z<--0
begin-if i mod j<---0 then z<--- z+1 else z<---z
endif
endfor
if z<--2 then write(i", ") else write()
end-if
end-for

+++++++

gw pikir, kalau dibuat pengulangan untuk prima
yang ditemukan sampai prima ke-n, soal tersebut
dapat dipecahkan.