Jump to content



Photo
- - - - -

Flooding Emergency!- Casio Pb 700

Basic Programming PB700 Software old

  • Please log in to reply
No replies to this topic

#1 marcobiaggini

marcobiaggini

    Newbie

  • Members
  • Pip
  • 5 posts
  • Gender:Male
  • Location:ITALY
  • Interests:Marine engines, Programming on handel devices , Blackberry devices

  • Calculators:
    PB700
    PB2000C
    Z1- GR
    BLACKBERRY PLAYBOOK
    BLACKBERRY PASSPORT

Posted 15 February 2015 - 05:54 PM

During my last ship where i've worked i've take in hand a serious problem: what appen if the hull it's damaged? Flooding Emergency !. Do you know how much waten can enter to a ship just 4-5 meters of deep? discover now with that new app for your Casio Poket Computer PB 700 and image how many pumps you need to pump out all!.

 

                                               !   FLOODING !

 

10   REM  FALLA PRG

20   CLS:BEEP:LOCATE 4,0:PRINT”! FLOODING !”

30   LOCATE 1,1:PRINT”1- RECTANGULAR”

35   LOCATE 1,2:PRINT”2- ROUND”

40   LOCATE 1,3:INPUT”3- TRIANGLE”;F

45   IF F=1 THEN GOTO 100

50   IF F=2 THEN GOTO 200

55   IF F=3 THEN GOTO 300 ELSE BEEP:GOTO 20

60   CLS:LOCATE 4,0:PRINT”! FALLA !”

70   LOCATE 0,1:INPUT”MIDDLE IMMERSION”;H

75   LET K=0,66 : LET G=9,80665

80   Q=K*S*SQR(2*G*H)

85   GOSUB 5000

90   CLS:BEEP1:LOCATE 1,1:PRINT”WATER FLOW Q= “;INT(Q*3600)

92   LOCATE 0,3:INPUT”again Y/N”;A$

93   IF A$=”Y” THEN GOTO 20 : IF A$=”N” THEN GOTO 94 ELSE BEEP:GOTO 92

94   END

 

100 REM SUBROUTINE RECTANGULAR

110 CLS:LOCATE 4,0:PRINT”! FALLA !”

115 DRAW (130,10)-(130,1)-(130,1)-(158,1)

116 DRAW (158,1)-(158,10)-(158,10)-(130,10)

120 LOCATE 0,1:INPUT” LENGH mt”;L

130 LOCATE 0,2:INPUT” HEIGH mt”;J

140 LOCATE 0,3:INPUT” REDUCTION FACT 0,0-1,0”;R

145 S=(L*J)*R

150 GOTO 60

 

200  REM SUBROUTINE ROUND

210  CLS:LOCATE 4,0:PRINT”! FALLA !”

211  R=104:X=148:Y=12: REM CENTRE OF CIRCLE

212  A=360/20  :REM LIKE POLIGON OF 20 SIDE

213  FOR I=0 TO 360 STEP A

214  DRAW (X-SIN(I)*R,Y-COS(I)*R)-(X-SIN(I+A)*R,Y-COS(I+A)*R)

215  NEXT I

220  LOCATE 0,1:INPUT” MID.DIAMETER mt”;D

230  S=(PI*D^2)/4

240  GOTO 60

 

300  REM SUBROUTINE TRIANGLE

310  CLS:LOCATE 4,0:PRINT”! FALLA !”

312  DRAW (130,1)-(125,13)-(158,13)-(130,1)

320  LOCATE 0,1:INPUT”BASE mt”;B

330  LOCATE 0,2:INPUT”HEIGHT mt;L

340  S=(B*L)/2

350  GOTO 60

5000  CLS:LOCATE 0,1:PRINT “computing”:LOCATE 0,3

5001  FOR I=1 TO 19

5002  PRINT CHR$(128);

5003  NEXT I

5004  RETURN

 

IMG-20150215-00285.jpg

IMG-20150215-00284.jpg







Also tagged with one or more of these keywords: Basic, Programming, PB700, Software, old

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users