script pengulangan pake " for..to..do "
untuk menghasilkan angka ganjil
scriptnya :
uses wincrt;
var x : integer;
begin
for x:=1 to 10 do
begin
write(x:3);
x:=x+1
end;
end.
untuk angka genap
scriptnya :
uses wincrt;
var x : integer;
begin
for x:=2 to 11 do
begin
write(x:3);
x:=x+1
end;
end.
beda dari ganjil sama genap terletak di script "for x:=1 to 10 do" dan "for x:=2 to 11 do"
kalau di ganjil di awali angka "ganjil" to "genap"
kalau di genap di awali angka "genap" to "ganjil"
semoga bermanfaat^^
MAKASIH BANGET YA!! akhirnya tugas ku selesai :D
BalasHapuskeep posting..
oya, aku add kamu di Facebook.. Rossiana Ervianti N. itu nickku :D jangan lupa confirm ya..
<3
Kalau digabungin gimana yah, kok ga bisa..
BalasHapus