Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- { NIM/Nama : 16516372/Muhamad Arif Adiputra }
- { Nama File : B01-16516372-160921-02.pas}
- { Tanggal : 21 September 2016}
- { Deskripsi : Kontes Meminjam Buku Perpustakaan Terbanyak dari 3 orang}
- program Juarakontesmeminjam; {Kontes Meminjam Buku Perpustakaan Terbanyak dari 3 orang}
- {Kamus}
- type
- p = record {p = peserta}
- {n = nama; j = jumlah}
- n : string;
- j : integer;
- end;
- var
- p1, p2, p3 : p; {deklarasi tipe p untuk peserta}
- {Algoritma}
- begin
- write('Masukan nama peserta 1 : '); readln(p1.n);
- write('Masukan jumlah buku yang dipinjam : '); readln(p1.j);
- write('Masukan nama peserta 2 : '); readln(p2.n);
- write('Masukan jumlah buku yang dipinjam : '); readln(p2.j);
- write('Masukan nama peserta 3 : '); readln(p3.n);
- write('Masukan jumlah buku yang dipinjam : '); readln(p3.j);
- {program inti pencari pemenang peminjam buku terbanyak}
- if(p1.j>p2.j) and (p1.j>p3.j) then
- begin
- writeln('Pemenang kontes ini adalah ', p1.n);
- end
- else if(p2.j>p1.j) and (p2.j>p3.j) then
- begin
- writeln('Pemenang kontes ini adalah ', p2.n);
- end
- else {if(p3.j>p1.j) and (p3.j>p1.j)}
- begin
- writeln('Pemenang kontes ini adalah ', p3.n);
- end;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement