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.
Postingan Lebih Baru
Beranda
Langganan:
Postingan (Atom)