Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Zadatak u bilo kojem jeziku

[es] :: Art of Programming :: Zadatak u bilo kojem jeziku

[ Pregleda: 3060 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

sanjin_srbin

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



Profil

icon Zadatak u bilo kojem jeziku08.10.2007. u 23:01 - pre 200 meseci
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!
 
Odgovor na temu

vlaiv
Vladimir Vlaisavljevic
Novi Sad

Član broj: 15993
Poruke: 352
*.ADSL.neobee.net.



+1 Profil

icon Re: Zadatak u bilo kojem jeziku08.10.2007. u 23:43 - pre 200 meseci
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;
}
 
Odgovor na temu

steve585
Stevan Stanić
Project Manager
Zagreb

Član broj: 131815
Poruke: 281
88.207.4.*



+1 Profil

icon Re: Zadatak u bilo kojem jeziku21.10.2007. u 10:55 - pre 200 meseci
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


steve585
 
Odgovor na temu

[es] :: Art of Programming :: Zadatak u bilo kojem jeziku

[ Pregleda: 3060 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.