program death_note;
uses wincrt;
type catatan=record
nama,oto,auto:string;
gol:1..3;
end;
larik_note=array [1..20] of catatan;
var data:larik_note;
nama,auto:string;
gol:1..3;
status:1..3;
i,n:byte;
pil:1..5;
procedure use;
begin
writeln(' DEATH NOTE');
writeln(' HOW TO USE IT');
writeln(' <*><*><*><*><*><*>');
writeln('# barang siapa yg menulis namanya dlm DEATH NOTE ini maka dia akan mati');
writeln('# setelah menuliskan namanya dia akan mati dalam waktu 40 detik');
writeln('# DEATH NOTE tidak berfungsi jika PENULIS tidak tahu nama dan wajah ASLINYA');
writeln('# DEATH NOTE tidak memberi efek kepada orang yg tertulis dengan nama yg sama');
write('# alasan KEMATIAN harus di tulis dalam DEATH NOTE jika tidak di tulis dlm waktu 1menit 40detik');
writeln(' maka DEATH NOTE sendiri yg akan menentukan yg tertulis akan mati dengan cara SERANGAN JANTUNG');
writeln('# ');
end;
procedure tulis_catatan(var x:larik_note);
var pil:1..3;
y:char;
begin
writeln('||||||||||||');
writeln('| P I L I H| ');
writeln('||||||||||||');
writeln('1.manual');
writeln('2.automatic');
write('silahkan piih 2 jenis cara tulis ');readln(pil);
case pil of
1:begin
repeat;
begin
writeln('CARA PENULISAN MANUAL');
inc(n);
writeln('MENGISI CATATAN ke ',n);
write('masukan NAMA: ');readln(x[n].nama);
write('masukan gol kematian: ');readln(x[n].gol);
writeln;
write(' mau isi lagi <y/t> ? ');readln(y);
end
until (y<>'y');
writeln('tekan ENTER tuk tindak lanjut');
end;
2:begin
repeat
begin
writeln('CARA PENULISAN OTOMATIS');
inc(n);
writeln('MENGISI CATATAN ke ',n);
write('masukan NAMA: ');readln(x[n].nama);
write('Jenis Kematian: ');readln(x[n].gol);
write('tuliskan catatn kematian otomatis ');readln(x[n].oto);
writeln;
write(' mau isi lagi <y/t> ? ');readln(y);
end
until (y<>'y');
writeln('tekan ENTER tuk tindak lanjut');
end;
end;
end;
procedure cetak(var x:larik_note);
var test1,test2:string;
begin
writeln(' INILAH DATA DEATH NOTE');
writeln('--------------------------------------');
writeln('NO | NAMA |Jenis Kematian ');
writeln(' | | ');
for i:=1 to n do
begin
with x[i] do
begin
if (x[i].gol=1) then test1:='bunuh diri'
else if (x[i].gol=2) then test1:= 'sakit'
else test1:= 'kecelakan';
writeln('|!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!');
writeln('|() NO <>',i);
writeln('|() NAMA <>',nama);
writeln('|() Jenis Kematian <>',test1);
writeln('|() catatan kematian <>',oto);
writeln('|!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!');
end;
end;
writeln('#___________________________________#');
end;
procedure edit(var x:larik_note);
var ubah:byte;
pil:1..5;
begin
cetak(X);
write('record no brpa yang akn diedit ==> ');readln(ubah);
for i:=ubah to ubah do X[i]:=X[i];
begin
for i:=ubah to ubah do
write('masukkan nama baru ==> ');readln(X[i].nama);
write('masukkan jenis kematian baru ==> ');readln(X[i].gol);
writeln('masukkan catatan kematian baru==> ');readln(X[i].oto);
end;
writeln('data dengan no record ',ubah,' telah teredit');
writeln;
cetak(x);
end;
procedure automatic(var x:larik_note);
var auto:string;
y:char;
begin
repeat
begin
inc(n);
writeln(' Menulis DEATH NOTE dengan automatic kematian ke ',n);
write(' Tuliskan catatan Automatic ');readln(x[n].auto);
writeln('inilah catatan automaticnya ');
write(' mau isi lagi <y/t> ? ');readln(y);
end
until (y<>'y');
writeln('tekan ENTER tuk tindak lanjut');
end;
procedure hapus(var x:larik_note);
var rec_hapus:byte;
begin
write('catatan nomer berapa yg ingin di hapus? ');readln(rec_hapus);
for i:=rec_hapus to (n-1) do
x[i]:=x[i+1];
dec(n);
write('catatan no ',rec_hapus,' sudah di hapus');
end;
procedure filter(var x:larik_note);
var pil_gol:1..3;
begin
writeln;writeln('pilih golongan yg di filter');
writeln('1. gol 1 bunuh diri ');
writeln('2. gol 2 sakit ');
writeln('3. gol 3 kecelakaan ');
write('pilihan anda==> ');readln(pil_gol);
if (pil_gol=1) then
begin
writeln('ini adalah golongan kematian denga bunuh diri ');
for i:=1 to n do
if (x[i].gol=1) then writeln(i:2,' ',x[i].nama:6);
end
else if (pil_gol=2) then
begin
writeln('ini adalah golongan dengan sakit ');
for i:=1 to n do
if (x[i].gol=2) then writeln(i:2,' ',x[i].nama:6);
end
else
begin
writeln('ini adalah golongan kecelakaan ');
for i:=1 to n do
if (x[i].gol=3) then writeln(i:2,' ',x[i].nama:6);
end;
end;
{procedure sorting(var x:larik_note);
}
{program utama}
begin
repeat
begin
clrscr;
writeln('!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!');
writeln('!BARANG SIAPA YG DI TULIS NAMANYA DLM DEATH NOTE DIA AKAN SEGERA MATI!');
writeln('!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!');
writeln(' __________________');
writeln(' | D E A T H |');
writeln(' | |');
writeln(' | N O T E |');
writeln(' | |');
writeln(' | |');
writeln(' | |');
writeln(' | |');
writeln(' |0.how to use it |');
writeln(' |1.tulis catatan |');
writeln(' |2.cetak |');
writeln(' |3.hapus |');
writeln(' |4.edit |');
writeln(' |5.filter |');
writeln(' |7.selesai |');
writeln(' |_________________|');
writeln;
write('masukan pilihan anda =>');readln(pil);
case pil of
0:use;
1:tulis_catatan(data);
2:cetak(data);
3:hapus(data);
4:edit(data);
5:filter(data);
{6:sorting(data);}
7:writeln('TUTUP DEATH NOTE');
end;
readln;
end
until (pil=6);
end.
0 comments
Tambahkan Komentar Anda
semua berawal dari diri kita