sanjin_srbin @ 08.10.2007. 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!
vlaiv @ 08.10.2007. 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;
}
steve585 @ 21.10.2007. 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