Monday, December 2, 2013

LISTING PROGRAM SEKOLAH PASCAL

Dibawah ini adalah listing program (source code) program sekolah dalam pascal
yang terdirir dari beberapa program yaitu :

  • Input Data Siswa
  • Data Guru
  • Nilai 


program sekolah;
uses wincrt;
var
   pilihan : string;
   again : char;

procedure datasiswa;

var
   nis,nama,jns,tempat,tgl,alamat,asalsekolah,tkelas : string;
   kdjns : integer;

begin
     repeat
     clrscr;
     writeln('             Input Data Siswa');
     writeln('______________________________________________');
     writeln;
     write('NIS                  : ');readln(nis);
     write('Nama                 : ');readln(nama);
     write('Kd Jns Kelamin (1/2) : ');readln(kdjns);

     if kdjns=1 then
        jns:='Laki-Laki'
     else
        jns:='Perempuan';

     writeln('Jenis Kelamin        : ',jns);
     write('Tempat Lahir         : ');readln(tempat);
     write('Tanggal Lahir        : ');readln(tgl);
     write('Alamat               : ');readln(alamat);
     write('Asal Sekolah         : ');readln(asalsekolah);
     write('Kelas                : ');readln(tkelas);
     writeln ('______________________________________________');
     writeln;
     writeln('R. Isi data kembali');
     writeln('K. Keluar dari program');
     writeln;
     write('Pilih : ');readln(again);

     if again = 'K' then
        donewincrt;
     until again <> 'R';

end;

procedure data_guru;

var
   nm_guru, jk_guru, a_guru, mp_guru, kd_pel, no_guru, nip_guru : string;

begin
     repeat
     clrscr;
     writeln('             Input Data Guru');
     writeln ('______________________________________________');
     write (' Masukan NIP guru       : '); readln (nip_guru);
     write (' Masukan nama guru      : '); readln (nm_guru);
     write (' Jenis kelamin          : '); readln (jk_guru);
     write (' Alamat guru            : '); readln (a_guru);
     write (' Nomor telepon guru     : '); readln (no_guru);
     write (' Masukan kode pelajaran : '); readln (kd_pel);

     if kd_pel = 'PEL001' then
        mp_guru := 'Matematika'
     else
     if kd_pel = 'PEL002' then
        mp_guru := 'Bahasa Indonesia'
     else
     if kd_pel = 'PEL003' then
        mp_guru := 'Bahasa Inggris'
     else
     if kd_pel = 'PEL004' then
        mp_guru := 'IPA'
     else
     if kd_pel = 'PEL005' then
        mp_guru := 'IPS'
     else
     if kd_pel = 'PEL006' then
        mp_guru := 'PAI'
     else
     if kd_pel = 'PEL007' then
        mp_guru := 'PKn'
     else
         mp_guru := 'Kode Tidak Valid';
   
     writeln (' Mata pelajaran         : ',mp_guru);
     writeln ('______________________________________________');

     writeln('R. Isi data kembali');
     writeln('K. Keluar dari program');
     writeln;
     write('Pilih : ');readln(again);

     if again = 'K' then
        donewincrt;
     until again <> 'R';

end;

procedure nilai;

var
   npm,nm,grade : string;
   khdrn,uts,uas,tgs,jml_nil : real;
   a,n : integer;

begin
     repeat
     clrscr;
     writeln('             Input Nilai Siswa');
     writeln ('______________________________________________');
     write('NPM            : ');readln(npm);
     write('NAMA           : ');readln(nm);
     write('Nilai Kehadiran: ');readln(khdrn);
     write('Nilai Tugas    : ');readln(tgs);
     write('Nilai UTS      : ');readln(uts);
     write('Nilai UAS      : ');readln(uas);
     jml_nil:=(khdrn+tgs+uts+uas)/4;
     writeln('Nilai rata-rata: ',jml_nil:0:0);

     if jml_nil >= 90 then
        grade:='A'
     else
     if jml_nil > 80 then
        grade:='B'
     else
     if jml_nil > 60 then
        grade:='C'
     else
     if jml_nil > 50 then
        grade:='D'
     else
        grade:='E';

     writeln('Grade          : ',grade);
     writeln ('______________________________________________');
     writeln;
     writeln('R. Isi data kembali');
     writeln('K. Keluar dari program');
     writeln;
     write('Pilih : ');readln(again);

     if again = 'K' then
        donewincrt;
     until again <> 'R';


end;

begin
     clrscr;
     writeln('           MENU');
     writeln('+*+*+*+*+*+*+*+*+*+*+*+*+*+');
     writeln;
     writeln('A. Data Siswa');
     writeln('B. Data Guru');
     writeln('C. Data Nilai Siswa');
     writeln('K. Keluar');
     writeln('+*+*+*+*+*+*+*+*+*+*+*+*+*+');
     writeln;
     write('Pilih Menu : ');readln(pilihan);

     if (pilihan='A') or (pilihan='a') then
        datasiswa
     else
     if (pilihan='B') or (pilihan='b') then
        data_guru
     else
     if (pilihan='C') or (pilihan='c') then
        nilai
     else
     if (pilihan='K') or (pilihan='k') then
        donewincrt;

end.

Layout (tampilan) dari program di atas :
layout
Adapun Flowchart dari program sekolah di atas :


Sekian Postingan tentang program pascal "Program Sekolah" semoga dapat bermanfaaat bagi pengunjung, jangan lupa komentarnya ya gan, kasih tau aja jika programnya eror atau apa, agar saya dapat memperbaikinya kemabali.

No comments:

Post a Comment