program ContohForward

program ContohForward;

uses crt;

procedure B(x: integer);forward;

procedure A(x: integer);
begin
if (x>0) then
begin
write('Pada saat x = ',x,', prosedur A dijalankan');
B(x-1);
end;
end;

procedure B(x: integer);
begin
if (x>0) then
begin
writeln('Pada saat x = ',x,', prosedur A dijalankan');
A(x-1);
end;
end;

begin
writeln('Memanggil prosedur A:');
A(5);
writeln;
writeln('Memanggil prosedur B:');
B(5);
end.

• Twitter
• Facebook
• Google
• Tumblr
• Pinterest

wildan_blitz

Artikel Terkait

• Pertambahan & PerkalianMatkul : Algoritma & Pemrograman 2ANama : Wildan Agissa RusadiNPM : 12109394Kelas : 1KA22Pertambahan & Perka
• PASCAL ~ GANJIL GENAPMatkul : Algoritma & Pemrograman 2ANama : Wildan Agissa RusadiNPM : 12109394Kelas : 1KA22PASCAL ~ GANJIL GENAPLIS
• Tugas Pascal 1 - 5FOR ... DOWNTO ... DOuses crt;vara: integer;beginclrscr;for a := 5 downto 1 dobeginwriteln (a);end;readln;end.=========
• JAWABAN LATIHAN KOMPUTER XII IPA 1Ini dia Jawaban Latihan Komputer XII IPA 1 yang dari Blognya Pak Sapta Jawaban bisa di download di link di bawah ini: