tubes

program tubes;
uses crt;

type data = record
        bahasa, arti : string;
end;

const
garis = '====================';

var
d : array [1..100] of data ;
arsip : file of string;
i,n,j,pil,spil,cpil,epil,bar,pilog : integer;
u,p,temps,temp2,min,cariar,carib,bb,ba,gar: string;
label menu,admin,user,menuser,main;

procedure insert;
begin
clrscr;
write('Banyak Data : '); readln(n);
        for i := 1 to n do begin
        writeln;
        writeln('data ke- ', i );
        write('bahasa : '); readln(d[i].bahasa);
        write('arti   : '); readln(d[i].arti);
        writeln;
        end;
        writeln('Saved !');
        readln;
end;

procedure sort;
begin
    for i := n downto 2 do
        for j := 2 to i do begin
                if(d[j-1].bahasa > d[j].bahasa) then begin
                temps := d[j-1].bahasa;
                d[j-1].bahasa := d[j].bahasa;
                d[j].bahasa := temps;
        end;
    end;
    writeln('Sukses !');
        readln;
        end;

procedure caris;
begin
writeln('1. Cari by Bahasa');
writeln('2. Cari by Arti');
writeln('--------------');
write('pilih : '); readln(cpil);
case cpil of
1 : begin
    write('input bahasa : '); readln(carib);
    i := 1;
    while (i <= n) and (d[i].bahasa <> carib) do
    i := i + 1;
        if d[i].bahasa = carib then begin
        writeln(d[i].bahasa, ' : ', d[i].arti);
        end
                else write('Tidak Ditemukan !');
        readln; end;
2 : begin
    write('input arti : '); readln(cariar);
    i := 1;
    while (i <= n) and (d[i].arti <> cariar) do
    i := i + 1;
        if d[i].arti = cariar then begin
        writeln(d[i].bahasa, ' : ', d[i].arti);
        end
                else write('Tidak Ditemukan !');
        end; end; readln; end;

procedure edits;
begin
writeln('1. Edit Bahasa');
writeln('2. Edit Arti');
writeln('--------------');
write('pilih : '); readln(epil);
case epil of
1 : begin
    write('masukan bahasa yang mau diedit : '); readln(carib);
    i := 1;
    while (i <= n) and (d[i].bahasa <> carib) do
    i := i + 1;
        if d[i].bahasa = carib then begin
    write('Masukan bahasa yang baru : '); readln(bb);
    d[i].bahasa := bb;
     writeln('Edited !'); end
       else write('masukan yang bener !');
    readln;
    end;
2 : begin
    write('masukan arti yang mau diedit : : '); readln(cariar);
    i := 1;
    while (i <= n) and (d[i].arti <> cariar) do
    i := i + 1;
        if d[i].arti = cariar then begin
        write('Masukan arti yang baru : '); readln(ba);
    d[i].arti := ba;
        writeln('Edited !') end
                 else write('masukan yang bener !');
        readln;
        end; end; end;

procedure outputs;
begin
gotoxy(5,10); write(garis);
gotoxy(7,11); write('No');
gotoxy(10,11); write('Bahasa');
gotoxy(21,11); write('Arti');
gotoxy(5,12); write(garis);
bar := 15;
for i := 1 to n do begin
gotoxy(7,bar); writeln(i:2);
gotoxy(10,bar); writeln(d[i].bahasa);
gotoxy(21,bar); writeln(d[i].arti);
bar := bar + 1;
end;
gotoxy(5,bar+1); writeln(garis);
readln;
end;


begin
main :
clrscr;
writeln('1. admin');
writeln('2. user');
writeln(garis);
write('login as : '); readln(pilog);
case pilog of
1 : goto admin;
2 : goto user;
 else goto main;
end;

admin :
clrscr;
    write('user : '); readln(u);
    write('pass : '); readln(p);
        if ((u = 'admin') and (p = 'daskom')) then goto menu
        else goto admin;

user :
clrscr;
    write('user : '); readln(u);
    write('pass : '); readln(p);
        if ((u = 'user') and (p = 'daskom')) then goto menuser
        else goto user;

menu :
repeat
clrscr;
writeln('1. input');
writeln('2. sort');
writeln('3. cari');
writeln('4. edit');
writeln('5. output');
writeln('6. switch to user');
writeln('7. exit');
writeln('-------------');
write('pilih : '); readln(pil);
case pil of
1 : insert;
2 : sort;
3 : caris;
4 : edits;
5 : outputs;
6 : goto user;
7 : exit;
end; until (pil = 7);
goto menu;

menuser :
repeat
clrscr;
writeln('1. sort');
writeln('2. cari');
writeln('3. output');
writeln('4. switch to admin');
writeln('5. exit');
writeln('-------------');
write('pilih : '); readln(pil);
case pil of
1 : sort;
2 : caris;
3 : outputs;
4 : goto admin;
5 : exit;
end; until (pil = 5);
goto menu;
readln;
end.