fbpx

Algoritma dan Pemrogaman : Contoh Program Rekursif Bahasa Pascal

๐Ÿ“‹ Daftar Isi

Program Konversi Nilai Desimal Ke Biner Dengan Menggunakan Rekursi

program penugasan121;
uses crt;
var n:integer;
    lagi:char;

    procedure biner(a:integer);
    begin
        if ((a mod 2 = 0) and (a<>0)) then begin
            biner(a div 2);
            write('0');
        end
        else if (a<>0) then begin
            biner(a div 2);
            write('1');
        end;
    end;

    begin
        repeat
            clrscr;
            writeln('Konversi Nilai Desimal Ke Biner Dengan Rekursif');
            writeln('-----------------------------------------------');
            writeln;
            write('Masukkan bilangan bulat : ');readln(n);
            write('Hasil konversi ke biner : ');biner(n);
            writeln;
            write('Apakah ingin memerikan konversi untuk bilangan lainnya? (Y/T) = ');readln(lagi);
        until (lagi='T') or (lagi='t');
        writeln('Terima kasih :)');
    end.

Contoh output :


Program Segitiga Pascal Dengan Rekursi

program penugasan122;
uses crt;
var i,j,n: integer;
    lagi : char;

    function elemen(b,k : integer) : integer;
    begin
        If (k=1) or (k=b) then
            elemen:=1
        else
        begin
            elemen:=elemen(b-1,k-1)+elemen(b-1,k);
        end;
    end;
    
begin
clrscr;
    repeat
        write('Masukkan jumlah baris Segitiga Pascal : ');readln(n);
        if n=0 then
            begin
                writeln('Hasil tidak dapat diproses. Enter untuk kembali ke program');
                writeln;
            end
        else
            for i:=1 to n do
            begin
                gotoxy(40-3*i,whereY);
                for j:=1 TO i DO
                write(elemen(i,j):6);
                writeln;
            end;
        writeln;
        write('Apakah ingin membuat Segitiga Pascal lagi ? (Y/T)');readln(lagi);
    until (lagi='T') or (lagi='t');
    writeln('Terima kasih :)');
readkey;
end.

Contoh output:


Materi Lengkap

Silakan baca juga beberapa artikel menarik kami tentang Rekursif, daftar lengkapnya adalah sebagai berikut.


Tonton juga video pilihan dari kami berikut ini

Bagikan ke teman-teman Anda

Contact Us

How to whitelist website on AdBlocker?

How to whitelist website on AdBlocker?

  1. 1 Click on the AdBlock Plus icon on the top right corner of your browser
  2. 2 Click on "Enabled on this site" from the AdBlock Plus option
  3. 3 Refresh the page and start browsing the site
error: Content is protected !!