program Desaxxx;

uses
  crt;

type
  Penduduk = record
    id_RW: integer;
    jum_warga: integer;
    luas_wil: integer;
    potensi: string;
  end;

  tabel = array of Penduduk;
var
  A: tabel;
  user, pass, u, p: string;
  x, i: integer;
  counter: integer;


  function getLuas_wil(p, l: integer): integer;
  begin
    getluas_wil := p * l;

  end;



  procedure menuInput();
  var
    p, l, N: integer;
    lg: char;
    //id_RW: integer; potensi: string

  begin
               {
                N:= length(A);
                readln;
                setLength(A,N+1);
                clrscr;
                writeln('INPUT DATA');
                writeln('======================================');
                write('id Rukun Warga= '); readln(A[N-1].id_RW);
                write('Jumlah Warga= '); readln(A[N-1].jum_warga);
                writeln('Luas Wilayah RW');
                write('Panjang Wilayah: ');readln(p);
                write('Lebar Wilayah: ');readln(l);
                A[N].luas_wil:=getluas_wil(p,l);
                writeln('Luas Wilayah: ',A[N-1].luas_wil);
                write('Potensi yang dimiliki daerah ini  adalah =');readln(A[N-1].potensi);
                write('Data Berhasil di Inputkan'); readln;     }


    while lg <> 'T' do
    begin
      counter := counter + 1;
      setlength(A, counter + 1);
      writeln('Input Data');
      writeln('=========');
      Write('ID RW              : ');
      readln(A[counter].id_RW);
      Write('Jumlah Warga       : ');
      readln(A[counter].jum_warga);
      Write('Panjang Wilayah    : ');
      readln(p);
      Write('Lebar Wilayah      : ');
      readln(l);
      A[counter].luas_wil := getluas_wil(p, l);
      writeln('Contoh Potensi Yang Bisa Diinputkan: ');
      writeln('1. seni');
      writeln('2. industri rumahan');
      writeln('3. pendidikan');
      writeln('4. wisata');
      write('Potensi Daerah :');
      readln(A[counter].potensi);
      writeln('DATA BERHASIL DINPUTKAN ');
      writeln('Lagi? [Y/T]');
      readln(lg);
    end;
  end;

  procedure padatpenduduk(jumlah, luas: integer);
  var
    n: integer;
  begin
    n := luas * 3;
    if jumlah > n then
      writeln('padat')
    else
      writeln('tidak padat');
  end;

  procedure tepatusaha(potensi: string);

  begin
    if potensi = 'seni' then
    begin
      writeln('Potensi yang tepat untuk wilayah ini adalah tentang kesenian');
      writeln('Contoh:');
      writeln('1. Seni Lukis');
      writeln('2. Kerajinan Tangan');
      writeln('3. tarian Budaya');
      writeln('4. Kaligrafi');
      writeln('5. Membatik');
    end
    else

    if potensi = 'industri rumahan' then
    begin
      writeln(
        'potensi yang tepat untuk wilayah ini adalah tentang industri rumahan');
      writeln('Contoh:');
      writeln('1. Pembuatan Berbagai Makanan');
      writeln('2. Industri Pabrik Tekstil');
      writeln('3. Pabrik Boneka');
      writeln('4. Pabrik Daur Ulang Plastik');
    end
    else
    if potensi = 'pendidikan' then
    begin
      writeln(
        'Potensi yang tepat untuk wilayah ini adalah Pendidikan');
      writeln('Contoh:');
      writeln('1. Sekolah');
      writeln('2. Taman Kanak-Kanak');
      writeln('3. Madrasah');
      writeln('4. Perpustakaan');
      writeln('5. Penjualan Buku Pembelajaran');
    end
    else
    if potensi = 'wisata' then
    begin
      writeln(
        'Potensi yang tepat untuk wilayah ini adalah bagian wisata');
      writeln('Contoh:');
      writeln('1. Taman Air');
      writeln('2. Taman Rekreasi');
      writeln('3. Tempat Hiburan');
      writeln('4. Pameran');
    end;
    //readln;
  end;

 { procedure editData(var A: tabel);
  var
    k, n, m: integer;

  begin
    Write('masukan no= ');
    readln(n);
    writeln('1. id RW');
    writeln('2. Jumlah Warga');
    writeln('3. Luas Wilayah');
    writeln('4. Potensi Daerah');
    writeln('5. Semua');
    Write('pilih yang akan di edit :');
    readln(m);
    if m = 1 then
    begin
      Write('id RW : ');
      readln(k);
      A[n].id_RW := k;
    end
    else if m = 2 then
    begin
      Write('Jumlah Warga : ');
      readln(A[n].jum_warga);
    end
    else if m = 3 then
    begin
      Write('Luas Wilayah : ');
      readln(A[n].luas_wil);
    end
    else if m = 4 then
    begin
      Write('Potensi Daerah : ');
      readln(A[n].potensi);
    end
    else if m = 5 then
    begin
      Write('id RW : ');
      readln(A[n].id_RW);
      Write('Jumlah Warga : ');
      readln(A[n].jum_warga);
      Write('Luas Wilayah : ');
      readln(A[n].luas_wil);
      Write('Potensi Daerah : ');
      readln(A[n].potensi);
    end;

  end;}

  {procedure hapusdata(var A: tabel);
  var
    j, i: integer;
  begin
    Write('Masukan No yang ingin dihapus : ');
    readln(i);
    for j := i to length(A) - 2 do
    begin
      A[j] := A[j + 1];
    end;
    setLength(A, length(A) - 1);
  end;}

  {procedure menuViewOption(pil: char);
  begin
    case pil of
      'e': editData(A);
      'd': hapusdata(A);
    end;
  end;}


  procedure search();
  var
    id, i: integer;
  begin
    write('Masukan ID yg ingin ditampilkan: ');
    readln(id);
    if length(a) <> 0 then
    begin
            while (i <= counter) and (A[i].id_RW <> id) do
            begin
                 i:=i+1;
            end;

             readln;
            if A[i].id_RW = id then
            begin
              writeln('No :', i+1);
              //writeln('ID RW: ', A[i].id_RW);
              writeln('Jumlah Warga: ', A[i].jum_warga);
              writeln('Luas Wilayah: ', A[i].luas_wil);
              writeln('Potensi Daerah: ', A[i].potensi);
              Write('Padat Atau Tidaknya Wilayah Tersebut : ');
              padatpenduduk(A[i].jum_warga, a[i].luas_wil);
              Write('lapangan kerja : ');
              tepatusaha(A[i].potensi);
            end;
    end
    else
    begin
         writeln('Belum ada inputan');
    end;
    readln;
  end;

  procedure menuView(A: tabel);
  var
    i: integer;
    pil: char;
    jumlah, luas: integer;
    potensi: string;
  begin
        {
        repeat
                clrscr;
                writeln('VIEW DATA');
                writeln('-----------------------------------------------------');

                for i:= 0 to length(A) -2 do
                        begin
                                writeln('No :',i + 1);
                                writeln('ID RW: ',A[i].id_RW);
                                writeln('Jumlah Warga: ',A[i].jum_warga);
                                writeln('Luas Wilayah: ',A[i].luas_wil);
                                writeln('Potensi Daerah: ',A[i].potensi);
                                write('Padat Atau Tidaknya Wilayah Tersebut : ');
                                padatpenduduk(A[i].jum_warga,a[i].luas_wil);
                                write('lapangan kerja : ');
                                tepatusaha(A[i].potensi);

                        end;
                        writeln('Press [e] Edit; [d] Delete; [c]Continue');
                        write('...');readln(pil);
                        until (lowercase(pil)='e') or (lowercase(pil)='d') or (lowercase(pil)='c');

                        if lowercase(pil)='e' then i:=i-1;
                        menuViewOption(pil);
                           }
    for i := 0 to counter do
    begin
      writeln;
      writeln('No :', i + 1);
      writeln('ID RW: ', A[i].id_RW);
      writeln('Jumlah Warga: ', A[i].jum_warga);
      writeln('Luas Wilayah: ', A[i].luas_wil);
      writeln('Potensi Daerah: ', A[i].potensi);
      Write('Padat Atau Tidaknya Wilayah Tersebut : ');
      padatpenduduk(A[i].jum_warga, a[i].luas_wil);
      Write('lapangan kerja : ');
      tepatusaha(A[i].potensi);
    end;

  end;

  procedure edit();
  var
    i: integer;
    p, l: integer;
    m: integer;
  begin
    menuView(A);
    writeln;
    writeln('Masukan Indeks yg mau diedit: ');
    readln(i);
    i := i - 1;
    Write('ID RW                : ');
    readln(A[i].id_RW);
    Write('Jumlah Warga         : ');
    readln(A[i].jum_warga);
    Write('Panjang Wilayah      : ');
    readln(p);
    Write('Lebar Wilayah        : ');
    readln(l);
    A[i].luas_wil := getluas_wil(p, l);
    Write('Potensi daerah       : ');
    readln(A[i].potensi);
    writeln('DATA BERHASIL DINPUTKAN ');

  end;

  procedure Delete;
  var
    del, i: integer;
  begin
    writeln('Masukan indeks yg mau didelete: ');
    readln(del);
    del := del - 1;
    for i := del to counter - 1 do
    begin
      A[i] := A[i + 1];
    end;
    counter := counter - 1;
    writeln('Berhasil Di Delete');
    readln;

  end;

  procedure menuRWOption(opsi: integer);
  var
    N: integer;
  begin
    //N := length(A);
    //setLength(A,N+1);
    //a[n].id_RW,a[n].potensi
    case opsi of
      1: menuInput();
      2: menuView(A);
      3: edit;
    end;
  end;

  procedure menuRW();
  var
    opsi: integer;
    pil: integer;
  begin
                       { repeat
                        clrscr;
                        writeln('DATA PENDUDUK');
                writeln('===============================================');
                writeln(' ____        ___    ____________     ___       ');
                writeln(' ||  \      // \\        ||         // \\      ');
                writeln(' ||   \    //   \\       ||        //   \\     ');
                writeln(' ||    \  //_____\\      ||       //_____\\    ');
                writeln(' ||    / //       \\     ||      //       \\   ');
                writeln(' ||   / //         \\    ||     //         \\  ');
                writeln(' ||  / //           \\   ||    //           \\ ');
                writeln('[[[[:::::]]]][[[[:::::]]]][[[[:::::]]]][[[[::::');
                writeln('============================================== ');
                writeln('=              1. input data                 = ');
                writeln('=              2. view data                  = ');
                writeln('=              3. back                       = ');
                writeln('============================================== ');
                        write('option ');readln(opsi);
                        until(opsi>=1) and(opsi<=3);
                        if (opsi<>3) then
                        begin
                                menuRWOption(opsi);
                                menuRW();
                        end;  }

    while pil <> 4 do
    begin
      clrscr;
      writeln('                 |-MENU PILIHAN-|             ');
      writeln('==============================================');
      writeln('=---------------- 1. Input Data  ------------=');
      writeln('=---------------- 2. View Data   ------------=');
      writeln('=---------------- 3. Edit Data   ------------=');
      writeln('=---------------- 4. Delete Data ------------=');
      writeln('=---------------- 5. Search      ------------=');
      writeln('=---------------- 6. Back        ------------=');
      writeln('==============================================');
      write('Masukan no yang ingin di pilih : ');
      readln(pil);
      if pil = 1 then
        menuInput()
      else if pil = 2 then
      begin
        menuView(A);
        readln;
      end
      else if pil = 3 then
      begin
        edit;
        readln;
      end
      else if pil = 4 then
      begin
        Delete;
      end
      else if pil = 5 then
      begin
        search;

      end
      else
    end;
  end;

  procedure homeOption(opsi: integer);
  begin
    case opsi of
      1: MenuRW();
    end;
  end;

  procedure home();
  var
    opsi: integer;
  begin
    repeat
      clrscr;
      writeln('Selamat Datang di Aplikasi Desa');
      writeln(
        '=======================================================');
      writeln(
        '  ||\        /||  ||========   ||\    ||   ||      ||  ');
      writeln(
        '  || \      / ||  ||           || \   ||   ||      ||  ');
      writeln(
        '  ||  \    /  ||  ||========   ||  \  ||   ||      ||  ');
      writeln(
        '  ||   \  /   ||  ||           ||   \ ||   ||      ||  ');
      writeln(
        '  ||    \/    ||  ||========   ||    \||   ||______||  ');
      writeln(
        '                                                       ');
      writeln(
        '=======================================================');
      writeln(
        '=                      1. Menu RW                     =');
      writeln(
        '=                      2. Exit                        =');
      writeln(
        '=======================================================');
      Write('option: ');
      readln(opsi);
    until (opsi = 1) or (opsi = 2);

    if opsi <> 2 then
    begin
      homeOption(opsi);
      home();
    end;
  end;

begin
  clrscr;
  user := 'Egha';
  pass := 'rasty';
  user := 'admin';
  pass := 'admin';
  x := 0;
  counter := -1;
  for i := 1 to 3 do
  begin
    writeln('Please Login With Your Account');
    writeln('================================');
    writeln;
    Write('Username : ');
    readln(u);
    Write('Password : ');
    readln(p);
    if user = u then
    begin
      if p = pass then
      begin
        x := 1;
        break;
      end;
    end;
    clrscr;
    writeln('Username or Password didnt Founds');
    writeln;
  end;
  clrscr;
  if x = 0 then
    writeln('Sorry, Your Account Has Been Blocked')
  else if x = 1 then
    writeln('Welcome ,', user, '!');
  writeln('Click [Enter] to Continue');
  readln;

  home();
end.