program dan design

PROGRAM MENU_MENU;
uses crt;
label
ulang;

TYPE warnet=RECORD
kelkamar :char;
tarif,diskon,total,lama:real;
bonus,nama :string;

end;


VAR
jlh,i,j,n :byte;
nama,nim :array[1..50]of string;
nilai :array[1..50]of real;
grade,ket :string;
jwb :char;

k :char;
menu :char;
{WARNET}

data_user:warnet;



{** PROGRAM KE 1 **}

procedure nilai_siswa;
begin

clrscr;
textbackground(green);
textcolor(black);
write('Jumlah data yang ingin dimasukan = ');readln(jlh);
for i:=1 to jlh do
begin
clrscr;
writeln('PROGRAM PERHITUNGAN NILAI');
writeln('-------------------------');
writeln('Data ke -',i);
write('Nama Siswa = ');readln(nama[i]);
write('NIM Siswa = ');readln(nim[i]);
write('Nilai Siswa = ');readln(nilai[i]);

end;

if nilai[i] > 90 then
begin
grade:='A';
ket :='Lulus';
end
else
if nilai[i] > 75 then
begin
grade:='B';
ket :='Lulus';
end
else
if nilai[i] > 60 then
begin
grade:='C';
ket :='Lulus';
end
else
if nilai[i] > 40 then
begin
grade:='D';
ket :='Her';
end
else
begin
grade:='E';
ket :='Tidak lulus';
end;


clrscr;
writeln(' KARTU HASIL STUDY SISWA');
writeln(' SMU BAKTI KASIH ');
writeln('===========================================================');
writeln(' NIM NAMA NILAI GRADE KETERANGAN ');
WRITELN('===========================================================');

for i:=1 to jlh do
begin
gotoxy(1,5+i);writeln('º ',nim[i]);
gotoxy(11,5+i);writeln('º ',nama[i]);
gotoxy(23,5+i);writeln('º ',nilai[i]:4:0);
gotoxy(35,5+i);writeln('º ',grade);
gotoxy(47,5+i);writeln('º ',ket);
gotoxy(60,5+i);writeln('º');
end;

writeln('==========================================================');
writeln;
writeln('Ingin input lagi[Y/T]?');readln(jwb);
if jwb ='Y' then
begin
nilai_siswa
end;

readln;
end;


{** PROGRAM KE 2 **}

procedure bintang;

begin
textbackground(blue);
textcolor(black);
clrscr;
write('Masukan jumlah bintang[1-13] = ');readln(n);
for i:=1 to n do
begin
gotoxy(40-n+i,i);
for j:=n downto i do
write('*',''); textcolor(blink+yellow);
delay(500);
end;

for i:=1 to n do
begin

gotoxy(41-i,n-1+i);
for j:=1 to i do
write('*',''); textcolor(blink+yellow);
delay(500);
end;
readln;
end;



{** PROGRAM KE 3 **}

PROCEDURE BUNYI;
begin
textbackground(red);
textcolor(black);
clrscr;
writeln('Apakah anda sedang jenuh? Dengarkan saja musik berikut..');
writeln('Tekan Y untuk mendengarkan dan T untuk keluar.');readln(jwb);
if jwb='Y' then
begin
repeat
sound(400);delay(400);
sound(500);delay(700);
sound(500);delay(700);
sound(250);delay(700);
sound(400);delay(700);
sound(500);delay(1000);
sound(220);delay(200);
sound(250);delay(800);
sound(250);delay(300);
sound(400);delay(800);
sound(250);delay(800);
sound(250);delay(800);
nosound;
until keypressed;
end
else
writeln('TERIMA KASIH');
readln;
end;



{** PROGRAM KE 4 **}

PROCEDURE WARNETCOM;
begin

textbackground(12);
textcolor(black);
clrscr;

with data_user do
begin
writeln('MASUKAN KETERANGAN SESUAI');
writeln(' DENGAN PERTANYAAN ');
WRITELN('=========================');
WRITE('Nama User = ');readln(nama);
write('Kelas Kamar [1/2/3] = ');readln(kelkamar);
write('Lama Pemakaian [dalam jam] = ');readln(lama);

if kelkamar='1' THEN
BEGIN
Tarif :=lama*15000;
diskon:=0.02*tarif;
end
else
if kelkamar='2' THEN
BEGIN
Tarif:=lama*10000;
diskon:=0.01*tarif;
end
else
BEGIN
tarif:=lama*5000;
diskon:=0;
end;
total:=tarif-diskon;

clrscr;
writeln('STRUK PEMBAYARAN GAUL @ NET');
writeln(' Jl. Saputra No.05 Jaksel ');
writeln('---------------------------');
writeln('Nama = ',nama);
writeln('Kamar Kelas = ',kelkamar);
writeln('Lama Pemakaian = ',lama:9:0,' Jam');
writeln('Tarif = ',tarif:9:0);
writeln('Diskon = ',diskon:9:0);
writeln(' ---------------');
WRITELN('TOTAL = ',total:9:0);
writeln;
writeln('---- TERIMA KASIH ATAS ----');
writeln(' KUNJUNGAN ANDA ');
write('Ingin input lagi[Y/T] ?');readln(jwb);
if jwb='Y' then
begin
WARNETCOM
end;
end;
readln;
end;





begin

begin
CLRSCR;
writeln('===========================================');
writeln(' -----------PILIHAN MENU --------------- ');
WRITELN(' ');
WRITELN(' 1. PROGRAM NILAI SISWA SMU BHAKTI KASIH ');
writeln(' ');
WRITELN(' 2. PROGRAM BINTANG-BINTANG ');
writeln(' ');
WRITELN(' 3. MUSIK ');
writeln(' ');
WRITELN(' 4. STRUK WARNET ');
writeln(' ');
writeln(' 5.exit ');
writeln(' ');
writeln('===========================================');
write('Pilihan Menu No = ');readln(menu);
writeln;
if menu ='1' then
begin
nilai_siswa;
end

else
if menu='2' then
begin
bintang;
end

else
if menu='3' then
begin
BUNYI
end

else
IF menu='4' then
begin
WARNETCOM
end
else if menu='5'then exit
end;
readln;
END.