Advertisement
sylpheed

B01-16516372-160921-02.pas

Oct 1st, 2016
137
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 1.17 KB | None | 0 0
  1. { NIM/Nama      : 16516372/Muhamad Arif Adiputra }
  2. { Nama File     : B01-16516372-160921-02.pas}
  3. { Tanggal       : 21 September 2016}
  4. { Deskripsi     : Kontes Meminjam Buku Perpustakaan Terbanyak dari 3 orang}
  5.  
  6. program Juarakontesmeminjam; {Kontes Meminjam Buku Perpustakaan Terbanyak dari 3 orang}
  7.  
  8. {Kamus}
  9. type
  10.     p = record {p = peserta}
  11.     {n = nama; j = jumlah}
  12.     n : string;
  13.     j : integer;
  14. end;
  15.    
  16. var
  17.     p1, p2, p3 : p; {deklarasi tipe p untuk peserta}
  18.    
  19. {Algoritma}
  20. begin
  21.     write('Masukan nama peserta 1 : '); readln(p1.n);
  22.     write('Masukan jumlah buku yang dipinjam : '); readln(p1.j);
  23.     write('Masukan nama peserta 2 : '); readln(p2.n);
  24.     write('Masukan jumlah buku yang dipinjam : '); readln(p2.j);
  25.     write('Masukan nama peserta 3 : '); readln(p3.n);
  26.     write('Masukan jumlah buku yang dipinjam : '); readln(p3.j);
  27.     {program inti pencari pemenang peminjam buku terbanyak}
  28.     if(p1.j>p2.j) and (p1.j>p3.j) then
  29.     begin
  30.         writeln('Pemenang kontes ini adalah ', p1.n);
  31.     end
  32.     else if(p2.j>p1.j) and (p2.j>p3.j) then
  33.     begin
  34.         writeln('Pemenang kontes ini adalah ', p2.n);
  35.     end
  36.     else {if(p3.j>p1.j) and (p3.j>p1.j)}
  37.     begin
  38.         writeln('Pemenang kontes ini adalah ', p3.n);
  39.     end;
  40. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement