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:
Dim S As Long Dim K As Long Dim C As Long Dim X As Long Dim Y As Long Dim Z As Long Dim Dana1 As Long Dim Dana2 As Long Dim Dana3 As Long Dim Max As Long Dim Min As Long Private Sub Command1_Click()     S = Text1.Text     K = Text2.Text     C = Text3.Text     X = Text4.Text     Y = Text5.Text     Z = Text6.Text         If S > 0 And K > 0 And C > 0 Then         Dana1 = X / S         Dana2 = Y * 50 / K         Dana3 = Z * 30 / C     End If         Min = Dana1     If Dana2 < Min Then Min = Dana2     If Dana3 < Min Then Min = Dana3             Max = Dana1     If Dana2 > Max Then Max = Dana2     If Dana3 > Max Then Max = Dana3             Label15.Caption = "Hrane æe biti za narednih: " & Min & " dana."         If Dana1 = Max Then Label16.ForeColor = vbBlue Else Label16.ForeColor = vbRed     Label16.Caption = "Sena æe biti za narednih: " & Dana1 & " dana."     If Dana2 = Max Then Label17.ForeColor = vbBlue Else Label17.ForeColor = vbRed     Label17.Caption = "Kukuruza æe biti za narednih: " & Dana2 & " dana."     If Dana3 = Max Then Label18.ForeColor = vbBlue Else Label18.ForeColor = vbRed     Label18.Caption = "Koncentrata æe biti za narednih: " & Dana3 & " dana."     End Sub