cari karakter

seringkali saya bingung nyari karakter ascii,,, daripada susah-susah, mending nyari sampel code dari pascalnya......
progrmnya simpel aja. (soale cuma baca ASCII)
=======================================
uses WinCrt;

var
I: Integer;
begin
for I := 1 to 165 do Write(Chr(I));
end.
========================================

Read More..

Bintang

Bingung mau ngepost apaan,,, saya mau bermemory tentang pascal sebelum saya melupakannya.. hehehehehe...

ini adalah contoh penggunaan for dalam pascal..
misalnya saja kita mau bikin bintang-bintang.. yang bentuknya kayak gini
* * * * * *
* * * * *
* * * *
* * *
* *
*

kita dapat menuliskannya dalam program pascal sbb :
========================================================
Program Bintang_1;
uses wincrt;
var n, i, j : integer;
begin
write('Masukkan n : ');
readln(n);
for i := 1 to n do
begin
for j := n downto i do
begin
write('* ');
end;
writeln;
end;
end.
======================================================
hasilnya akan sbb :

program di atas dibuat dengan TPW alias Turbo Pascal for Windows.. jika teman-teman ingin membuatnya di turbo pascal atau free pascal, pakai uses crt bukan uses wincrt..
Misal teman-teman ingin membuat bentuk semacam ini
*
* *
* * *
* *
*

code berikut bisa di coba :
==========================================================
Program Bintang_2;
uses wincrt;
var n, i, j : integer;
begin
write('Masukkan n : ');
readln(n);
for i := 1 to n do
begin
for j := 1 to i do
begin
write ('* ');
end;
writeln;
end;
for i := 1 to j do
begin
for j := n-1 downto i do
begin
write ('* ');
end;
writeln;
end;
end.
==========================================================
dan hasilnya akan sejenis ini ;

dan bagaimana kalau dari sedikit ke banyak???
=================================================================
Program Bintang_3;
uses wincrt;
var n, i, j : integer;
begin
write('Masukkan n : ');
readln(n);
for i := 1 to n do
begin
for j :=1 to i do
begin
write('* ');
end;
writeln;
end;
end.
=======================================================================

ingat ya.. n yang diminta diisi dengan angka ^^v Read More..