DasarDasar Pemrograman Rekursi Rekursi yaitu prosedur atau fungsi

Dasar-Dasar Pemrograman Rekursi

… Rekursi yaitu prosedur atau fungsi yang memanggil dirinya sendiri. Contoh: procedure Z; begin { statement } Z; end; Dipanggil Kembali

Contoh 1 uses crt; var i: integer; procedure pro; begin writeln('Hallo'); i: = i+1; if i<10 then pro; end; begin clrscr; i: = 1; pro; readkey; end. procedure pro Pemanggilan pro

Output Kenapa 9 kali?

… uses crt; procedure rekursi(A: integer); begin if A < 10 then begin writeln('Pascal'); A: =A+1; rekursi(A); end; var x: integer; begin clrscr; x: =3; rekursi(x); readln; end.

… procedure rekursi; begin writeln('Pascal'); rekursi; end; begin rekursi; readln; end.

Rekursi untuk menghitung nilai faktorial 1 jika m = 0 1 x 2 x 3 x. . . x m jika m > 0 Secara rekursi program di atas dapat dijalankan sebagai berikut: ▪ 0! = 1 ▪ Bila m > 0, m! = m x (m-1)!

… uses crt; Var HASIL : Integer; FUNCTION Faktorial (M : Integer) : Long. Int; BEGIN IF M = 0 THEN Faktorial : = 1 ELSE Faktorial : = M * Faktorial(M-1); END; begin clrscr; HASIL : = Faktorial (4); writeln('Hasil dari 4! Adalah=', HASIL); readkey; end.

hasil 4!= 4 x 3 x 2 x 1 = 24

Proses-nya

Tugas Perbaikan TTS Buatlah program rekursi untuk menampilkan suatu deret bilangan bulat N dari 0 s/d 10. Buat dalam program untuk: 1 jika y=0 f(x, y) = x * f(x, y-1) jika y>0

Ketentuan Dikerjakan individu dan dikumpul dalam bentuk. pdf yang berisi kode program, penjelasan kode program (rekursi) dan print screen output. Dikumpulkan paling lambat hari Sabtu 30 November 2013 pukul 21. 00 WIB ke email ramos. somya@gmail. com Subject email: Remidi TTS DDP Nama file: Remidi DDP NIM. pdf

Tugas Akhir (Pengganti TAS) Dikerjakan secara kelompok max 2 mahasiswa. Buatlah rangkuman pemrograman menggunakan Pascal yang di dalamnya terdapat semua materi yang telah diajarkan. Buat sebagus mungkin dengan konsep dan contoh program sederhana terkait dengan materi tersebut. Sertakan daftar pustaka jika menggambil sumber dari buku, internet atau sumber lainnya. Dikumpulkan paling lambat hari Jumat, 6 Desember 2013 pukul 21. 00 WIB ke email: ramos. somya@gmail. com Subject email: TGS AKHIR DDP 2013 Nama file: TA_DDP_NIM 1_NIM 2. pdf

Terima Kasih atas Kebersamaannya Selama 1 Semester