Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

  • 2 odgovora
  • 4.134 pregleda

Najnovija ↓

Zadatak u bilo kojem jeziku 09.10.2007. u 00:01 · pre 232 meseca #1
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!
Re: Zadatak u bilo kojem jeziku 09.10.2007. u 00:43 · pre 232 meseca #2
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;
}
Re: Zadatak u bilo kojem jeziku 21.10.2007. u 11:55 · pre 231 mesec #3
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

Potpis
steve585
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme