INI PROGRAM PROCEDURE
Uses winCrt;
Procedure CetakAngka1Sd(N: Byte);
Var
I: Byte; {Deklarasi Lokal}
Begin
For I:=1 To N Do
writeln(I);
End;
{Program Utama}
Begin
{Bersihkan layar}
clrscr;
{Panggil Prosedur Cetak 1 s.d 20}
CetakAngka1SD(20);
{Panggilan Lagi Prosedur Cetak Angka 1 s.d 100}
CetakAngka1SD(100);
Readln; {Tunggu Penekanan Tombol Enter}
End.
Uses winCrt;
Procedure CetakAngka1Sd(N: Byte);
Var
I: Byte; {Deklarasi Lokal}
Begin
For I:=1 To N Do
writeln(I);
End;
{Program Utama}
Begin
{Bersihkan layar}
clrscr;
{Panggil Prosedur Cetak 1 s.d 20}
CetakAngka1SD(20);
{Panggilan Lagi Prosedur Cetak Angka 1 s.d 100}
CetakAngka1SD(100);
Readln; {Tunggu Penekanan Tombol Enter}
End.
Anda baru saja membaca artikel yang berkategori dengan judul PROCEDURE. Anda bisa bookmark halaman ini dengan URL https://alifrusdiana.blogspot.com/2014/01/program-procedure-uses-wincrt-procedure.html. Terima kasih!
Ditulis oleh:
Unknown - Rabu, 22 Januari 2014
Belum ada komentar untuk "PROCEDURE"
Posting Komentar