Sabtu, 26 Oktober 2013

Algoritma VB Ukuran Proporsional Tubuh Manusia

1.       Mulai
2.       Munculkan pesan
3.       Pilih jenis kelamin
4.       Masukkan usia = i
5.       Deklarasikan j=0, jlb=0, jlp=0, jld=0
6.       Jikai <1 maka lanjutkan ke langkah 8 , jika tidak lanjutkan ke langkah 9
7.       Munculkan pesan "Usia Minimal Adalah 1"
8.       Jika i>150 maka lanjutkan ke langkah 9, jika tidak lanjutkan ke langkah 10
9.       Munculkan pesan "Usia Terlalu Tua"
10.   Jika i bukan bilangan bulat maka lanjutkan ke langkah 11, jika tidak lanjutkan ke langkah 12
11.   Munculkan pesan "Usia Harus Merupakan Bilangan Bulat"
12.   Jika jenis kelamin “laki-laki” maka lanjutkan ke langkah 13, jika tidak lanjutkan ke langkah 34
13.   Jika i>=1 dan i <7 maka lanjutkan ke langkah 14 , jika tidak lanjutkan ke langkah 15
14.   Deklarasikan  x=55.6  r= 10.3 lanjutkan ke langkah 56
15.   Jika i>=7 dan i <16 maka lanjutkan ke langkah 16, jika tidak lanjutkan ke langkah 18
16.   Deklarasikan w=i x=114.75  r=5.27
17.   Hitung w=i – 6 , lanjutkan ke langkah 56
18.   Jika i>=16 dan i <20 maka lanjutkan ke langkah 19 , jika tidak lanjutkan ke langkah 21
19.   Deklarasikan  x=164 r=1.1
20.   Hitung w=i-15 , lanjutkan ke langkah 56
21.   Jika i>=20 dan i <23 maka lanjutkan ke langkah 22, jika tidak lanjutkan ke langkah 24
22.   Deklarasikan  x=168.4 r=0.3
23.   Hitung w=i-9 , lanjutkan ke langkah 56
24.   Jika i>=23 dan i <26 maka lanjutkan ke langkah 25 , jika tidak lanjutkan ke langkah 27
25.   Deklarasikan x=169.3 r=0.1
26.   Hitung w=i-22 , lanjutkan ke langkah 56
27.   Jika i>=26 dan i <40 maka lanjutkan ke langkah 28 , jika tidak lanjutkan ke langkah 30
28.   Deklarasikan x=169.5 r=0
29.   Hitung w=i-25 , lanjutkan ke langkah 56
30.   Jika i>=40 dan i <65 maka lanjutkan ke langkah 30 , jika tidak lanjutkan ke langkah 32
31.   Deklarasikan  x=169,5 r=-0.15
32.   Hitung w=i-39 , lanjutkan ke langkah 56
33.   Deklarasikan x=165.75 r=-0.01
34.   Hitung w=i-65 , lanjutkan ke langkah 56
35.   Jika i>=1 dan i <6 maka lanjutkan ke langkah 36 , jika tidak lanjutkan ke langkah 38
36.   Deklarasikan w=i x=55.6 r=9.9 , lanjutkan ke langkah 56
37.   Jika i>=6 dan i <13 maka lanjutkan ke langkah 38 , jika tidak lanjutkan ke langkah 40
38.   Deklarasikan x=110 r=5.33
39.   Hitung w=i-5 , lanjutkan ke langkah 56
40.   Jika i>=13 dan i <19 maka lanjutkan ke langkah 41 , jika tidak lanjutkan ke langkah 43
41.   Deklarasikan x=148 r=1.1
42.   Hitung w=i-12 , lanjutkan ke langkah 56
43.   Jika i>=19 dan i <21 maka lanjutkan ke langkah 44 , jika tidak lanjutkan ke langkah 46
44.   Deklarasikan x=156.5 r=0.2
45.   Hitung w=i-18 , lanjutkan ke langkah 56
46.   Jika i>=21 dan i <23 maka lanjutkan ke langkah 47 , jika tidak lanjutkan ke langkah 49
47.   Deklarasikan x=157 r=0.1
48.   Hitung w=i-22 , lanjutkan ke langkah 56
49.   Jika i>=23 dan i <35 maka lanjutkan ke langkah 50 , jika tidak lanjutkan ke langkah 52
50.   Deklarasikan x=157.3 r=0 , lanjutkan ke langkah 56
51.   Jika i>=35 dan i <60 maka lanjutkan ke langkah 52, jika tidak lanjutkan ke langkah 54
52.   Deklarasikan x=157.3 r=-0.09
53.   Hitung w=i-34 lanjutkan ke langkah 56
54.   Deklarasikan x=155.05 r=-0.01
55.   Hitung w=i-34
56.   Hitung dx=j*r
57.   Jika j <=w maka lanjutkan langkah 58 , jika tidak maka lanjutkan ke langkah 59
58.   Hitung j=j+1 , lanjutkan ke langkah 6
59.   Jika jenis kelamin “laki-laki” maka lanjutkan ke langkah 60 , jika tidak lanjutkan ke langkah 70
60.   Jika i>=1 dan i <7 maka lanjutkan ke langkah 61 , jika tidak lanjutkan ke langkah 63
61.   Deklarasikan wlb=i xlb= 12.9 rlb=2.1  , lanjutkan ke langkah 82
62.   Jika i>=7 dan i <18 maka lanjutkan ke langkah 63 , jika tidak lanjutkan ke langkah 65
63.   Deklarasikan  xlb=38.75 rlb=0.26
64.   Hitung wlb=i-6 lanjutkan ke langkah 82
65.   Jika i>=18 dan i <41 maka lanjutkan ke langkah 66 , jika tidak lanjutkan ke langkah 68
66.   Deklarasikan xlb = 38.74  rlb = 0.26
67.   Hitung wlb=i-17 lanjutkan ke langkah 82
68.   Deklarasikan wlb=i-40 xlb=44.97 r=-0.09 lanjutkan ke langkah 82
69.   Jika i>=1 dan i <7 maka lanjutkan ke langkah 70 , jika tidak lanjutkan ke langkah 72
70.   Deklarasikan wlb=i  xlb=13 rlb=2 lanjutkan ke langkah 82
71.   Jika i>=7 dan i <13  maka lanjutkan ke langkah 72 , jika tidak lanjutkan ke langkah 74
72.   Deklarasikan  xlb=25.125 rlb=1.375
73.   Hitung wlb=i-6 lanjutkan ke langkah 82
74.   Jika i>=13  dan i <17 maka lanjutkan ke langkah 75 , jika tidak lanjutkan ke langkah 77
75.   Deklarasikan xlb=31.45 rlb=0.85
76.   Hitung wlb=i-12 lanjutkan ke langkah 82
77.   Jika i>=17 dan i <36 maka lanjutkan ke langkah 78 , jika tidak lanjutkan ke langkah 80
78.   Deklarasikan  xlb=34.05 rlb=0.05
79.   Hitung wlb=i-16  lanjutkan ke langkah 82
80.   Deklarasikan xlb=35.03 rlb=0.05
81.   Hitung wlb=i-35 lanjutkan ke langkah 82
82.   Hitung dxlb=jlb*rlb
83.   Jika jlb<=wlb maka lanjutkan langkah 84, jika tidak maka lanjutkan ke langkah 85
84.   Hitung jlb=jlb+1 , lanjutkan ke langkah 6
85.   Jika jenis kelamin “laki-laki” maka lanjutkan ke langkah 13 , jika tidak lanjutkan ke langkah 86
86.   Jika i>=1 dan i <8 maka lanjutkan ke langkah 87 , jika tidak lanjutkan ke langkah 88
87.   Deklarasikan wlp=i xlp=10.51  rlp=1.28 lanjutkan ke langkah 112
88.   Jika i>=8 dan i <12 maka lanjutkan ke langkah 89 , jika tidak lanjutkan ke langkah 91
89.   Deklarasikan xlp=19.23 rlp=0.76
90.   Hitung wlp=i-7 lanjutkan ke langkah 112
91.   Jika i>=12  dan i <16 maka lanjutkan ke langkah 92 , jika tidak lanjutkan ke langkah 94
92.   Deklarasikan xlp=22.93  rlp=0.76
93.   Hitung wlp=i-11 lanjutkan ke langkah 112
94.   Jika i>=16 dan i <41 maka lanjutkan ke langkah 95 , jika tidak lanjutkan ke langkah 97
95.       Deklarasikan xlp=26.6 rlp=0.33
96.   Hitung wlp=i-15 lanjutkan ke langkah 112
97.   Deklarasikan wlp=i-40 xlp=35 rlp=-0.03  lanjutkan ke langkah 112
98.   Jika i>=1 dan i <8 maka lanjutkan ke langkah 99 , jika tidak lanjutkan ke langkah 101
99.   Deklarasikan wlp=xlp=9.78 rlp=1.3 lanjutkan ke langkah 112
100.     Jika i>=1 dan i <8 maka lanjutkan ke langkah 101 , jika tidak lanjutkan ke langkah 102
101.       Deklarasikan wlp=1 xlp=9.78 rlp=1.3lanjutkan ke langkah 112
102.       Jika i>=8 dan i <12 maka lanjutkan ke langkah 103 , jika tidak lanjutkan ke langkah 105
103.    Deklarasikan xlp=19.13 rlp=0.96
104.    Hitung wlp=i-7  lanjutkan ke langkah 112
105.    Jika i>=12 dan i <16 maka lanjutkan ke langkah 106, jika tidak lanjutkan ke langkah 108
106.    Deklarasikan xlp=22.56 rlp=0.73
107.    Hitung wlp=i-11 lanjutkan ke langkah 112
108.    Jika i<=16 dan i<36 maka lanjutkan ke langkah 109, jika tidak lanjutkan ke langkah 111
109.    Deklarasikan xlp=25.527 rlp=0.073
110.    Hitung wlp=i-15 , lanjutkan ke langkah 112
111.    Deklarasikan wlp=i-35 xlp=22.56 rlp=0.73 lanjutkan ke langkah 112
112.    Hitung dxlp=jlp*rlp
113.    Jika jlp<=wlp maka lanjutkan langkah 114 , jika tidak maka lanjutkan ke langkah 115
114.    Hitung jlp=jlp+1 , lanjutkan ke langkah 6
115.    Jika jenis kelamin “laki-laki” maka lanjutkan ke langkah 116, jika tidak lanjutkan ke langkah    134
116.    Jika i>=1 dan i <7 maka lanjutkan ke langkah 117 , jika tidak lanjutkan ke langkah 118
117.    Deklarasikan wld=i xld=30.96 rld=4.34  lanjutkan ke langkah 134
118.    Jika i>=7 dan i <18 maka lanjutkan ke langkah 119 , jika tidak lanjutkan ke langkah 121
119.    Deklarasikan xld=56.33 rld=2.66
120.    Hitung wld=i-6 , lanjutkan ke langkah 134
121.    Jika i>=18 dan i <40 maka lanjutkan ke langkah 122 , jika tidak lanjutkan ke langkah 124
122.    Deklarasikan xld=83.9 rld=0.595
123.    Hitung wld=i-17 , lanjutkan ke langkah 134
124.    Deklarasikan wld=i-39 xld=97.05 rld=-0.05 lanjutkan ke langkah 134
125.    Jika i>=1 dan i <7 maka lanjutkan ke langkah 126 , jika tidak lanjutkan ke langkah 128
126.    Deklarasikan wld=i  xld=31.12 rld=3.98 lanjutkan ke langkah 134
127.    Jika i>=7 dan i <17 maka lanjutkan ke langkah 127 , jika tidak lanjutkan ke langkah 130
128.    Deklarasikan  xld=55 rld=2
129.    Hiung wld=i-6 lanjutkan ke langkah 134
130.    Jika i>=17 dan i <36 maka lanjutkan ke langkah 131, jika tidak lanjutkan ke langkah 133
131.    Deklarasikan xld=77.335 rld=0.164
132.    Hitung wld=i-16 , lanjutkan ke langkah 134
133.    Deklarasikan wld=i-35  xld=80.8 rld=-0.05
134.    Hitung dxld=jld*rld
135.    Jika jld<=wld maka lanjutkan langkah 136, jika tidak maka lanjutkan ke langkah 137
136.    Hitung jld=jld+1 , lanjutkan ke langkah 6
137.    Hitung: t = x + dx
b=0.00215*t^2
                tlb = xlb + dxlb
                tlp = xlp + dxlp
                tld = xld + dxld
138.    Cetak t, b, tb, tlp, tld
139.    Munculkan pesan
140.    Selesai




Tidak ada komentar: