Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  calculo de vigas
Language: BASIC
Code:
10 PRINT "LAJES: MOM E REAÇÕES"
20 INPUT "Amenor=",A:LOCATE 15,2:PRINT "M"
30 INPUT "Bmaior=", B:LOCATE 15,2: PRINT "M"
40 INPUT "CARGA  =", Q:LOCATE 15,2: PRINT "KG/M"
50 M=Q*A*B*SQR(A/B)/8/(SQR(A/B)+A/B+1)
60 PRINT"MFLET=";USING"######";M;TAB(15);"KGM"
70 IF INKEY$="" THEN 70 ELSE 80
80 RA=A*Q/4; RB=Q*A*(2*B-A)/4/B
90 PRINT "REA RA=";USING "#####;RA; TAB(15);"KG/M"
100 PRINT "REA RB=";USING "#####";RB; TAB(15);"KG/M"
110 IF INKEY$="" THEN 110 ELSE 10
          
Comments: