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

contoh program pascal penerimaan siswa baru, program pascal penerimaan mahasiswa baru, program penerimaan mahasiswa baru turbopascal, system tpw-pascal.

Related posts:

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