Quantcast

q basic

M.M.L.

Primećen član
Poruka
790
Zanima me kako da zaokruzim brojeve, kojom komandom, pravim neki program za
izracunavanje brzine na osnovu broja obrtaja motora

Kod:
10 CLS
PRINT "Ovo je program za izracunavanje brzine u odnosu na broj obrtaja motora"
PRINT "Samo za yugo automobile"
PRINT
PRINT "Da li imas menjac sa 4 ili 5 brzina"
INPUT "Ukucaj 4 ili 5            "; b
INPUT "Ukucaj broj obrtaja motora"; q
INPUT "Koliko je obim tocka u cm "; o
PRINT "Koliki je finalni odnos diferencijala 4.0769 (13/53) ili 3.764 (17/64)"
INPUT "Za 4.0769 (13/53) ukucaj 1, za  3.764 (17/64) ukucaj 2"; d
IF d = 1 THEN m = 4.0769
IF d = 2 THEN m = 3.764
IF b = 4 THEN GOTO 100
IF b = 5 THEN GOTO 200
100 CLS
PRINT "1. "; ((q * 60) / (3.583 * m)) * (o / 100000); " km/h "; ((q * 60) / (3.583 * m)) * (o / 100000) / 3.6; " m/s"
PRINT "2. "; ((q * 60) / (2.235 * m)) * (o / 100000); " km/h "; ((q * 60) / (2.235 * m)) * (o / 100000) / 3.6; " m/s"
PRINT "3. "; ((q * 60) / (1.454 * m)) * (o / 100000); " km/h "; ((q * 60) / (1.454 * m)) * (o / 100000) / 3.6; " m/s"
PRINT "4. "; ((q * 60) / (1.042 * m)) * (o / 100000); " km/h "; ((q * 60) / (1.042 * m)) * (o / 100000) / 3.6; " m/s"
INPUT "Za izlaz pritisni 1 za ponovno racunanje pritisni 2"; w
IF w = 1 THEN GOTO 1000
IF w = 2 THEN GOTO 10
200 CLS
PRINT "1. "; ((q * 60) / (4.091 * m)) * (o / 100000); " km/h "; ((q * 60) / (4.091 * m)) * (o / 100000) / 3.6; " m/s"
PRINT "2. "; ((q * 60) / (2.235 * m)) * (o / 100000); " km/h "; ((q * 60) / (2.235 * m)) * (o / 100000) / 3.6; " m/s"
PRINT "3. "; ((q * 60) / (1.469 * m)) * (o / 100000); " km/h "; ((q * 60) / (1.469 * m)) * (o / 100000) / 3.6; " m/s"
PRINT "4. "; ((q * 60) / (1.042 * m)) * (o / 100000); " km/h "; ((q * 60) / (1.042 * m)) * (o / 100000) / 3.6; " m/s"
PRINT "5. "; ((q * 60) / (.863 * m)) * (o / 100000); " km/h "; ((q * 60) / (.863 * m)) * (o / 100000) / 3.6; " m/s"
INPUT "Za izlaz pritisni 1 za ponovno racunanje pritisni 2"; w
IF w = 1 THEN GOTO 1000
IF w = 2 THEN GOTO 10
1000 CLS
PRINT "By Damir"
PRINT "www.yugofanclub.com"
SLEEP 3
END
 

Top