Wednesday, December 21, 2011

Program Sederhana Perulangan For Do - Pascal

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


Related Post

8 comments:

  1. wuiiiih programmer toh. jadi inget kuliah diploma satu dulu. sip gan. ditunggu kunjungan baliknya

    ReplyDelete
  2. Seep sobat, untuk merefresh belajar pascal nih sobat...

    ReplyDelete
  3. ya ampun, pascal ya..
    keinget jaman2 SMK dolo, pas kelas 1 langsung dijejali ama yg namanya om pascal ini..
    hoho
    salam kenal gan.

    ReplyDelete
  4. @rusydi hikmawan: hehe skrg sdh semeter brp sob?? siip langsung ke tkp

    ReplyDelete
  5. @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
  6. @Outbound Malang: haha kenangan masa lalu emang indah sob..tp ini pelajaran dikul ane lho..hehe

    ReplyDelete
  7. sip gan, tambah lagi contoh-contohnya gan

    ReplyDelete
  8. mau tanya, kalau membuat pola sederhana pake for to do bisa dibantu ga ya heehe mksh :)

    ReplyDelete

Mohon tinggalkan jejak/komentar sobat disini. Dilarang SPAM. Okey...