Quiz

Uses WinCrt;
Type H = Record
hh, mm: Longint;
End;
Var
n, pil: Byte;
again,nama34, alamat34, mail34, id, id2, pass, pass2, e, Lagi, t, u: String;
nim34, no_hp34, tot_m1, tot_m2, tot_m: Longint;
tahun, bulan, y, x, x2, x3, x4, g, i: Integer;
j1, j2:H;
a, b, c, d: Real;

Procedure Tebak (g,i:Integer);
 Begin
  If g<i Then
  Writeln (g,'=Lebih Kecil')
  Else If g>i Then
  Writeln (g,'=lebih besar')
  Else
  Writeln (g,'=Selamat Anda benar');
 End;

 Procedure Tebak2 (t,u:String);
 Begin
  If t<>u Then
  Writeln (t,'= Anda salah')
  Else
  Writeln (t,'=Selamat Anda benar');
 End;

 Function Tebak3 (g,i:Integer):Integer;
 Var j, k, l : Integer;
  begin
   k:=1;
   For i:=1 to i do
   k:=k*g;
     Begin
       If i=0 Then
       Writeln ('Jadi ',g,' pangkat ',i,' =1')
       Else If i=1 Then
       Writeln ('Jadi ',g,' pangkat ',i,' =',g)
       Else If i>1 then
       Writeln('Jadi ',g,' pangkat ',i,' =',k);
     End;
  End;

Begin
again:='y';

Repeat
Begin
Clrscr;
Writeln ('DAFTAR MENU');
Writeln ('1. Program Data Mahasiswa           7.  Program Tebak Kata');
Writeln ('2. Program Login                    8.  Program Tebak Panjang Kata');
Writeln ('3. Program WarTel                   9.  Program Perpangkatan');
Writeln ('4. Program Jumlah Hari              10. Program Belah Ketupat');
Writeln ('5. Program Soal UTS Semester 2      11. Program Jumlah Baris & Kolom');
Writeln ('6. Program Tebak Angka');
Writeln;
Writeln ('Pilihlah angka 1 sampai 11 dari MENU di atas ');
Write ('Silahkan masukan Pilihan anda ? ');readln(n);

Clrscr;
Case n Of
1: Begin
   Write ('Masukkan Nama    : '); Readln(nama34);
   Write ('Masukkan NIM     : '); Readln(nim34);
   Write ('Masukkan Alamat  : '); Readln(alamat34);
   Write ('Masukkan Nomer HP: 085'); Readln(no_hp34);
   Write ('Masukkan E-Mail  : '); Readln(mail34);
   Clrscr;
   Writeln ('>>> DATA MAHASISWA <<<');
   Writeln (' Nama     : ',nama34);
   Writeln (' NIM      : ',nim34);
   Writeln (' Alamat   : ',alamat34);
   Writeln (' Nomer HP : 085',no_hp34);
   Writeln (' E-Mail   : ',mail34);
   End;

2: Begin
   Write ('User Name: '); Readln(id);
   Write ('Password : '); Readln(pass);
   Clrscr;
     Repeat
     Begin
     Write ('Masukkan User Name: '); Readln(id2);
     Write ('Masukkan Password : '); Readln(pass2);
     Writeln;
       Begin   
       If (id=id2) and (pass=pass2) Then
       Writeln ('Selamat Anda Masuk')
       Else
       If (id=id2) and (pass<>pass2) Then
       Writeln ('Maaf Password anda salah ')
       Else
       Writeln ('Anda Belum Terdaftar');
       End;
     Writeln;
     End;
     Until (id=id2) and (pass=pass2);
   End;

3: Begin
   Writeln('Rincian Percakapan');
   Write ('Jam mulai = '); read (J1.hh);
   Write ('Menit mulai= '); read (J1.mm);
   Write ('Jam berakhir= '); read (J2.hh);
   Write ('Menit berakhir= '); read (J2.mm);
              tot_m1 := (J1.hh*60) + J1.mm;
              tot_m2 := (J2.hh*60) + J2.mm;
              tot_m:=tot_m2 - tot_m1;
   Clrscr;       
  
   Writeln   ('Silahkan Pilih Kota Tujuan Anda');
   Writeln  ('1. Lamongan Tarif Rp.100/menit');
   Writeln  ('2. Surabaya Tarif Rp.500/menit');
   Writeln  ('3. Bandung  Tarif Rp.1000/menit');
   Writeln  ('4. Jakarta  Tarif Rp.1500/menit');
   Writeln;
   Write('Silahkan Pilih Kota Tujuan anda [1/2/3/4] ? ');readln(pil);
   Clrscr;
         Case pil Of
      1: begin
         c:=(b-a);
         Writeln ('Lama pembicaraan                    = ',tot_m,' menit');
         e:=('Lamongan');
         Writeln ('Kota Tujuan                         = ',e);
         d:=tot_m*100;
         Writeln ('Biaya Yang Harus Anda Bayar adalah  = Rp. ',d:0:0);
         End;
      2: Begin
         c:=(b-a);
         Writeln ('Lama pembicaraan                    = ',tot_m,' menit');
         e:=('Surabaya');
         Writeln ('Kota Tujuan                         = ',e);
         d:=tot_m*500;
         Writeln ('Biaya Yang Harus Anda Bayar adalah  = Rp. ',d:0:0);
         End;
      3: Begin
         c:=(b-a);
         Writeln ('Lama pembicaraan                    = ',tot_m,' menit');
         e:=('Bandung');
         Writeln ('Kota Tujuan                         = ',e);
     d:=tot_m*1000;
         Writeln ('Biaya Yang Harus Anda Bayar adalah  = Rp. ',d:0:0);
         End;
      4: Begin
         c:=(b-a);
         Writeln ('Lama pembicaraan                    = ',tot_m,' menit');
         e:=('Jakarta');
         Writeln ('Kota Tujuan                         = ',e);
         d:=tot_m*1500;
         Writeln ('Biaya Yang Harus Anda Bayar adalah  = Rp. ',d:0:0);
         End;
      End;
   End;

4: Begin

   Write (' Masukan Tahun='); readln(Tahun);
   Write (' Masukan Bulan='); readln(Bulan);
   Clrscr;
   If (Bulan=1) Or (Bulan=3) Or (Bulan=5) Or (Bulan=7) Or (Bulan=8) Or (Bulan=10) Or (Bulan=12) Then
   Writeln ('Pada tahun ',tahun,' bulan ',bulan,' ada 31 hari')
   Else 
   If (Bulan=4) Or (Bulan=6) Or (Bulan=9) Or (Bulan=11) Then
   Writeln ('Pada tahun ',tahun,' bulan ',bulan,' ada 30 hari')
   Else
   If (Bulan=2) And (Tahun Mod 4= 0) Then
   Writeln ('Pada tahun ',tahun,' bulan ',bulan,' ada 29 hari')
   Else
   If (Bulan=2) Then
   Writeln ('Pada tahun ',tahun,' bulan ',bulan,' ada 28 hari');
   End;

5: Begin
   Lagi:='y';
   While (Lagi='y') Or (Lagi='Y') Do
   Begin
   Write ('Masukan nilai n?'); Readln (y);
   Clrscr;
   Writeln ('Tebel perpangkatan nilai x sebagai berikut:');
   Writeln ('x':1, 'x^2':6, 'x^3':11, 'x^4':14);
   Writeln ('------------------------------------');
      Begin
      For x:=1 To y Do
        Begin
        x2:=x*x;
        x3:=x*x*x;
        x4:=x*x*x*x;
        If x=5 Then
        Writeln ('Mahasiswa UNISLA Harus bisa, Tapi Inget g pake contoh :-)')
        Else
        Writeln (x:1, x2:6, x3:11, x4:16);
        End;
        Writeln ('------------------------------------');
        Write ('Coba lagi (Tekan y untuk ulang)'); Readln (Lagi);
        Writeln;
        End;
      End;
   End;

6: Begin
   Write ('Nilai =');readln(i);
   While (g<>i) do
       Begin
       Write ('Masukan angka='); readln (g);
       Tebak(g,i);
       Writeln;
       End;
   End;

7: Begin
   Write ('kata =');readln(u);
   While (t<>u) do
       Begin
       Write ('Masukan kata='); readln (t);
       Tebak2 (t,u);
       Writeln;
       End;
   End;

8: Begin
   Write ('Masukan kata='); readln(u);
   i:=length(u);
   While (g<>i) do
       Begin
       Write ('Berapa panjang kata='); readln(g);
       Tebak(g,i);
       Writeln;
       End;
   End;

9: Begin
   Write('Angka = '); readln(g);
   Write('Pangkat = '); readln(i);
   Tebak3(g,i);
   End;      
 

End;
Writeln;
Write ('Tekan y untuk mengulang program= '); readln(again);
End;
Until not ((again='y') Or (again='Y'));
Write('Anda Keluar dari Program');
End.