REM PERHITUNGAN WATERPASS KRING TERTUTUP
REM PROGRAM BY KHARISMA SRINARTA
CLS
PRINT "PERHITUNGAN WATERPASS TERTUTUP 10 TITIK"
PRINT "PERGI"
INPUT "P1 KE P2 =";A
INPUT "P2 KE P3 =";B
INPUT "P3 KE P4 =";C
INPUT "P4 KE P5 =";D
INPUT "P5 KE P6 =";E
INPUT "P6 KE P7 =";F
INPUT "P7 KE P8 =";G
INPUT "P8 KE P9 =";H
INPUT "P9 KE P10 =";I
INPUT "P10 KE P1 =";J
PRINT "PULANG"
INPUT "P2 KE P1 =";K
INPUT "P3 KE P2 =";L
INPUT "P4 KE P3 =";M
INPUT "P5 KE P4 =";N
INPUT "P6 KE P5 =";O
INPUT "P7 KE P6 =";P
INPUT "P8 KE P7 =";Q
INPUT "P9 KE P8 =";R
INPUT "P10 KE P9 =";S
INPUT "P1 KE P10 =";T
INPUT "ELEVASI AWAL =";EL
RT1=(A-K)/2
RT2=(B-L)/2
RT3=(C-M)/2
RT4=(D-N)/2
RT5=(E-O)/2
RT6=(F-P)/2
RT7=(G-Q)/2
RT8=(H-R)/2
RT9=(I-S)/2
RT10=(J-T)/2
KR=((RT1+RT2+RT3+RT4+RT5+RT6+RT7+RT8+RT9+RT10)/10)*(-1)
DF1=RT1+KR
DF2=RT2+KR
DF3=RT3+KR
DF4=RT4+KR
DF5=RT5+KR
DF6=RT6+KR
DF7=RT7+KR
DF8=RT8+KR
DF9=RT9+KR
DF10=RT10+KR
EL1=DF1+EL
EL2=DF2+EL1
EL3=DF3+EL2
EL4=DF4+EL3
EL5=DF5+EL4
EL6=DF6+EL5
EL7=DF7+EL6
EL8=DF8+EL7
EL9=DF9+EL8
EL10=DF10+EL9
PRINT
PRINT "NO TITIK";TAB(50);"BEDA
TINGGI";TAB(50)
PRINT ""TAB(130);"TINGGI
TITIK";TAB(150);"NO TITIK";TAB(170);"KETERANGAN"
PRINT "DARI
KE";TAB(20);"PERGI";TAB(40);"PULANG";TAB(60);"RATA-RATA";TAB(80);"KOREKSI";TAB(100);"DEFINITIF"
PRINT
"------------------------------------------------------------------------------------------------------------------------"
PRINT "ELEVASI AWAL";TAB(130);EL
PRINT
PRINT " P1
P2";TAB(20);A;TAB(40);K;TAB(60);RT1;TAB(80);KR;TAB(100);DF1
PRINT ""TAB(130);EL1;TAB(20)
PRINT
PRINT " P2
P3";TAB(20);B;TAB(40);L;TAB(60);RT2;TAB(80);KR;TAB(100);DF2
PRINT ""TAB(130);EL2;TAB(20)
PRINT
PRINT " P3
P4";TAB(20);C;TAB(40);M;TAB(60);RT3;TAB(80);KR;TAB(100);DF3
PRINT ""TAB(130);EL3;TAB(20)
PRINT
PRINT " P4
P5";TAB(20);D;TAB(40);N;TAB(60);RT4;TAB(80);KR;TAB(100);DF4
PRINT ""TAB(130);EL4;TAB(20)
PRINT
PRINT " P5
P6";TAB(20);E;TAB(40);O;TAB(60);RT5;TAB(80);KR;TAB(100);DF5
PRINT ""TAB(130);EL5;TAB(20)
PRINT
PRINT " P6
P7";TAB(20);F;TAB(40);P;TAB(60);RT6;TAB(80);KR;TAB(100);DF6
PRINT ""TAB(130);EL6;TAB(20)
PRINT
PRINT " P7
P8";TAB(20);G;TAB(40);Q;TAB(60);RT7;TAB(80);KR;TAB(100);DF7
PRINT ""TAB(130);EL7;TAB(20)
PRINT
PRINT " P8
P9";TAB(20);H;TAB(40);R;TAB(60);RT8;TAB(80);KR;TAB(100);DF8
PRINT ""TAB(130);EL8;TAB(20)
PRINT
PRINT " P9
P10";TAB(20);I;TAB(40);S;TAB(60);RT9;TAB(80);KR;TAB(100);DF9
PRINT ""TAB(130);EL9;TAB(20)
PRINT
PRINT " P10
P1";TAB(20);J;TAB(40);T;TAB(60);RT10;TAB(80);KR;TAB(100);DF10
PRINT ""TAB(130);EL10;TAB(20)
PRINT "Terima Kasih Telah Melakukan Perhitungan"
(hasil)
PERHITUNGAN WATERPASS TERTUTUP 10 TITIK
PERGI
P1 KE P2 =2.097
P2 KE P3 =1.214
P3 KE P4 =2.097
P4 KE P5 =2.057
P5 KE P6 =0.915
P6 KE P7 =-2.219
P7 KE P8 =-2.087
P8 KE P9 =-1.215
P9 KE P10 =-1.721
P10 KE P1 =-1.156
PULANG
P2 KE P1 =-2.095
P3 KE P2 =-1.212
P4 KE P3 =-2.095
P5 KE P4 =-2.055
P6 KE P5 =-0.917
P7 KE P6 =2.221
P8 KE P7 =2.085
P9 KE P8 =1.213
P10 KE P9 =1.723
P1 KE P10 =1.154
ELEVASI AWAL =259.052
NO TITIK BEDA TINGGI
TINGGI TITIK NO TITIK KETERANGAN
DARI KE
PERGI
PULANG RATA-RATA KOREKSI DEFINITIF
--------------------------------------------------------------------------------------------------------------------------------------------ELEVASI
AWAL
259.052
P1 P2
2.097 -2.095 2.096 0.002 2.09
261.15
P2 P3
1.214 -1.212 1.213 0.002 1.215
262.365
P3 P4
2.097 -2.095 2.096 0.002 2.098
264.463
P4 P5
2.057 -2.055 2.056 0.002 2.058
266.521
P5 P6
0.915 -0.917 0.916 0.002 0.918
267.439
P6 P7
-2.219 2.221 -2.22 0.002 -2.218
265.221
P7 P8
-2.087 2.085 -2.086 0.002 -2.084
263.137
P8 P9
-1.215 1.213 -1.214 0.002 -1.212
261.925
P9 P10
-1.721 1.723 -1.722 0.002 -1.72
260.205
P10 P1
-1.156 1.154 -1.155 0.002 -1.153
259.052
Terima Kasih Telah Melakukan Perhitungan
Tidak ada komentar:
Posting Komentar