uses wincrt;
var
i,j,n:integer;
begin
write ('Banyak Perulangan: '); readln(n);
j:=5;
for i:=1 to n do
begin
writeln(i,' ',j);
j:=j-1;
end;
readln;
end.
Hasilnya :
1 5
2 4
3 3
4 2
5 1
var
i,j,n:integer;
begin
write ('Banyak Perulangan: '); readln(n);
j:=5;
for i:=1 to n do
begin
writeln(i,' ',j);
j:=j-1;
end;
readln;
end.
Hasilnya :
1 5
2 4
3 3
4 2
5 1
wuiiiih programmer toh. jadi inget kuliah diploma satu dulu. sip gan. ditunggu kunjungan baliknya
ReplyDeleteSeep sobat, untuk merefresh belajar pascal nih sobat...
ReplyDeleteya ampun, pascal ya..
ReplyDeletekeinget jaman2 SMK dolo, pas kelas 1 langsung dijejali ama yg namanya om pascal ini..
hoho
salam kenal gan.
@rusydi hikmawan: hehe skrg sdh semeter brp sob?? siip langsung ke tkp
ReplyDelete@Asis Sugianto:hehe iya sob..dkomputer ane bnyak program pascal hsl pelajaran dikul..sayang kl dihapus so ane sharing j sp tw ada yg butuh..hehe
ReplyDelete@Outbound Malang: haha kenangan masa lalu emang indah sob..tp ini pelajaran dikul ane lho..hehe
ReplyDeletesip gan, tambah lagi contoh-contohnya gan
ReplyDeletemau tanya, kalau membuat pola sederhana pake for to do bisa dibantu ga ya heehe mksh :)
ReplyDelete