Program PSB SMA Ver.1 Pascal

Jul 22, 2009 1 Comment by Sahabat

uses wincrt;

var a,b,c,d,e,f :integer;

var g :integer;

begin

writeln;

writeln(‘Program PSB SMA terhadap nilai UAN mu… ‘);

writeln(‘Masukkan nilai Ujian mu: (Rate:00.00)’);

writeln(‘Nilai Biologi mu ? ‘); readln(a);

writeln(‘Nilai Fisika mu ? ‘); readln(b);

writeln(‘Nilai Kimia mu ? ‘); readln(c);

writeln(‘Nilai Matematika mu ? ‘); readln(d);

writeln(‘Nilai Bahasa Indonesia mu ? ‘); readln(e);

writeln(‘Nilai Bahasa Inggris mu ? ‘); readln(f);

begin

g := 6 ;

if ((a+b+c+d+e+f)/g)>=60.00 then writeln(‘Kamu masuk SMA N 60 Jakarta..’) else

if ((a+b+c+d+e+f)/g)>=70.00 then writeln(‘Kamu masuk SMA N 46 Jakarta..’) else

if ((a+b+c+d+e+f)/g)>=75.00 then writeln(‘Kamu masuk SMA N 70 Jakarta..’) else

if ((a+b+c+d+e+f)/g)>=77.00 then writeln(‘Kamu masuk SMA N 3 Jakarta..’) else

if ((a+b+c+d+e+f)/g)>=80.00 then writeln(‘Kamu masuk SMA N 55 Jakarta..’) else

if ((a+b+c+d+e+f)/g)>=85.00 then writeln(‘Kamu masuk SMA N 28 Jakarta..’) else

if ((a+b+c+d+e+f)/g)>=88.00 then writeln(‘Kamu masuk SMA N 8 Jakarta..’) else writeln(‘Hayoo.. dimana kamu??’);

end;

writeln;

writeln(‘Selamat bagi kamu yang sudah aman…’);

end.

Pascal
Sahabat

Tentang Penulis

Penulis adalah sahabat-sahabat yg menyumbang tulisan di nusinau.com untuk dimuat dengan bijaksana. Silakan kirim tulisannya ke nusinau[at]gmail[dot]com atau ke admin[at]nusinau[dot]com. Butuh diskusi cepat? colek di twitter @nusinau

One Response to “Program PSB SMA Ver.1 Pascal”

  1. awan says:

    brother,,, gimana sih kalo mu masukin satuan waktu pada program parkir, trus tipe data apa yang dipake

Leave a Reply

You must be logged in to post a comment.