• MYSHOP

    Gadget Mania !! Welcome to my shop ^.^

  • FACEBOOK

    Welcome to my blog

    Senang bisa membantu kalian semua

    dan Semoga tulisan saya bermanfaat,

    Sekenannya komentar anda supaya saya bisa

    mengerti apa yang di dapatkan oleh pembaca

  • Twitter

    Twitter

  • Do NOT REPOST

    Do Not Repost Any Content Here Thanks

  • MYSHOP

    Gadget Mania !! Welcome to my shop ^.^

  • FACEBOOK

    Welcome to my blog

    Senang bisa membantu kalian semua

    dan Semoga tulisan saya bermanfaat,

    Sekenannya komentar anda supaya saya bisa

    mengerti apa yang di dapatkan oleh pembaca

Fungsi While Do dengan IF

Dengan Fungsi While .. Do .. kita dapat melakukan perulangan, akan tetapi bila kita
ingin menyortir beberapa huruf/angka kita memerlukan fungsi IF didalamnya, beginilah codenya
-----------------------------------------------------------------
program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
a:integer;
begin
a:=1;
while a<11 do
begin
if (a<>5) and (a<>8) then
writeln(a);
a:=a+1;
end;
readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.
-------------------------------------------------------------------

0 komentar:

Posting Komentar