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 |
Guest
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