Mencari Kuartil Dengan Pascal

Kuartil
Kuartil adalah nilai ukuran yang membagi data yang sudah terurut menjadi empat bagian yang sama. Contoh suatu data terurut seperti berikut. Data yang terdapat pada batas pengelompokan pertama disebut kuartil bawah (Q1), batas pengelompokan kedua disebut kuartil tengah (Q2), dan batas pengelompokan ketiga disebut kuartil atas (Q3).1 1 2 3 3 3 4 4 5 5 6 7 8 Data yang terdapat pada batas pengelompokan pertama disebut kuartil bawah (Q1) , batas pengelompokan kedua disebut kuartil tengah (Q2), dan batas pengelompokan ketiga disebut kuartil atas (Q3). Untuk menentukan nilai-nilai kuartil, kita tentukan nilai kuartil tengah (Q2) terlebih dahulu. Nilai Q2 adalah median dari data tersebut. Selanjutnya, seluruh data yang berada di sebelah kiri Q2, digunakan untuk mencari Q1. Nilai Q1 adalah median dari data sebelah kiri Q2, sedangkan Q3 adalah median dari seluruh data di sebelah kanan Q2 Selain dengan cara di atas, nilai kuartil dapat ditentukan dengan menggunakan rumus berikut.

Q1=datake–I (n+1)
4
i=1,2,3
n = Banyak data

Contoh Program

program quartil;

uses crt;

type

arrint = array [1..100] of real;

procedure tukar(var a,b : real);

var Bantu : real;

begin

Bantu := a;

a := b;

b := Bantu;

end;

procedure buble(var x:arrint ; n: integer);

  var i,j : integer;

  begin

    for i:=1 to n-1 do

    for j:=1 to n-i do

    if x[j] > x[j+1] then

    tukar(x[j],x[j+1]);

  end;

procedure ganjil(var x:arrint ; n: integer);

var

q1,q2,q3:integer;

begin

q1 :=(n+1) div 4;

q2 :=(n+1) div 2;

q3 :=(3*(n+1)) div 4;

write('quartil 1 dari data tersebut adalah : ',x[q1]:2:2);writeln;

write('quartil 2 dari data tersebut adalah : ',x[q2]:2:2);writeln;

write('quartil 3 dari data tersebut adalah : ',x[q3]:2:2);writeln;

end;

procedure genap(var x:arrint ; n: integer);

var

q1,q2,q3:integer;

median:real;

begin

q1 :=(n+2) div 4;

q2 :=n div 2;

median:= ((x[q2])+(x[q2+1])) / 2;

q3 :=(3*n+2) div 4;

write('quartil 1 dari data tersebut adalah : ',x[q1]:2:2);writeln;

write('quartil 2 dari data tersebut adalah : ',median:2:2);writeln;

write('quartil 3 dari data tersebut adalah : ',x[q3]:2:2);writeln;

end;

var

n,i : integer;

data : arrint;

{PROGRAM UTAMA}

begin

clrscr;

write('masukkan banyak data : ');readln(n);

for i:= 1 to n do

begin

write('data ke-',i,' = ');readln(data[i]);

end;

buble(data,n);

for i:=1 to n do

write(data[i]:0:0,', ');

writeln;

if n mod 2 = 1 then

  ganjil(data,n)

else

  genap(data,n);

readln;

end.

Outputnya :