program display_1_0;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
i,j:integer;
procedure satu; {subprogram}
begin
writeln(' *');
writeln('**');
writeln(' *');
writeln(' *');
writeln('***');
end;
procedure nol; {subprogram}
begin
writeln('***');
writeln('* *');
writeln('* *');
writeln('* *');
writeln('***');
write;
end;
begin {program utama}
Writeln('Apa Hayoo.. Beda Writeln dgn for utk nampilin display??');
readln;
writeln('Tekan enter utk lihat display 1 dengan writeln');
readln;
satu;
writeln('Tekan enter utk lihat display 1 dengan for');
readln;
for i:=1 to 5 do
begin
for j:=1 to 3 do
if (i=5) or (j=2) or ((i=2) and (j=1))
then
write('*')
else
write(' ');
readln;
end;
readln;
writeln('Tekan enter utk lihat display 0 dengan writeln');
readln;
nol;
writeln('Tekan enter utk lihat display 0 dengan for');
readln;
for i:=1 to 5 do begin
for j:=1 to 3 do
if (i=1) or (i=5) or (j=1) or (j=3)
then
write('*')
else write(' ');
readln
end;
writeln('Udah tahu Bedanya..??');
readln;
writeln('Enter untuk Keluar Program');
readln
end.
Hasil Setelah di RUN(F9 pd Delphi):
Apa Hayoo.. Beda Writeln dgn for utk nampilin display??
Tekan enter utk lihat display 1 dengan writeln
*
**
*
*
***
Tekan enter utk lihat display 1 dengan for
*
**
*
*
***
Tekan enter utk lihat display 0 dengan writeln
***
* *
* *
* *
***
Tekan enter utk lihat display 0 dengan for
***
* *
* *
* *
***
Udah tahu Bedanya..??
Enter untuk Keluar Program
Nb: Buat temen2 yang penasaran bisa copy listing diatas dan jalanin di DELPHI bisa lebih terlihat jelas perbedaannya (cara tampilan dengan for Vs writeln (hoho...Selamat Mencoba..^^')
Langganan:
Posting Komentar (Atom)
Tidak ada komentar:
Posting Komentar