Komunitas Indonesia Open Source

Q=[], W=[], E=[], R=[], T=0
ulang = "y"
puts " Sistem Data Diri Pegawai "
puts " "
until ulang == "t"
puts " = 1. Masukkan Data Pegawai  "
puts " = 2. Cari Data Berdasarkan No Pegawai  "
puts " "
print "Masukkan Pilihan Menu: "
menu=gets.to_i
puts
#------menu 1------
def masuk()
puts "Masukkan Banyak Biodata : "
$batas=gets.to_i
$data=[]
for a in 1..$batas
$baris=[]
  for s in 1..4
  case
     when s==1 
      puts "Masukkan Nama Pegawai ke "+a.to_s+" : "
      when s==2
      puts "Masukkan Nomer Pokok karyawan: "
      when s==3
      puts "Masukkan Alamat Karyawan : "
      when s==4
      puts "Masukkan Gaji : "
    end
    $baris[s-1]=gets
  end
puts
puts
$data[a-1]=$baris
end
puts
puts "data yang sudah dimasukkan : "
  for d in 0..$batas-1
    for f in 0..3
      case
        when f==0
        print "Nama Pegawai: "
        when f==1
        print "Nomer Pegawai : "
        when f==2 
        print "Alamat : "
        when f==3
        print "Gaji : "
      end
    print $data[d][f].to_s
    end
    puts
  end
end
#-----Cari----
def pencarian()
z=0
puts
puts
print "mencari biodata, masukkan No Pegawai : "
cari=gets;
  for n in 0..$batas-1
    for m in 0..3
      if $data[n][m]==cari
      z=1
      nomor=n
      isi=m
    end
  end
end
  if z==1
    puts "Data Ditemukan : "
    puts
      for p in 0..isi+2
        if p==0
          print "Nama Pegawai: "
          elsif p==1
          print "Nomer Pegawai : "
          elsif p==2 
          print "Alamat : "
          elsif p==3
          print "Gaji : "
        end
      print $data[nomor][p].to_s
      end
    else 
    puts "Maaf, Data Tidak Ditemukan"
    end
end
if menu == 1
  masuk()
  elsif menu == 2
  pencarian()
  puts ""
  else menu == 3
  break
end
puts
print "Apakah Anda Ingin Mengulangi? (y/t) "
ulang=gets[0].chr()
end