Program traverse kalkulator casio FX-880
Assalamualaikum,
Hari ini saya akan membagikan satu rumus atau program kalkulator casio fx880,yaitu program traverse.
Programnya lumayan panjang ya,jadi mohon bersabar .
Program traverse kalkulator casio FX-880:
10 CLEAR:MODE 4
20 PRINT "= = = = = = = = TRAVERSE = = = = = = = = "
30 DIM A (50),B(50),C(50),D(50),E(50),F(50),N(50),G(50)
40 INPUT "FIRST AZI.=",A(0):I=0:GOSUB 600
50 INPUT "STA.ANGLE=",N
60 FOR I=1 TO N
70 PRINT "ANGLE(";I;")=";
80 INPUT A(I)
90 GOSUB 600
100 A(N+2)=A(N+2)+A(I)
110 B(I)=A(I)+A(0)
120 IF B(I)>540 THEN B(I)=B(I)-540:GOTO 150
130 IF B(I)>180 THEN B(I)=B(I)-1800:GOTO 150
140 IF B(I)<180 THEN B(I)=B(I)+180
150 A(0)=B(I)
160 PRINT "DIST.(";I;")=";
170 INPUT D(I)
180 D(N+2)=D(N+2)+D(I)
190 NEXT I
200 INPUT "CLOSE AZI.=",A(N+1):I =N+1:GOSUB 600
210 E=(A(N+1)-B(N))/N
220 FOR I=1 TO N
230 B(I)=B(I)+E*I
240 NEXT I
250 FOR J=1 TO N
260 BEEP:BEEP:PRINT "AZI.(";J;")=";DMS$(B(J))
270 NEXT J
280 FOR K=1 TO N-1
290 X=REC (D(K),B(K))
300 BEEP:PRINT "DN(";STR$(K);")=";X
310 E(K)=X
320 E(N+1)=E(N+1)+E(K)
330 BEEP:BEEP:PRINT "DE(";K;")=";Y
340 F(K)=Y
350 F(N+1)=F(N+1)+F(K)
360 NEXT K
370 INPUT "N(1)=",N(1):INPUT "E (1)=",G(1)
380 INPUT "N(2)=",N(2):INPUT "E (2)=",G(2)
390 N(3)=N(2)-N(1):G(3)=G(2)-G(1)
400 N(4)=N(3)-E(N+1):G(4)=G(3)- F(N+1)
410 FOR I=1 TO N-1
420 N(5)=N(4)/D(N+2)
430 C(I)=N(5)*D(I)
440 E(I)=E(I)+C(I)
450 E(I)=N(I)+E(I)
460 BEEP:BEEP:PRINT "CO-N(";I;")=";E(I)
470 N(1)=E(I)
480 G(5)=G(4)/D(N+2)
490 C(I)=G(5)*D(I)
500 F(I)=F(I)+C(I)
510 F(I)=G(I)+F(I)
520 BEEP:BEEP:PRINT "CO-E(";I;")=";F(I)
530 G(1)=F(I)
540 NENT I
SELESAI.Untuk versi PDF nya bisa di download disini
Sekian dulu postingan kali ini mengenai Program traverse kalkulator casio FX-880,Semoga bermanfaat,jika tidak keberatan mohon subscribe youtube "surveyor jatim".
Belum ada Komentar untuk "Program traverse kalkulator casio FX-880"
Posting Komentar