| Double Attack | Level | 10 | |
| Increase Dodge | Level | 10 | |
| Steal | Level | 8 | |
| Hiding | Level | 10 | |
| Envenom | Level | 10 | |
| Detoxify | Level | 1 | |
| Sprinkle Sand | Level | 1 | Quest Skill |
| Back Sliding | Level | 1 | Quest Skill |
| Pick Stone | Level | 1 | Quest Skill |
| Throw Stone | Level | 1 | Quest Skill |
| Right-Hand Mastery | Level | 5 | |
| Left-Hand Mastery | Level | 5 | |
| Katar Mastery | Level | 10 | |
| Cloaking | Level | 3 | |
| Sonic Blow | Level | 10 | |
| Grimtooth | Level | 5 | |
| Enchant Poison | Level | 10 | |
| Poison React | Level | 8 | |
| Advanced Katar Research | Level | 5 | |
| Enchant Deadly Poison | Level | 5 | |
| Soul Breaker | Level | 1 | |
| Meteor Assault | Level | 1 | |
| Create Deadly Poison | Level | 1 | |
| Sonic Acceleration | Level | 1 | Quest Skill |
| Throw Venom Knife | Level | 1 | Quest Skill |
| Venom Impress | Level | 5 | |
| Cross Impact | Level | 5 | |
| Dark Illusion | Level | 5 | |
| Research New Poison | Level | 5 | |
| Create New Poison | Level | 1 | |
| Antidote | Level | 1 | |
| Poisoning Weapon | Level | 5 | |
| Weapon Blocking | Level | 5 | |
| Venom Pressure | Level | 5 | |
| Poison Smoke | Level | 3 | |
| Cloaking Exceed | Level | 5 | |
| Phantom Menace | Level | 1 | |
| Hallucination Walk | Level | 3 |
Minggu, 04 Maret 2012
gx
Langganan:
Posting Komentar (Atom)
Program olahdata;
BalasHapususes wincrt;
var x:array[1..100] of real; {maksimum 100 data}
n,i,j:integer;
s,m,v,d:real;
begin
writeln('Program Olah Data Sederhana:');writeln;
write('Cacah data: 100 <= ');readln(n);
writeln('Data acak dalam rentang 0 - 100:');
writeln;
{hasilkan data langsung hitung jumlahnya}
s:=0;
randomize;
for i:=1 to n do
begin
x[i]:=random(101);
writeln(' Data ke-',i,': ',x[i]:5:2);
s:=s+x[i];
if i mod 15 = 0 then
begin write('Tekan ENTER ...');readln;end;
end;
m:=s/n; {rata-rata}
v:=0;{hitung varians}
for i:=1 to n do v:=v+sqr((x[i]-m));
v:=v/n;
{urutkan data dari terbesar ke terkecil ...}
for i:=1 to n-1 do
for j:=i+1 to n do
if x[i]<x[j] then {tukar nilai x[i] dan x[j]}
begin
d:=x[i];x[i]:=x[j];x[j]:=d;
end;
{cetak data ...}
writeln;
writeln('Jumlah data = ',s:5:3);
writeln('Rata-rata = ',m:5:3);
writeln('varians = ',v:5:3);
writeln('Simpangan baku = ',sqrt(v):5:3);
writeln;
writeln('Data setelah diurutkan:');writeln;
for i:=1 to n do
begin write(x[i]:8:2); if i mod 8 = 0 then writeln; end;
readln;
end.
praktikum 7 tq
BalasHapus