Anonymní profil Rampa – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu

Anonymní profil Rampa – Programujte.comAnonymní profil Rampa – Programujte.com

 

Příspěvky odeslané z IP adresy 89.102.3.–

Rampa
OS - GNU / Linux › Lazarus
17. 6. 2009   #110673

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

kolotoc
Visual Basic › Desetinné na celé číslo
10. 6. 2009   #110366

ajo, to mě nenapadlo :), diky

kolotoc
Visual Basic › Desetinné na celé číslo
10. 6. 2009   #110362

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)

Kolotoc
Visual Basic › Desetinné na celé číslo
9. 6. 2009   #110316

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

Kolotoc
Visual Basic › Desetinné na celé číslo
9. 6. 2009   #110312

ajo, taky možnost, diky :)

Kolotoc
Visual Basic › Desetinné na celé číslo
8. 6. 2009   #110291

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..

Kolotoc
Visual Basic › Desetinné na celé číslo
8. 6. 2009   #110290

pardon, v kodu te f-ce samozřejmě ma byt

trunc=0

Kolotoc
Visual Basic › Desetinné na celé číslo
8. 6. 2009   #110289

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...

Pascal › Krychle a kvádr
3. 6. 2009   #102172

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

Pascal › Krychle a kvádr
28. 5. 2009   #101894

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é... :)

Pascal › Krychle a kvádr
27. 5. 2009   #101830

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

 

 

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032020 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý