Program PSB SMA Ver.1 Pascal

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.

Kata Kunci

program pascal terbaru, program pascal matematika, contoh program pascal terbaru, contoh program pascal penerimaan mahasiswa baru, program parkir pada pascal, program parkir dengan pascal, program parkir pascal, program nilai kelulusan pascal, program pascal penerimaan, contoh pemrograman penerimaan mahasiswa baru.

Related posts:

1. Program Kelulusan SMP dan PSB SMA Ver.2
2. Program Kelulusan SMP dan PSB SMA Ver.1
3. Program GJE (Gauss Jordan Exchange) dengan Pascal
4. Program untuk Mengurutkan Data dengan Metode RADIX SORT
5. STATEMENT-STATEMENT PADA PEMOGRAMAN PASCAL
6. ARRAY PADA PASCAL
7. Program Penilaian Mahasiswa
8. Perintah With..Do dalam Pascal
9. Program Nilai
10. Struktur Program Pascal