Kamis, 27 Desember 2007

Listing Program Display For Vs Writeln...^^

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..^^')

Tidak ada komentar: