[es] - Zadatak u bilo kojem jeziku

sanjin_srbin
sanjin malesevic

Član broj: 137335
Poruke: 11
*.opera-mini.net.

Profil

^{08.10.2007. u 23:01}

Imam jedan zadatak koji nikako ne mogu programerski resiti iako je matematicki lagan.Glasi:
Skup kuglica je sastavljen od crvenih i crnih.Napraviti metodu za izracunavanje procenta crnih kuglica ako na ulazu u metodu imamo kao parametar ukupan broj kuglica i broj crvenih kuglica.
Nije bitno u kojem jeziku ce se napisati.
Znaci,formula za procenat crnih je 100-(crvene/ukupno)*100
molim pomoc!

^{08.10.2007. u 23:01}

vlaiv
Vladimir Vlaisavljevic
Novi Sad

Moderator
Član broj: 15993
Poruke: 275
*.ADSL.neobee.net.

Profil

Re: Zadatak u bilo kojem jeziku

^{08.10.2007. u 23:43}

Code:

double crnih(int ukupno, int crvenih){

    double result = -1.0f; // za slucaj da recimo ukupnih ima 0 ili tako neka budalastina ... (mozda ima i NaN konstanta ...)

    if(ukupno!=0.0f){
        result = 100.0f-((double)crvenih/(dobule)ukupno)*100.f;
    }

    return result;
}

^{08.10.2007. u 23:43}

steve585
Stevan Stanić
Peskovec

Član broj: 131815
Poruke: 161
88.207.4.*

Profil

Re: Zadatak u bilo kojem jeziku

^{21.10.2007. u 10:55}

Visual Basic

Code:

Sub Procenat_Crnih_Kuglica ()
  Dim UkBrojKuglica, BrCrnih, BrCrvenih As Integer
  Dim PostotakCrnih As Single
  Dim Poruka

         UkBrojKuglica = Val(InputBox("Unesite ukupan broj kuglica", "Unos"))
         BrCrvenih = Val(InputBox("Unesite broj crvenih kuglica", "Unos"))

         BrCrnih = UkBrojKuglica - BrCrvenih

         If UkBrojKuglica > 0 And UkBrojKuglica > BrCrvenih Then
            PostotakCrnih = Round(BrCrnih / UkBrojKuglica * 100, 2)

            Poruka = MsgBox("Postotak Crnih kuglica u skupu je " & PostotakCrnih & "&", vbOKOnly, "Poruka")

         ElseIf UkBrojKuglica < 0 Or UkBrojKuglica = 0 Then

             Poruka = MsgBox("Ukupan broj kuglica je manji ili jednak 0", vbOKOnly, "Poruka")
             Exit Sub

         ElseIf UkBrojKuglica < BrCrvenih Then
             Poruka = MsgBox("Broj crvenih kuglica ne moze biti veci od ukupnog broja kuglica u skupu", vbOKOnly, "Poruka")
             Exit Sub
         End If
End Sub

^{21.10.2007. u 10:55}