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

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