[ask] Komputer pascal

[Hintaro]

[ASK] Bantuannya plzz programming.. pascal.
ne saya bingung dapat soal yang gni.. dah di coba di pascal erroorr...
(di kata interger)
mohon bantuan

soalnnyua gini

function apaini(a: integer; b: integer): integer;
var x,y,r: interger;
begin
x := a;
y := b;
while (y <> 0) do
begin
r := x mod y;
x := y;
y := r;
end;
apaini:= x;
end;



pertannyaannya

jika fungsi tsb dipanggil dengan "writeln (apaini(414,662));" berapakah yang dicetaknnya?
a. 1 b.8 c. 26 d. 414 e. 14

nah... tuh gmn penyelesaiannya?
Edit/Delete Message Reply With Quote Multi-Quote This Message Quick reply to this message

 

[locke cole]

interger itu apa yah br dgr saya ada type data ky gitu..
kerjain dewe lahh... gampang kok
masukin nilainya ditrace pelan2..
klo msh g ngerti juga trace aja pake compilernya
temen2 indoforum biarkan dy kerjain sdr yah

 

[coolguyz]

@TS
jelas aj error kk itu bukan syntac buat pascal.
Tapi itungannya bisa dikerjain manual koq.
Coba kamu masukin angkanya satu-satu, pasti ktemu.

 

[greenchonk]

variable a & b dideklarasikan make' integer tp koq di beri nilai char? mungkin disitu masalahnya kali ya
ni da website baru buat download tutorial kali ja bisa bantu
www.greencomputer.co.cc

 

[Gray]

^
eh itu kan sintaksis pascal cuman ada salah tulis

@TS
penyebab eror:
1. lo nulis variabelnya "interger" yang bener itu "integer".
2. pada baris r := x mod y: harusnya diakhiri titik koma ' ; ' BUKAN titik dua ' : ' jadi yang bener tuh r:= x mod y;

kodenya dah wa coba dan ga ada masalah, kalo hasilnya 2 dapet GRP ga nih? hehehehe =D

 

[hszeeks]

itu pseudopascal lagi..
tu soal dari olimpiade tahun lalu ya..
hehe...
kan uda dijelasin di soal kalo itu sintaksnya mirip2 pascal..
btw itu ga ada jawabannya, bener2 nyebelin tahun lalu hitung setengah mati tu soal..

blajar sama2 yuk! aku juga ikut tahun ini..
kalo ga salah april 7-10 seleksi kota..
met berjuang!!

 

[Gray]

^
wa kadang masih agak bingung antara pseudo & sintaksis. Wa ga begitu banyak tau kalo udah urusannya terlalu teoritis apalagi kalo dah muncul banyak jargon2 macem pseudo & syntax. Wa banyaknya blajar sendiri pelajarin kode orang & lebih suka baca buku/artikel yg praktek daripada teoritis. Jadinya wa cuman coba bikin tuh fungsi terus panggil tuh fungsi dengan writeln di blok utama program.

 

[Hintaro]

tq om gray...

dah di ubah nuh..

kalo secara manual logikannya gmn?? cara hitung??

nah.. pas pembuatan ne... g bisa juga coba?!

>_<

saya pake program ini..
MIDletPascal

 

[legionsa]

duh apaan tuh gw lom nyentuh gituan...

 

[Gray]

@hintaro
maksudnya udah diperbaiki kesalahannya masih tetep juga ga bisa berfungsi tuh kode program? wa lom pernah pake MIDletPascal, tapi intinya kode program yg ditulis pasti jadinya gini:

function apaini(a: integer; b: integer): integer;
var x,y,r: integer;
begin
x := a;
y := b;
while (y <> 0) do
begin
r := x mod y;
x := y;
y := r;
end;
apaini:= x;
end;

begin
writeln (apaini(414,662));
end.

nah nilai hasilnya 2, jadi ga ada satu pun nilai yg bener dari pilihan jawaban yg lo tulis. terus lo masih ada tuh yg diketik "interger" (di bawah function) yg bener kan "integer". Wa udah coba jalanin kodenya beberapa kali hasilnya tetep 2 di compiler yg wa pake (Borland Delphi 7.0). Maksudnya manual logika tuh gimana? apa maksudnya lo butuh penjelasan cara kerja kode program ini gitu?

 

[Hintaro]

maksdunnya di hitung secara manual..

carannya gmn? bisa tak??

 

[locke cole]

zzzzzzzzz
nih anak kyna sengaja / males ngitung yah /ag
masukin a = 414, b = 662
trus luw trace dech pelan2
ini sih msh blon ada apa2nya
dulu waktu gw ikut seleksi nasional dibandung pengen nangis liat coding 3 halaman (1 hal di bagi 2 kiri,kanan) ud gitu, ud jauh2 eh g taunya di recursive ><

 

[Gray]

^
wah hebat lo ^ ^ wa lom pernah sama sekali ikut yg gituan. Yah skill kompi juga pas2an sih hehehe blajar juga rada angin2an. Keknya seru tuh coding ampe gitu2an hehehe. Wa sih kalo mempelajari coding ampe 20-30 halaman dah sering cuman keknya ga rumit kayak soal2 buat olimpiade kompi. Lagian juga udah ada bagan alur programnya jadi gampang buat nge-trace ama mempelajari cara kerjanya. btw, keknya sih bisa jadi ni anak males itung ato emang masih baru bgt ama programming makanya wa mo bantu juga. Minimal ada niat coba2 gitu. Soalnya wa juga pernah ngerasain awal2 blajar programming tuh ruwetnya gmn.

@hintaro
maksudnya dihitung manual tuh lo mo ubah tuh kode jadi ga pake function gitu? jadi lo ga masukin nilai ke function tapi langsung ke variabel trus lo bikin perintah buat itung2annya?

 

[coolguyz]

@TS
Tinggal dimasuk2in aj angka nya ke dalam program, trus di trace satu2 dech...
Ayoo jangan males ya.... Banyak2 latihan.....

---Closed---