๐ 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.