Rumus Turbo Pascal

SELECTION CASE

Program Latihan21;

Uses Wincrt;

Var NamaBapakmu,NomorHandphonemu,PinBlackberry,UangJajan:String;SehariHari,Tambahan,NilaiUang:integer;

Begin

Write('Masukkan Nama Bapakmu :');

Readln(NamaBapakmu);

Write('Masukkan Nomor Handphonemu :');

Readln(NomorHandphonemu);

Write('Masukkan Pin Blackberry :');

Readln(PinBlackberry);

Write('Uang jajan sehari hari  :');Readln(Seharihari);

Write('Uang Jajan tambahan  :');Readln(Tambahan);

Writeln('================================');

NilaiUang:=(seharihari+tambahan);

Case NilaiUang of

     85..100:

     Begin

     writeln('Uang jajan Anda Sangat Banyak');

     writeln('Belanjalah');

     End;

     75..84:

     Begin

     writeln('Uang Jajan Anda Banyak');

     writeln('Belanja dikit dikit');

     End;

     65..74:

     Begin

     writeln('Uang Jajan Anda Cukup');

     writeln('Berhematlah');

     End;

     Else writeln('Uang Jajan anda Kurang');

     writeln('Minta lagi sama bapak');

     End;

     End.