q basic
Prikazujem rezultate 1 do 5 od 5

Tema: q basic

  1. #1
    Primećen član M.M.L. (avatar)
    Učlanjen
    06.09.2006.
    Pol
    muški
    Lokacija
    Citaj nick, Mali Mokri Lug, Zvezdara BG
    Poruke
    772
    Reputaciona moć
    49

    Podrazumevano q basic

    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



  2. #2
    Peruzzi nije na forumu
    је дошао тихо и ушао у легенду...
    Domaćin Peruzzi (avatar)
    Učlanjen
    03.08.2003.
    Pol
    muški
    Lokacija
    Shumadija
    Poruke
    3.924
    Reputaciona moć
    92

    Podrazumevano Re: q basic

    www.google.com

    verovatno round(x)


  3. #3
    Primećen član M.M.L. (avatar)
    Učlanjen
    06.09.2006.
    Pol
    muški
    Lokacija
    Citaj nick, Mali Mokri Lug, Zvezdara BG
    Poruke
    772
    Reputaciona moć
    49

    Podrazumevano Re: q basic

    nasao sam

  4. #4
    Peruzzi nije na forumu
    је дошао тихо и ушао у легенду...
    Domaćin Peruzzi (avatar)
    Učlanjen
    03.08.2003.
    Pol
    muški
    Lokacija
    Shumadija
    Poruke
    3.924
    Reputaciona moć
    92

    Podrazumevano Re: q basic

    pa onda kazi resenje...


  5. #5
    Primećen član M.M.L. (avatar)
    Učlanjen
    06.09.2006.
    Pol
    muški
    Lokacija
    Citaj nick, Mali Mokri Lug, Zvezdara BG
    Poruke
    772
    Reputaciona moć
    49

    Podrazumevano Re: q basic

    INT odnosno CINT funkcija, mogu obe

Slične teme

  1. Q Basic
    Autor damir24 u forumu Programiranje
    Odgovora: 7
    Poslednja poruka: 20.06.2006., 10:27
  2. visual basic
    Autor tabasko_ u forumu Softver
    Odgovora: 1
    Poslednja poruka: 12.06.2005., 06:01
  3. BASIC 6.0
    Autor u forumu Programiranje
    Odgovora: 4
    Poslednja poruka: 25.10.2004., 15:10
  4. l.basic
    Autor blah u forumu Programiranje
    Odgovora: 0
    Poslednja poruka: 03.06.2004., 18:30

Pravila za slanje poruka

  • Ne možete kreirati novu temu
  • Ne možete poslati odgovor
  • Ne možete dodati priloge
  • Ne možete prepraviti svoju poruku
  •