Rabu, 21 Desember 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 komentar:

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

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

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

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

    BalasHapus
  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

    BalasHapus
  6. @Outbound Malang: haha kenangan masa lalu emang indah sob..tp ini pelajaran dikul ane lho..hehe

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

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

    BalasHapus

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