My personal blog

Click to go to My personal Blog.
Kalo masih aktif, jangan lupa dikunjungi ya. haha.
Maaf, masih taraf coba coba. Maklum itu cuma buat ditumpuk.

Tugas TIK 10 Mei 2010 individu

Bisa di lihat 'di sini' Tugas TIK yang diberikan tanggal 10 Mei 2010. Tentang pascal.
Untuk X-4 yang ndownload file ini, dan itu buat ditumpuk harap jangan sama persis ya ;)
Jika range rata rata kurang panjang, var "banyak" dan "jumlah" dimasukin ke real aja.
Di bawah ini adalah print screen versi terbaru setelah diedit :

Penggunaan repeat ... until

Contoh Penggunaan Repeat ... Until

uses wincrt ;
var
i,j,y : integer ;
begin
write ('Berapa banyak ingin mencetak tulisan "Ga_Sur"? '); readLn (j);
i:=1 ;
y:=2;
Repeat
gotoxy(20,y) ;
writeLn('Ga_Sur') ;
i:=i+1 ;
y:=y+1 ;
Until i>j ;
end.

Welcome to Gasur-Zone

Welcome to Gasur-Zone. Di sini anda akan mendapatkan berbagai macam pengetahuan dan berbagai tips dari Gasur tentang banyak hal.