Minggu, 23 Januari 2011

Turbo pascal : menampilkan angka ganjil sama genap

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^^

2 komentar:

  1. MAKASIH BANGET YA!! akhirnya tugas ku selesai :D
    keep posting..
    oya, aku add kamu di Facebook.. Rossiana Ervianti N. itu nickku :D jangan lupa confirm ya..

    <3

    BalasHapus
  2. Kalau digabungin gimana yah, kok ga bisa..

    BalasHapus