uses wincrt;
var i,n:integer;
j,k,l,m:real;
x:array[1..100] of integer;
begin
write('jumlah data= ');readln(n);
j:=0;
for i:=1 to n do
begin
write('suku',i,'=');
readln(x[i]);
j:=j+x[i];
end;
k:=j/n;
l:=l+(sqr(x[i]-k)/(n-1));
m:=sqrt(l);
writeln;
writeln('jumlah data= ',n);
writeln('nilai data= ',j:1:2);
writeln('rata nilai data= ',k:1:2);
writeln('variansi= ',l:1:2);
writeln('standart deviasi= ',m:1:2);
end.
untuk data yang dimasukkan berupa data genap bukan pecahan bila dengan pecahan maka array yang dipakai adalah real
program konversi_angka_ke_teks;
uses wincrt;
var angka:integer;
begin
read (angka);
case angka of
1: write ('satu');
2: write ('dua');
3: write ('tiga');
4: write ('empat');
else write('angka salah');
end;
end.
program konversi_angka_ke_teks;
uses wincrt;
var angka:integer;
begin
write ('masukkan angka'); read(angka);
if angka=1 then write ('satu')
else if angka=2 then write ('dua')
else if angka=3 then write ('tiga')
else if angka=4 then write ('empat')
else write('angka yang dimaksudkan salah')
{endif}
{endif}
{endif}
{endif}
end.
program quartil;
uses wincrt;
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;
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.
Tampilan ketika program ini di run adalah sebagai berikut :
