Pomoc oko zadatka

Pomoc oko zadatka

offline
  • Pridružio: 17 Jan 2009
  • Poruke: 49

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



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • Pridružio: 26 Okt 2008
  • Poruke: 1560
  • Gde živiš: Sremski Mihaljevci

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



offline
  • Pridružio: 17 Jan 2009
  • Poruke: 49

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

offline
  • Pridružio: 28 Jun 2004
  • Poruke: 990
  • Gde živiš: Kucura

@only_me

Niko ne sedi ovde i ceka da resi neciji problem Wink

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

offline
  • Pridružio: 25 Maj 2007
  • Poruke: 114
  • Gde živiš: Novi Sad, Sombor

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

VB projekat:
mycity.rs/must-login.png

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

Ko je trenutno na forumu
 

Ukupno su 1274 korisnika na forumu :: 29 registrovanih, 8 sakrivenih i 1237 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: _Rade, amaterSRB, Bobrock1, bojank, bokisha253, Botovac, Brana01, cikadeda, dencorr, dragoljub11987, FileFinder, Georgius, Griffon vulture, ILGromovnik, Ivica1102, JOntra, Još malo pa deda, Kubovac, Lucije Kvint, Mcdado, Milos ZA, opt1, raptorsi, rodoljub, Srle993, Trpe Grozni, Tvrtko I, vladaa012, vladulns