Membuat Histogram dan Poligon pada R-Programing

Rumus untuk menampilkan  :

• HISTOGRAM

           HIST(data,main="nama Judul yang diinginkan)

• POLIGON

           PLOT (titik tengah,frekuensi,main ="nama Judul yang diinginkan)

Untuk merubah warna dan garis poligon menggunakan rumus :

           POLIGON(titik tengah, frekuensi, col ="warna yang diinginkan",border="warna yang diinginkan)

CONTOH :

Untuk data tersebar : 

10,12,15,13,20,24,28,24,30,32,32,35,38,20,40,50,45,40,55,65,

70,68,75,55,74,81,85,85,72,55,45,40,55,50,72,85,38,75,20,10,

12,13,25,40,50,56,78,89,90,95

Yang sudah dibuat suatu tabel Distributif Frekuensinya, sebagai berikut : 

Menampilkan histogram bisa menggunakan rumus :

Hist(data,main=”Daftar_Pemasukan_Buku”) 

Menampilkan poligon kita harus mendeklarasikan/menginput titik tengah dan frekuensi yang terdapat pada data terlebih dahulu. 

Titiktengah = c (16.5, 30, 43,  , 95) 

Fi = c (10, 8, 8, …, 3)

Setelah itu untuk mencari mean bisa menggunakan rumus :

Plot (titiktengah, fi, main =”Daftar_Pemasukan_Buku”) 

Untuk merubah warna Poligon, menggunakan rumus :

Polygon (titiktengah, fi, col=”blue”,border=”red”)

Contoh pemecahan persoalan Data tersebar pada R-programing

Diketahui data yang terdiri dari :

10,12,15,13,20,24,28,24,30,32,32,35,38,20,40,50,45,40,55,65,

70,68,75,55,74,81,85,85,72,55,45,40,55,50,72,85,38,75,20,10,

12,13,25,40,50,56,78,89,90,95

Agar mempermudah dalam membuat suatu Tabel Distribusi Frekuensi pada Program-R ini, hal yang dilakukan adalah sebagai berikut :

1.      Mengurutkan data. Rumus : sort (data)

2.      Menentukan jumlah kelas. Rumus :

jumlahkelas = 1 + (3.322*log10 (length (data)))

ket : length (data) merupakan rumus untuk mencari  banyaknya data.

Setelah di enter, untuk memunculkan jumlah kelas ketik >jumlahkelas

Hasil Program diatas muncul : [1] 6.643978

3.      Menentukan jangkauan dengan cara mencari selisih nilai terbesar dan terkecil. Rumus : jangkauan = max (data )- min (data) , lalu enter

Sama halnya seperti jumlah kelas, untuk menampilkan hasil dari rumus jangkauan maka ketik  jangkauan , lalu enter akan muncul [1] 85

4.      Menentukan nilai interval. Rumus :

Interval = jangkauan/jumlahkelas

Setelah dipanggil kembali, hasilnya akan muncul [1] 12.79354

5.      Agar tidak janggal, jumlah kelas dan intervalnya dibulatkan dengan rumus : round (variable yg ingin dibulatkan).

6.      Menentukan Frekuensi. Rumus :

> frekuensi = function (x,y,z)

 + {a=0

 + for (I in 1 : length(data))

 + {if (x[i] >= y && x[i] <= z)

 + {a = a+1}}

 + print (a)}

Untuk memunculkan frekuensi maka tulis : >frekuensi (data , nilai data pertama kelas yang diinginkan ,nilai data terakhir kelas yg diinginkan ). Contoh mencari frekuensi data pertama : >frekuensi (data,10,23)

7.      Setelah itu, tabel Distribusi Frekuensi dapat dibuat dengan rumus :

tabel = edit(data.frame()), lalu enter

akan muncul jenela ini, klik var1 untuk merubah judul kolom1 seperti ini:

8.      Untuk pengisiaan kelas, pada kelas pertama nilai yang pertama kali ditulis adalah nilai   terkecil  yaitu 10 sebanyak interval. Kelas yang kedua dan seterusnya dimulai dari nilai data setelah kelas sebelumnya sampai interval. (setelah ditulis lalu close)

9.      Untuk menampilkan table kita hanya dengan cara mengetik nama tabel yang kita buat tersebut. Rumus : >tabel

Setelah dienter akan muncul

TUGAS Struktur & Organisasi Data

SOAL :

• Buatlah program dengan ketentuan sebagai berikut : 

1. Mencari panjang string dari sebuah string
2. Menggabungkan isi dari 2 buah string
3. Menyisipkan isi sebuah string kedalam string yg lain

• Buat program untuk menampilkan jurusan dan angkatan seseorang mahasiswa di Gunadarma berdasarkan NPM 

JAWABAN

No. 1

Listing program

Program satu;

uses crt;

Label 1;

var q : char;

    s1,s2,jwb,a,c : string;

    b : integer;

begin

clrscr;

1:

writeln ('------Menu------');

writeln ('1. Mencari panjang dari sebuah string');

writeln ('2. Menggabungkan string');

writeln ('3. Menyisipkan isi sebuah string');

writeln ('===========');

repeat

write ('Masukkan pilihan anda : '); readln (q);

    case q of

   '1': begin

        write ('Masukkan String/kata yang diinginkan : '); readln (s1);

        b:=length (s1);

        writeln ('Banyaknya huruf adalah : ', b);

        end;

   '2': begin

        write ('Masukkan String/kata pertama : '); readln (s1);

        write ('Masukkan String/kata kedua : ');readln (s2);

        a := concat (s1,s2);

        writeln ('Hasilnya adalah ', a);

        end;

   '3': begin

        a:= 'nama dari kelas 2ka17';

        INSERT('saripah',a,5);

        writeln ('hasilnya adalah ', a);

        end;

   end;

write('Apakah anda akan menambah pilihan? (y/t) : ');

readln (jwb);

until (jwb ='t');

readln;

end.

Output program

No. 2

Listing Program 

Program dua;

uses crt;

var npm,jur1,jur2,ang1,ang2 : string;

a,b,c : integer;

begin

clrscr;

write (‘Tuliskan NPM anda :’);

readln (NPM);

(*Gunadarma didirikan pada tahun 1981

Kode jurusan :

1 = Strata 1 ; Sistem Informasi

2 = Diploma 3 ; Manajemen Informatika

3 = Strata 1 ; Manajemen Komputer & Akuntansi*)

jur1:= Copy(npm,1,1);

if jur1 = ’1′ then jur2:= ‘Strata 1 – Sistem Informasi’ else

if jur1 = ’2′ then jur2:= ‘Diploma 3 – Manajemen Informatika’ else

if jur1 = ’3′ then jur2:= ‘Strata 1 – Manajemen Komputer & Akuntansi’ else

jur2:= ‘-’;

if jur2 <> ‘-’ then

Writeln(‘Jurusan anda adalah ‘,jur2,’ dengan kode jurusan ‘,jur1,’.’)

else

Writeln(‘Maaf, kode jurusan anda tidak ada dalam database kami.’);

ang1:= Copy(npm,4,2);

val(ang1,b,c);

if b > 81 then

Writeln(‘Anda termasuk angkatan 19′,b,’.’)

else begin

if b < 10 then begin

str(b:1,ang2);

insert(’0′,ang2,1);

Writeln(‘Anda termasuk angkatan 20′,ang2,’.’); end;

writeln(‘Anda termasuk angkatan 20′,b,’.’);

end;

readln;

end.

Output Program