Anonymní profil Rampa – Programujte.com

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? :)

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

x=trunc(cislo)

y=cislo - x

To Honzc : diky ;), dobrá práce :)

no tak, neřikejte že vas nic nenapada :) potřebuju to tendle vikend udělat a vypisovat to pro každou možnost se mě nechcé... :)

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