WanShiTong/f15_cariAnggota.pas at master · littlemight/WanShiTong · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
unit f15_cariAnggota;

interface
uses
    utilitas, f02_Login,
    user_handler;
{ KAMUS }
var
    inp : string;

{ DEKLARASI FUNGSI DAN PROSEDUR }
function cek(data_user : tabel_user; inp : string) : User;
procedure cetak(data : user);
procedure lihatUser(data_user : tabel_user);

{ IMPLEMENTASI FUNGSI DAN PROSEDUR }
implementation
function cek(data_user : tabel_user; inp : string) : User;
    { DESKRIPSI : Mencari user di tabel user }
    { PARAMETER : tabel user }
    { RETURN    : data user yang valid jika benar, dan header array jika salah }

    { KAMUS LOKAL }
    var
        i : integer;
        found: boolean = false;
    { ALGORITMA }
    begin
        i := 1;
        while (i < data_user.sz) and (found <> true) do
        begin
            if(inp <> data_user.t[i].Username) then i := i+1 else
            begin
              found := true;
              cek := data_user.t[i];
            end;
        end;
        if(found = false) then cek := data_user.t[0];
    end;

procedure cetak(data : user);
    { DESKRIPSI : Mencetak nama dan alamat user }
    { PARAMETER : data user }
    begin
        writeln('Nama Anggota: ', data.Nama);
        writeln('Alamat anggota: ',data.Alamat);
    end;

procedure lihatUser(data_user : tabel_user);
    { DESKRIPSI : Melihat user di tabel user }
    { PARAMETER : tabel user }

    { KAMUS LOKAL }
    var
        inp : string;
        who_user : user;
    { ALGORITMA }
    begin
        write('Masukkan username: ');
        readln(inp);
        who_user := data_user.t[data_user.sz+1];
        who_user := cek(data_user,inp);
        if (who_user.Role = data_user.t[0].Role) then writeln('User tidak ditemukan!') else
        cetak(who_user);
    end;
end.