Array Dalam Pascal

Array adalah tipe data terstruktur yang terdiri dari sejumlah komponen-komponen yang mempunyai tipe sama. Komponen-komponen tersebut disebut sebagai komponen type, larik mempunyai jumlah komponen yang jumlahnya tetap.

Banyaknya komponen dalam larik ditunjukkan oleh suatu index, dimana tiap komponen di array dapat diakses dengan menunjukkan nilai indexnya atau subskript.
Array dapat bertipe data sederhana seperti byte, word, integer, real, bolean, char, string dan tipe data scalar atau subrange.
Tipe larik mengartikan isi dari larik atau komponen- komponennya mempunyai nilai dengan tipe data tersebut.
Contoh: Var Untai : array[1..50] of Integer; Pada contoh Array dengan nama untai telah dideklarasikan dengan tipe integer, dengan jumlah elemen maksimum 50 elemen, nilai dari elemen array tersebut diatas harus bertipe integer.

Contoh program :
Program isian;
Uses crt;
Var nm:array[1..5] of string[20];
Nl:array[1..5] of real;
I:integer;
Begin
For i:= 1 to 5 do
Begin
Write(‘Nama siswa ke-‘,I,’:’);readln(nm[i]);
Write(‘Nilai siswa ke-‘,I,’:’);readln(nl[i]);
End;
Clrscr;
Write(‘Nomor urut:’);readln(k);
Writeln(‘Nama siswa:’,nm[k]);
Write(‘Nilai siswa : ‘,nl[k]:4:2);
End.

Advertisements
Posted in Uncategorized | Tagged | Leave a comment

IMPLEMENTASI ALGORITMA

Algoritma adalah urutan langkah – langkah logis penyelesaian masalah yang disusun secara sistematis.
Ciri Algoritma : (menurut Donald E. Knuth)
1.Algoritma mempunyai awal dan akhir.
2.Setiap langkah harus didefinisikan dengan tepat sehingga tidak memiliki arti ganda (not ambigious).
3.Memiliki masukan (input)/kondisi awal
4.Memiliki keluaran (output)/kondisi akhir
5.Algoritma harus efektif, bila diikuti benar – benar akan menyelesaikan persoalan.
Contoh studi kasus :
Sebuah mobil telah digunakan beberapa tahun, didapatkan jumlah kerusakan pertahun sebagai berikut :
Tahun pertama, jumlah kerusakan = 0 dan probabilitas = 0.25
Tahun kedua, jumlah kerusakan = 1 dan probabilitas = 0.15
Tahun ketiga, jumlah kerusakan = 2 dan probabilitas = 0.10
Tahun keempat, jumlah kerusakan = 3 dan probabilitas = 0.35
Tahun kelima, jumlah kerusakan = 4 dan probabilitas = 0.15
Pertanyaan : Tentukan berapa jumlah kerusakan yang paling sering tiap tahunnya jika diketahui angka random 57,12,70,38,91,28,95,73,13, dan 90.
Penyelesaian :
Untuk mengatasi persoalan di atas, adalah sebagai berikut : (Aq menggunakan bahasa Turbo Pascal)
Algoritma 1
Algoritma untuk mencari frekuensi kumulatif (CDF) per tahun :

Program hitungCDF;
Uses crt;
Var
jlh:array[1..5] of integer;
S1,r1,total,distr:array[1..5] of real;
A,I,k:integer;
Begin
Textcolor(4);textcolor(15);
Clrscr;
For i:=1 to 5 do
Begin
Clrscr;
Write(‘Jumlah kerusakan : ‘);readln(jlh[i]);
Write(‘Distribusi densitas : ‘);readln(distr[i]);
End;
Total[1]:=distr[1];
For i:=2 to 5 do
Total[i]:=total[i-1]+distr[i];
A:=100;
For i:=1 to 5 do
Begin
R1[i]:=a*total[i];
End;
S1[1]:=0;
For i:=2 to 5 do
Begin
S1[i]:=(r1[i-1])+1;
End;
Clrscr;
Gotoxy(7,2);textcolor(4+128);writeln(‘Tabel fungsi kumulatif distribusi kerusakan mobil’); Gotoxy(7,3);textcolor(1);writeln(‘———————————————————-‘); Gotoxy(7,4);writeln(‘No Jml kerusakan Distr. Prob F. Kumulatif ‘);
Gotoxy(7,5);writeln(‘———————————————————-‘);
For k:=1 to 5 do
Begin
Gotoxy(7,5+k);
Writeln(‘’,k,’’,jlh[k],’’,distr[k]:5:2,’’,total[k]:5:2);
End; Gotoxy(7,11);writeln(‘———————————————————-‘);
Readln;
Gotoxy(7,13);textcolor(4+128);writeln(‘Tabel angka penunjuk batasan’); Gotoxy(7,14);textcolor(1);writeln(‘———————————————————-‘);
Gotoxy(7,15);writeln(‘No Jml kerusakan Distr. Prob Tag number ‘); Gotoxy(7,16);writeln(‘———————————————————-‘);
For k:=1 to 4 do
Begin Gotoxy(7,16+k);writeln(‘’,k,’’,jlh[k],’’,distr[k]:5:2,’’,s1[k]:2:0,’-‘,r1[k]:2:0);
End;
Writeln(‘5’,jlh[5],’’,distr[5]:5:2,’’,s1[5]:2:0,’-‘,(r1[5])-1:2:0);
Writeln(‘———————————————————-‘);
Readln;
End.

Algoritma 2
Algoritma untuk mencari jumlah total kerusakan mobil sesuai dengan tag numbernya :

Program hitungFrekuensi;
Uses crt;
Var
kerusakan:array[0..4] of integer;
Angka: byte;
I,n: integer;
Begin
Textcolor(3);textbackground(0);clrscr;
Kerusakan[0]:=0;kerusakan[1]:=0;kerusakan[2]:=0;kerusakan[3]:=0;kerusakan[4]:=0;
Write(‘Banyaknya jumlah bilangan random : ‘); readln(n);
For i:=1 to n do
Begin
Write(‘Masukkan angka random ke – ‘,I,’:’);readln(angka);
Case angka of
0..25:kerusakan[0]:=kerusakan[0]+1;
26..40:kerusakan[1]:=kerusakan[1]+1;
41..50:kerusakan[2]:=kerusakan[2]+1;
51..85:kerusakan[3]:=kerusakan[3]+1;
86..99:kerusakan[4]:=kerusakan[4]+1;
End;
End;
Writeln;writeln;writeln;
For i:=0 to 4 do
Begin
Textcolor(3+128);
Writeln(‘Banyaknya jumlah kerusakan’,I,’=’,kerusakan[i]);
End;
Readln;
End.

Posted in Uncategorized | Tagged , | Leave a comment

Berkenalan Dengan Java

Java diciptakan oleh suatu tim yang dipimpin oleh Patrick Naughton dan James Gosling dalam suatu proyek dari Sun Microsystem yang memiliki kode Green dengan tujuan untuk mengasilkan bahasa komputer sederhana yang dapat dijalankan di peralatan sederhana dengan tidak terikat pada arsitektur tertentu.
Mula-mula James Gosling menyebut bahasa pemrograman yang dihasilkan dengan OAK, tetapi karena OAK sendiri merupakan nama dari bahasa pemrograman komputer yang sudah ada maka kemudian Sun mengubahnya menjadi Java (dari inspirasi minum kopi).
Java merupakan bahasa yang powerfull yang bisa digunakan dalam hampir semua bentuk pengembangan software. Anda dapat menggunakan Java untuk membuat game, aplikasi desktop, aplikasi web, aplikasi enterprise, aplikasi jaringan, dan lain-lain. Yang menarik adalah bahwa Java bisa digunakan untuk membuat program yang dapat berjalan di atas HP, PDA, dan peralatan lain yang dilengkapi dengan Java Virtual Machine (JVM).

KEUNGGULAN JAVA
1. Java bersifat sederhana dan relative mudah digunakan. Hal ini disebabkan Java dikembangkan dari bahasa C++ yang bersifat object oriented dengan menghilangkan beberapa fitur dan menambah fitur-fitur yang dianggap penting.
2. Java berorientasi objek (Object Oriented) dalam menyusun program. Java membagi program menjadi objek-objek, kemudian objek-objek tersebut dimodelkan sesuai karakteristik masing-masing. Selanjutnya, Java mengatur hubungan antar objek tersebut.
3. Java bersifat terdistribusi, yaitu dapat digunakan pada jaringan yang luas tidak hanya pada personal computer (PC).
4. Java bersifat multiplatform sehingga Java dapat digunakan dalam berbagai sistem operasi, baik Windows, Linux, Apple, dan lainnya, tanpa melakukan banyak konfiguasi.
5. Java bersifat multithread, yaitu mampu mengerjakan beberapa proses dalam waktu yang hampir bersamaan.

Posted in Uncategorized | Tagged | Leave a comment

Welcome

Selamat Datang Di WordPress saya. Disini anda akan mendapat informasi tentang Teknologi tebaru dan terkini.

PROFILE DPS

DPS singkatan dari Divisi Pendidikan Sekolah. Merupakan divisi dari LP3T Nurul Fikri atau NF Computer yang bergerak di jasa pendidikan IT untuk sekolah-sekolah. Pendidikan IT disekolah mulai resmi dijalankan sejak dikeluarkannya kurikulum KTSP 2006. Pada kurikulum ini lahirlah pelajaran TIK (teknologi informasi dan komunikasi) yang membahas tentang berbagai peralatan teknologi, perangkat lunak/software, cara penggunaan dan wawasan lainnya seputar pemanfaatan teknologi informasi dan komunikasi.

Divisi Pendidikan Sekolah lahir pada tahun 1999. Saat itu pelajaran computer masih berstatus sebagai muatan lokal (pelajaran pilihan / tidak wajib). Hanya sekolah-sekolah tertentu yang memasukkan IT sebagai nilai plus. Sejak awal berdiri, DPS berkomitment untuk turut serta memajukan bidang IT melalui pendidikan pada jenjang TK, SD, SMP dan SMA melalui produk-produk inovatif kami.

KERJASAMA

Divisi Pendidikan Sekolah (DPS) – LP3TNF merupakan salah satu divisi yang bergerak di bidang pendidikan sekolah, dmana DPS adalah divisi yang bekerjasama dengan sekolah-sekolah baik itu Swasta atau Negeri. Saat ini, kerjasama yang sudah dilakukan antara lain: pengadaan laboratorium komputer, upgrade komputer, tenaga pengajar yang profesional, maintenance, software pendidikan, robotik, broadcasting, radio sekolah, dan masoh banyak lagi.

Berikut adalah sekolah-sekolah yang sedang bekerjama dengan DPS-LP3TNF :

  1. Sekolah KBTK Islam Al-Azhar 8, Jakapermai – Bekasi (informasi, blog)
  2. Sekolah SD Islam Al-Azhar 6, Jakapermai – Bekasi (informasi , blog)
  3. Sekolah SMP Islam Al-Azhar 6, Jakapermai – Bekasi (informasi , blog)
  4. Sekolah KBTK Islam Al-Azhar 11, Kemang Pratama – Bekasi (informasi, blog)
  5. Sekolah SMP Islam Al-Azhar 9, Kemang Pratama – Bekasi (informasi , blog)
  6. Sekolah SMP Islam Al-Azhar 8, Kemang Pratama – Bekasi (informasi , blog)
  7. Sekolah SD Islam Al-Azhar 9, Kemang Pratama – Bekasi (informasi , blog)
  8. Sekolah SMA Islam Al-Azhar 4, Kemang Pratama – Bekasi (informasi , blog)
  9. Sekolah TK/SD Islam Al-Izhar, Pondok Labu – Jakarta (informasi , blog)
  10. Sekolah SMP Islam Al-Izhar, Pondok Labu – Jakarta (informasi , blog)
  11. Sekolah SMA Islam Al-Izhar, Pondok Labu – Jakarta (informasi , blog)
  12. Sekolah SD Islam Terpadu Nurul Fikri, Depok – Jawa Barat (informasi , blog)
  13. Sekolah SMP Islam Terpadu Nurul Fikri, Depok – Jawa Barat (informasi , blog)
  14. Sekolah SMA Islam Terpadu Nurul Fikri, Depok – Jawa Barat (informasi , blog)
  15. Sekolah SD Negeri 06, Kampung Tengah – Jakarta (informasi , blog)
  16. Sekolah SD Negeri 09, Kampung Tengah – Jakarta (informasi , blog)
  17. Sekolah SMP Negeri 49, Jakarta Timur (informasi , blog)
  18. Sekolah SMA Negeri 81, Jakarta Timur (informasi , blog)
Posted in Uncategorized | Leave a comment