Pomoc oko zadatka

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Jel moze pomoc oko zadatka,probao sam da ga resim na hiljadu nacina,ali beznadezno!
Evo zadatka: Poznato je da se na farmi krava dnevno potrosi S kg sena,K kg kukuruza i C kg koncentrata. Na farmi imaju zalihe od x kg sena,Y dzakova kukuruza od 50 kg i Z dzakova koncentrata od 30 kg.Napisati program kojim se unose prirodni brojevi S,K,C,X,Y,Z,a zatim ispisuje za koliko dana ce farma imati dovoljno hrane i kojih komponenti nce biti dovoljno.
p.s.:ja sam nov u ovome

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

a koliko ima krava?
30 kg svega ili 30 kg sena, 30 kg kukuruza...?

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

izmenio sam post, sada procitaj
Nebitno koliko krava,toliko samo farma potrosi dnevno!

Dopuna: 12 Feb 2009 22:20

Jel mi moze neko pomoci?

Dopuna: 12 Feb 2009 22:48

heey,ima koga da pomogne

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

@only_me

Niko ne sedi ovde i ceka da resi neciji problem

btw. Ovo mi je vise zadatak za matematiku nego za programiranje

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Uloguj se preko Facebooka da bi skinuo fajl:

Evo na brzaka napisan program. Nadam se da sve odgovara.

VB projekat:
[Link mogu videti samo ulogovani korisnici]

Evo i kod:

0. Dim S As Long
1. Dim K As Long
2. Dim C As Long
3. Dim X As Long
4. Dim Y As Long
5. Dim Z As Long
6.  
7. Dim Dana1 As Long
8. Dim Dana2 As Long
9. Dim Dana3 As Long
10.  
11. Dim Max As Long
12. Dim Min As Long
13.  
14. Private Sub Command1_Click()
15.     S = Text1.Text
16.     K = Text2.Text
17.     C = Text3.Text
18.     X = Text4.Text
19.     Y = Text5.Text
20.     Z = Text6.Text
21.    
22.     If S > 0 And K > 0 And C > 0 Then
23.         Dana1 = X / S
24.         Dana2 = Y * 50 / K
25.         Dana3 = Z * 30 / C
26.     End If
27.    
28.     Min = Dana1
29.     If Dana2 < Min Then Min = Dana2
30.     If Dana3 < Min Then Min = Dana3
31.        
32.     Max = Dana1
33.     If Dana2 > Max Then Max = Dana2
34.     If Dana3 > Max Then Max = Dana3
35.        
36.     Label15.Caption = "Hrane æe biti za narednih: " & Min & " dana."
37.    
38.     If Dana1 = Max Then Label16.ForeColor = vbBlue Else Label16.ForeColor = vbRed
39.     Label16.Caption = "Sena æe biti za narednih: " & Dana1 & " dana."
40.     If Dana2 = Max Then Label17.ForeColor = vbBlue Else Label17.ForeColor = vbRed
41.     Label17.Caption = "Kukuruza æe biti za narednih: " & Dana2 & " dana."
42.     If Dana3 = Max Then Label18.ForeColor = vbBlue Else Label18.ForeColor = vbRed
43.     Label18.Caption = "Koncentrata æe biti za narednih: " & Dana3 & " dana."
44.    
45. End Sub