Ahoj. Potřeboval bych pomoct. Mam MDV 2009.1 spring a stahl jsem si IDE Lazarus na FPC. Ovšem když si v pascalu napišu v lazarusu jakejkoliv program (třeba i Ahoj světe), tak když dam Run, tak mi messages sice vypiše "successfully built", ale ja nikde nevidim okno s vystupem (žadnej terminal), prostě nic. dam stop, zastavi se. Dam znovu run, to samy, nic.. a když chci dat zase stop, tak nereaguje a musim restartovat lazarus... pomužete prosim? :)
Příspěvky odeslané z IP adresy 89.102.3.–
ajo, to mě nenapadlo :), diky
vysledek by měl vypadat takhle?
x = InStr(1, cislos, ",")
For i = 1 To x - 1
cast1 = cast1 & Mid(cislos, i, 1)
Next i
For i = x + 1 To Len(cislos)
cast2 = cast2 & Mid(cislos, i, 1)
Next i
a = Val(cast1)
b = Val(cast2)
jo a ještě, to rozkouskovávání na 2 menši řetězce (před a za čarkou), jak přesně by se to dalo udělat? jelikož to, jak sem to touhle metodou zkoušel já, mi přijde zdlouhavějši než pomoci tohodle:
y = cislo
a = trunc(y)
b = cislo - a
For i = 3 To Len(b)
b = b * 10
Next i
ajo, taky možnost, diky :)
ha, tak se mi to asi povedlo vyřešit, použil sem tam funkci len(y) do for cyklu a tolikrát sem to čislo vynasobil 10x, testovat to bud až v patek, snad to nezapomenu :D..
pardon, v kodu te f-ce samozřejmě ma byt
trunc=0
zdravim. mam zase jeden problem. dejme tomu, že mám nějake desetinné číslo a potřebuju ho rozdělit na 2 (jedno je to před a druhe za desetinnou čarkou) - v podstatě souřadnice, který potřebuju rozdělit na X a Y
na X (před des. čarkou) sem si vytvořil f-ci trunc(sem na ňu zvyklej z pascalu a nevim jestli je něco takovyho i ve VB). nemam tu momentalně ty zdrojaky ale vypada nějak takto
function trunc(x as double)
function=0
while x>=1 then
x=x-1
trunc=trunc+1
wend
end function
takže
x=trunc(cislo)
y=cislo - x
tak sem dostal desetinny Y (ale to někdy VB vypisoval nesmyslně, misto aby ho dal 0,2 (z čisla třeba 3,2) ho dal jako 0,1999999,což sem vyřešil přičtenim 0,1 a zaokrouhlenim dolu)
a jak z tohodle vytvořit cely čislo? kdyby to byly jen desetiny, tak to vynasobim 10x, ale to mužou byt setiny, tisiciny...
Hojte, mam problem... mam přiklad, ve kterym mi uživatel zada jeden z udaju u krychle (strana,objem,povrch nebo tělesova uhlopřička) a ja mam dopočitat zbytek.. to je eště v pohodě, tam je jenom par možnosti.. jenomže pak mam eště kvadr u kteryho mi uživatel zada 3 z udaju (a,b,c,objem,povrch,tělesova uhlopřička) a taky dopočitat zbytek... tam už je těch možnosti mnohem vic a mě se nechce psat zvlášť podminku pro jakoukoliv kombinaci 3 udaju.. nenapadá vás jak by se to dalo usnadnit? :) předem dik