Komentari (9)
Povratak na članak
Prijava korisnika
NAPOMENA: Komentarisanje članaka na portalu Klix.ba dozvoljeno je samo registrovanim korisnicima. Molimo korisnike da se suzdrže od vrijeđanja, psovanja i vulgarnog izražavanja. Komentari odražavaju stavove isključivo njihovih autora, koji zbog govora mržnje mogu biti i krivično gonjeni. Kao čitatelj prihvatate mogućnost da među komentarima mogu biti pronađeni sadržaji koji mogu biti u suprotnosti sa vašim vjerskim, moralnim i drugim načelima i uvjerenjima. Svaki korisnik prije pisanja komentara mora se upoznati sa Pravilima i uslovima korištenja komentara.
Sta cini 30 godina RADA naspram 20 godina NERADA, kukanja, krivljenja cijelog svijeta za sve svoje neuspjehe i trazenje sadake? Pogledajte sta su Kinezi napravili za samo 30 godina od jednog malog grada i uporedite to sa Sarajevom u zadnjih dvadeset godina! Shenzhen danas ima nevjerojatnih 12 milijuna stanovnika i gradski proračun od 79,6 milijardi dolara, a 1980. je imao svega 20.000 stanovnika na 3 kvadratna kilometra! Tada su stanovnici hodali po prašini, vozili bicikle i motorno vozilo gotovo da nije bilo na vidiku u tom gradu. Danas taj grad ima najveću tvrtku na svijetu - Foxconn, jednu od najvećih luka i svoju burzu. Shenzhen je danas najbrže rastući grad na planeti. Oko Sarajeva jos nisu ociscene ni mine nakon skoro 20 godina od rata! Vijecnici obnovise dio fasade, zatvorise muzeje, a od zicare nema ni Z na vidiku! http://dnevnik.hr/vijesti/svijet/foto-zapanjujuca-transformacija-od-gradica-do-megalopolisa-u-30-godina---273237.html
Sta cini 30 godina RADA naspram 20 godina NERADA, kukanja, krivljenja cijelog svijeta za sve svoje neuspjehe i trazenje sadake? Pogledajte sta su Kinezi napravili za samo 30 godina od jednog malog grada i uporedite to sa Sarajevom u zadnjih dvadeset godina! Shenzhen danas ima nevjerojatnih 12 milijuna stanovnika i gradski proračun od 79,6 milijardi dolara, a 1980. je imao svega 20.000 stanovnika na 3 kvadratna kilometra! Tada su stanovnici hodali po prašini, vozili bicikle i motorno vozilo gotovo da nije bilo na vidiku u tom gradu. Danas taj grad ima najveću tvrtku na svijetu - Foxconn, jednu od najvećih luka i svoju burzu. Shenzhen je danas najbrže rastući grad na planeti. Oko Sarajeva jos nisu ociscene ni mine nakon skoro 20 godina od rata! Vijecnici obnovise dio fasade, zatvorise muzeje, a od zicare nema ni Z na vidiku! http://dnevnik.hr/vijesti/svijet/foto-zapanjujuca-transformacija-od-gradica-do-megalopolisa-u-30-godina---273237.html
m = CStr(InputBox("ukucajte masu u kilogramima")) h = CStr(InputBox("ukucajte visinu u centimetrima")) Podesi m: Podesi h: m = CSng(m): h = CSng(h) MsgBox "BMI (indeks tjelesne mase) je:" _ & vbCrLf & Round(((m * 1.3) / ((h / 100) ^ 2.5)), 1) Sub Podesi(ByRef e) If Mid(CStr(3 / 2), 2, 1) = "." Then P2 e, ",", "." Else P2 e, ".", "," End Sub Sub P2(ByRef e, e1, e2) ee = CLng(InStr(1, e, e1, 1)) If ee > 0 Then e = CStr(Left(e, ee - 1) & e2 & Right(e, Len(e) - ee)) End Sub
m = CStr(InputBox("ukucajte masu u kilogramima")) h = CStr(InputBox("ukucajte visinu u centimetrima")) Podesi m: Podesi h: m = CSng(m): h = CSng(h) MsgBox "BMI (indeks tjelesne mase) je:" _ & vbCrLf & Round(((m * 1.3) / ((h / 100) ^ 2.5)), 1) Sub Podesi(ByRef e) If Mid(CStr(3 / 2), 2, 1) = "." Then P2 e, ",", "." Else P2 e, ".", "," End Sub Sub P2(ByRef e, e1, e2) ee = CLng(InStr(1, e, e1, 1)) If ee > 0 Then e = CStr(Left(e, ee - 1) & e2 & Right(e, Len(e) - ee)) End Sub
m = CStr(InputBox("ukucajte masu u kilogramima")) h = CStr(InputBox("ukucajte visinu u centimetrima")) Podesi m: Podesi h: m = CSng(m): h = CSng(h) MsgBox "BMI (indeks tjelesne mase) je:" _ & vbCrLf & Round(((m * 1.3) / ((h / 100) ^ 2.5)), 1) End Sub Public Sub Podesi(ByRef e) If Mid(CStr(3 / 2), 2, 1) = "." Then Podes2 e, ",", "." _ Else Podes2 e, ".", "," End Sub Public Sub Podes2(ByRef e, e1, e2) ee = CLng(InStr(1, e, e1, 1)) If ee > 0 Then e = CStr(Left(e, ee - 1) & e2 & Right(e, Len(e) - ee)) End Sub
pppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppp
m = CStr(InputBox("ukucajte masu u kilogramima")) h = CStr(InputBox("ukucajte visinu u centimetrima")) Podesi m: Podesi h: m = CSng(m): h = CSng(h) MsgBox "BMI (indeks tjelesne mase) je:" _ & vbCrLf & Round(((m * 1.3) / ((h / 100) ^ 2.5)), 1) Public Sub Podesi(ByRef e) If Mid(CStr(3 / 2), 2, 1) = "." Then ee = CLng(InStr(1, e, ",", 1)) If ee > 0 Then e = CStr(Left(e, ee - 1) & "." & Right(e, Len(e) - ee)) else ee = CLng(InStr(1, e, ".", 1)) If ee > 0 Then e = CStr(Left(e, ee - 1) & "," & Right(e, Len(e) - ee)) End If End Sub Public Sub Podesi(ByRef e) If Mid(CStr(3 / 2), 2, 1) = "." Then ee = CLng(InStr(1, e, ",", 1)) If ee > 0 Then e = CStr(Left(e, ee - 1) & "." & Right(e, Len(e) - ee)) else ee = CLng(InStr(1, e, ".", 1)) If ee > 0 Then e = CStr(Left(e, ee - 1) & "," & Right(e, Len(e) - ee)) End If End Sub
m = CStr(InputBox("ukucajte masu u kilogramima")) h = CStr(InputBox("ukucajte visinu u centimetrima")) If Mid(CStr(3 / 2), 2, 1) = "." Then mm = InStr(1, m, ",", 1): hh = InStr(1, h, ",", 1) If mm > 0 Then m = Left(m, mm - 1) & "." & Right(m, Len(m) - mm) If hh > 0 Then h = Left(h, hh - 1) & "." & Right(h, Len(h) - hh) Else mm = InStr(1, m, ".", 1): hh = InStr(1, h, ".", 1) If mm > 0 Then m = Left(m, mm - 1) & "," & Right(m, Len(m) - mm) If hh > 0 Then h = Left(h, hh - 1) & "," & Right(h, Len(h) - hh) End If m = CSng(m): h = CSng(h) MsgBox "BMI (indeks tjelesne mase) je:" _ & vbCrLf & Round(((m * 1.3) / ((h / 100) ^ 2.5)), 1)
Tako je, SDA nek rusi svoju mamu a ne ovu napacenu drzavu! Kako nisko i bijedno, ovakav vakat a oni blokiraju vladu. Fujjjjj