Adi Sutikno
Minggu, 05 April 2009
Belajar looping/perulangan"Bahasa Pemrograman Pascal"
Cara Pertama :
Uses crt;
Var x:integer;
Begin
for x:=1 to 5 Do
writeln(x);
Readln;
end.
Cara Kedua :
Var ; :integer
Begin
For ;:=1 to 10 Do
write (i);
writeln('Belajar Pascal');
Readln;
end.
Tidak ada komentar:
Posting Komentar
Posting Lebih Baru
Beranda
Langganan:
Posting Komentar (Atom)
Tidak ada komentar:
Posting Komentar