oke kali ini saya ingin berbagi tentang program pascal, tepatnya pada program sekolah.
silahkan di cek langsung ke TKP :D

1.Listing Program
program sekolah;
uses wincrt;
var
   pilihan : string;
   again : char;

procedure datasiswa;

var
   nama,jns,tempat,alamat,asalsekolah,tkelas : string;
   tgl,bln,thn:integer;
   nis:longint;

begin
     repeat
     clrscr;
     writeln('             Input Data Siswa');
     writeln('______________________________________________');
     writeln;
     write('NIS                  : ');readln(nis);
     write('Nama                 : ');readln(nama);
     write('Jenis Kelamin        : ');readln(jns);

     if (jns='Laki-Laki') or (jns='LAKI-LAKI') or (jns='PEREMPUAN')
     or (jns='laki-laki') or (jns='perempuan') or (jns='Perempuan')
     or (jns='pria') or (jns='Pria') or (jns='PRIA')
     or (jns='wanita') or (jns='Wanita') or (jns='WANITA') then
     begin
     write('Tempat Lahir         : ');readln(tempat);
     write('Tanggal Lahir (masukan angka)       : ');readln(tgl);

     case tgl of          
     1..31:begin
            write('Bulan Lahir (masukan angka)         : ');readln(bln);
            end;
     end;

     case bln of
     1..12:begin
            write('Tahun Lahir (4 dijit angka)         : ');readln(thn);
            end;
     end;

     case thn of
     1990..2000:begin
                write('Alamat               : ');readln(alamat);
                write('Asal Sekolah         : ');readln(asalsekolah);
                write('Kelas                : ');readln(tkelas);
                end;
     0..1989:writeln('Maaf inputan tidak diperkenankan');
     2001..3000:writeln('Maaf inputan tidak diperkenankan');
     end;
    
     end
     else
     writeln('Tidak Valid');
     writeln ('______________________________________________');
     writeln;
     writeln('R. Isi data kembali');
     writeln('K. Keluar dari program');
     writeln;
     write('Pilih : ');readln(again);

     if (again = 'K') or (again= 'k') then
        donewincrt
     else
     writeln('Keyword Tidak Valid');

     until again <> 'R';
     
end;

procedure data_guru;

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

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);

     if (jk_guru='Laki-Laki') or (jk_guru='LAKI-LAKI') or (jk_guru='PEREMPUAN')
     or (jk_guru='laki-laki') or (jk_guru='perempuan') or (jk_guru='Perempuan')
     or (jk_guru='pria') or (jk_guru='Pria') or (jk_guru='PRIA')
     or (jk_guru='wanita') or (jk_guru='Wanita') or (jk_guru='WANITA') then
     begin
     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);
     end
     else
     writeln('Tidak Valid');
     writeln ('______________________________________________');
     writeln('R. Isi data kembali');
     writeln('K. Keluar dari program');
     writeln;
     write('Pilih : ');readln(again);

     if (again = 'K') or (again= 'k') then
        donewincrt
     else
     writeln('Keyword Tidak Valid');

     until again <> 'R';

end;

procedure nilai;

var
   nm,grade : string;
   npm:longint;
   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 (batas min nilai = 0, batasan max nilai = 100) : ');readln(khdrn);
     write('Nilai Tugas (batas min nilai = 0, batasan max nilai = 100) : ');readln(tgs);
     write('Nilai UTS (batas min nilai = 0, batasan max nilai = 100) : ');readln(uts);
     write('Nilai UAS  (batas min nilai = 0, batasan max nilai = 100) : ');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') or (again= 'k') then
        donewincrt
     else
     writeln('Keyword Tidak Valid');

     until again <> 'R';


end;

begin
     clrscr;
     writeln('SMK SUKAPURA');
     writeln('__________________________');
     writeln;
     writeln;
     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.

2.Layout Program

3.Flowchart Program