• 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

Case dengan fungsi integer

var
x:integer;
begin
writeln('Masukkan nilai : ');
readln(x);
case x of
90..100:writeln('A');
80..89:writeln('B');
70..79:writeln('C');
60..69:writeln('D');
else
writeln('Pilihan tidak ada');
end;
readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

0 komentar:

Posting Komentar