PROGRAM JADWAL

Program ini masih program pascal yang berguna untuk teman-teman yang jadwal pelajarannya hilang. Tapi toh tujuan dibuatnya program ini bukan untuk itu, melainkan buat latihan pascal dan kreativitas.
Oya... dan ini hanya jadwal untuk kelas X-RPL 2, untuk kelas lain buat sendiri saja. :-) Tinggal mengganti jadwal yang ada di dalam script aja. Oke, langsung aja, ini gan scriptnya :

PROGRAM JADWAL_PELAJARAN;
USES CRT;
VAR HARI : BYTE;
BEGIN
     CLRSCR;
     GOTOXY (14,2); WRITELN ('JADWAL PELAJARAN');
     GOTOXY (14,3); WRITELN ('X-RPL 2') ;
     GOTOXY (4,4); WRITELN ('_______________________________________');
     GOTOXY (4,6); WRITELN ('Ket : 1 mewakili Senin, 2 mewakili Selasa, dst');
     GOTOXY (4,7); WRITE ('Masukkan Hari (1-6) :'); READLN (HARI);
  
     IF HARI = 1 THEN
     BEGIN
     GOTOXY (4,9); WRITELN ('JADWAL HARI SENIN');
     GOTOXY (4,11); WRITELN ('Penjaskes');
     GOTOXY (4,12); WRITELN ('Kimia');
     GOTOXY (4,13); WRITELN ('Produktif');
     END;

     IF HARI = 2 THEN
     BEGIN
     GOTOXY (4,9); WRITELN ('JADWAL HARI SELASA');
     GOTOXY (4,11); WRITELN ('Produktif');
     GOTOXY (4,12); WRITELN ('B.Inggris');
     GOTOXY (4,13); WRITELN ('Matematika');
     END;

     IF HARI = 3 THEN
     BEGIN
     GOTOXY (4,9); WRITELN ('JADWAL HARI RABU');
     GOTOXY (4,11); WRITELN ('KKPI');
     GOTOXY (4,12); WRITELN ('Agama');
     GOTOXY (4,13); WRITELN ('Produktif');
     END;

     IF HARI = 4 THEN
     BEGIN
     GOTOXY (4,9); WRITELN ('JADWAL HARI KAMIS');
     GOTOXY (4,11); WRITELN ('Produktif');
     GOTOXY (4,12); WRITELN ('Matematika');
     GOTOXY (4,13); WRITELN ('Fisika');
     END;

     IF HARI = 5 THEN
     BEGIN
     GOTOXY (4,9); WRITELN ('JADWAL HARI JUMAT');
     GOTOXY (4,11); WRITELN ('BK/BP');
     GOTOXY (4,12); WRITELN ('B.Indonesia');
     GOTOXY (4,13); WRITELN ('IPA');
     END;

     IF HARI = 6 THEN
     BEGIN
     GOTOXY (4,9); WRITELN ('JADWAL HARI SABTU');
     GOTOXY (4,11); WRITELN ('Kewirausahaan');
     GOTOXY (4,12); WRITELN ('PKN');
     GOTOXY (4,13); WRITELN ('IPS');
     GOTOXY (4,14); WRITELN ('Seni Budaya');
     GOTOXY (4,15); WRITELN ('B.Inggris');
     END;

     READLN;
END.

 Outputnya begini gan...

Masukkan Harinya, tapi dalam angka.

Setelah itu kita akan mengatuhui jadwal kelas kita.