Latihan 6.14 Menggunakan Kata kunci forward (bagian 2)

Koding:

program ContohForward2;

uses
crt;

procedure Tulis(var N: integer); forward;

procedure TurunkanNilai (var indeks: integer);
begin
indeks := indeks -1;
if indeks > 0 then begin
Tulis(indeks);
end;
end;

procedure Tulis(var N: integer);
begin
writeln(N);
TurunkanNilai(N);
end;

var
i : integer;
begin
i := 5;
writeln('Menggunakan prosedur TurunkanNilai');
TurunkanNilai(i);
writeln;

i := 5;
writeln('Menggunakan prosedur Tulis');
Tulis(i);
readln;
end.


Output :

• Twitter
• Facebook
• Google
• Tumblr
• Pinterest

wildan_blitz

Artikel Terkait

• 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:
• Pertambahan & PerkalianMatkul : Algoritma & Pemrograman 2ANama : Wildan Agissa RusadiNPM : 12109394Kelas : 1KA22Pertambahan & Perka
• PASCAL ~ GANJIL GENAPMatkul : Algoritma & Pemrograman 2ANama : Wildan Agissa RusadiNPM : 12109394Kelas : 1KA22PASCAL ~ GANJIL GENAPLIS
• program ContohForwardprogram ContohForward;uses crt;procedure B(x: integer);forward;procedure A(x: integer);begin if (x>0) then begin w