Perintah WHILE, DO
uses crt;
var
p: integer;
begin
clrscr;
p := 1;
while p <= 20 do
begin
write(p,' ');
p := p + 1;
end;
readln;
end.
Show
0 Comments
prev
next
Snippet
Blogger templates
Category List
- Cheat My Shop (5)
- Cheat Point Blank (6)
- Dasar-dasar Pemrograman Web (9)
- Delphi (2)
- Download Games (26)
- Entertainment (7)
- Facebook (2)
- Hacking (10)
- Humor (8)
- Manajemen Umum (1)
- Music (1)
- News (21)
- Olahraga (8)
- PBO (1)
- Sistem Operasi (8)
- Software (2)
- Tentang Cinta (7)
- Tips (3)
- Turbo Pascal (12)
- Tutorial (14)
- Unik (1)
- Zone Blogger (12)
- Zynga Poker BOT (1)
BUKU TAMU
Spoiler:
Followers
Snippet
