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