Tampilkan postingan dengan label tugas. Tampilkan semua postingan
Tampilkan postingan dengan label tugas. Tampilkan semua postingan

Sabtu, 13 Oktober 2012

Tugas II MPS : Survey Sistem

Sistem Penerimaan Santri Baru Pondok Pesantren Innayatullah Yogyakarta


Lingkungan :Pondok Pesantren Innayatullah Yogyakarta

Output
  • KTS (Kartu Tanda Santri)
  • Kitab-kitab
Input
  • Data Calon Santri
  • Biaya Administrasi
Hasil wawancara dengan pengurus registrasi pondok pesantren innayatullah
1.       System penerimaan santri baru di pondok pesantren Innayatullah seperti apa?
2.       Syarat apa saja yang perlu dipenuhi?
3.       Bagaimana system penyimbanan data santri baru?
4.       Media apa saja yang digunakan untuk dalam penerimaan santri baru?
5.       Kapan calon santri bisa mendaftar?
6.   Fasilitas yang diberikan untuk satri baru berupa apa?

Jawaban:
1. Sistem penerimaan santri di sini, dilakukan secara langsung. Calon santri datang kesini diusahakan bersama wali dan bertemu langsung ke Pak. Kyai Khamdani Yusuf untuk meminta izin. Jika di izinkan akan diadakan masa percobaan selama 30 hari.
2. Syarat yang harus dipenuhi:
                a. Islam
                b. Persedia mengikuti aturan pondok
                c. Membayar uang gedung + spp 1 bulan setelah masa percobaan 30 hari.
3. Sistem penyimpan berkas registrasi dalam bentuk kertas formulir dan rekap data di computer pengurus.
4. Calon santri harus langsung datang ke pondok. Belum ada media yangsecara tidak langsung untuk mendaftar. Biasanya calon santri mengetahui tempat ini darai mulut ke mulut. Seadankan blog dari inayatullah sekarang sedikit terbengkalai.
5. Tidak ada batasan waktu untuk pendaftaran. Pendaftaran dibuka 7 hari dalam seminggu.
6. Fasilitas yang diberikn berupa tempat tinggal, kitab, ktm, ilmu yang sangat bermanfaat.


Kelompok

1. Reza Pragita Daza
2. Adi Handoko
3. Sunardi
4. Shodiq Haifani


Senin, 23 April 2012

Program Perkalian Matrik dengan Pascal

Kali ini gue mau mosting mengenai perkalian matrik di Turbo Pascal. Katanya juga nie buat quiz besok dikampus. Sebenarnya masih keganggu mengenai masalah yang kemarin,tapi ya sudahlah.


Dan ini contoh syntaxnya
uses wincrt;

type matrik = array [1..50,1..50]of integer;
var
   a,b,c:matrik;
   i,j,k,x,y,z:integer;


procedure cetak;
begin
for i:= 1 to x do
for j:= 1 to y do
begin
     write('Matrik A [',i,',',j,'] =');
     readln(a[i,j]);
end;
writeln;
for i:= 1 to y do
for j:= 1 to z do
begin
     write('Matrik B [',i,',',j,'] =');
     readln(b[i,j]);
end;
end;

procedure kali;
begin
for i:= 1 to x do
for j:= 1 to z do
for k:= 1 to y do
c[i,j]:= c[i,j]+ a[i,k]*b[k,j];
end;

procedure hasil;
begin
writeln('Hasil dari perkalian Matrix A dengan Matrix B adalah : ');
Writeln;
for i:=1 to x do
begin
for j:=1 to z do
write(c[i,j],' ');
writeln;
end;
writeln;
readln;
end;

begin
writeln('Ordo matrik A');
write('Baris =');
readln(x);
write('Kolom =');
readln(y);
writeln;
writeln;
writeln('Ordo matrik B');
writeln('Baris =',y);
write('Kolom =');
readln(z);
cetak;
writeln;
kali;
writeln;
hasil;
end.

Senin, 19 Desember 2011