Hirdetés
Új hozzászólás Aktív témák
-
szandisas
őstag
-
szandisas
őstag
válasz
Rover623
#1770
üzenetére
''If (betu>='a') and (betu<='z') then dec(betu,ord('a')-ord('A'));''
ezt naggyából értem... valami normális leírást tudsz nekem linkelni ahol meg tudom tanulni ? év végén vizsga lesz, csak egy kettesre hajtok
MOD:
erre ez volt a tanár példája:
Var
ch : Char;
Begin
ch:=UpCase('a'); {ch = 'A'}
[Szerkesztve] -
Rover623
félisten
-
Gyuri16
senior tag
válasz
Rover623
#1276
üzenetére
veletlenul ezekhez nincs valami programod amibol megnezhetnem hogyan mukodik. Gondolok konkretan foleg az elso pontra, mert at sikerult kapcsolnom masik ablakba, de az valahogyan eltolta az elsot (nem tudom ertelmesen elmondani, kaptam egy mask ablakot, de az elso reszei valahogy benne voltak, csak eltolva), es nem igazan tudtam vele semmit se kezdeni.
-
Gyuri16
senior tag
válasz
Rover623
#1276
üzenetére
koszi, probalom a setviewportot, de nem teljesen megy. Graphresultba 11 es hibakodot kapok (Graphics error). Tudod mit jelenthet ez?
amit akarok csinalni: rajzolo program: font es lent menu, paletta stb.. azt akarom, hogy ha kort huzok, akkor az semmikepp se logjon bele. -
Lortech
addikt
válasz
Rover623
#1055
üzenetére
Én megnéztem egy sokszor lefutó ciklusba ágyazva, hogy inc(x); inc(x); vagy pedig x:=x+2 fut le gyorsabban, és majdnem kétszer gyorsabb volt az utóbbi. A konkrét feladatot is, ha leírod két inc-cel és x:=x+2-vel is, csak a szemléletesség kedvéért nagyobb elemszámmal, akkor az x:=x+2 a gyorsabb, szóval...
Nyilván csak akkor fordítódik inc-re, hogyha 8/16bites operandusokkal dolgozunk, mivel 8086 rendszer 8086-os fordítóban nincs 32bites inc.
INC(A,B)- nek nem néztem utána, de úgy gondoltam, hogy ugyanaz mintha B-szer inc(A)-t írtam volna, de így kifejezetten inc-ekre fordítja, nem add-ra.
Hogy őszinte legyek, nincs kedvem visszafordítgatni, aztán kibogarászni, de hétvégén megnézem majd, mikor rendelkezésre állnak a megfelelő eszközök (most gépteremből netezek.
).
''A különbség:
Inc(A,B) esetén a B-t betölti az akkumulátorba és az aksit közvetlenül adja az A változóhoz.''
Ezt nem nagyon értem egyébként, azt mondod, hogy van két operandusú inc, ami a leírt módon m
működik, vagy hogy fordítódik le ez, ha nem? -
QuarK
senior tag
válasz
Rover623
#1055
üzenetére
Érdekes; amit írsz, annak alapján tényleg az Inc() gyorsabb lenne, mint a sima összeadás, de mikor ciklusokban alkalmaztam (pl. textúrarajzolás, collision-detection, stb., tehát ami a program futási idejének 90%-át legalább mindig vitte), ott jó pár frame/sec-et javított, ha az összes Inc() utasítást kicseréltem sima mezei x := x + n;-re. Csak próbaképpen legeneráltam 1 millió képkockát, többször egymás után mindkét módszert alkalmazva, és nekem az utóbbi vált be, jóval gyorsabbnak bizonyult.
Gondolom, hogy (talán, nem akarok hülyeséget mondani) a processzor cache valahogy hatékonyabban hajtja végre -- vagy lövésem sincs.
megj.: véletlenszámokat nem használt a teszt, így mindig ugyanazt kellett végrehajtania; + két teszt között mindig restartolva volt a gép.
[Szerkesztve] -
Jester01
veterán
-
Lortech
addikt
válasz
Rover623
#1027
üzenetére
Ha csak nagyjából, akkor jöhet egy jobb megoldás, hadd tanuljak. (komolyan)
Ha +1-et kellett volna hozzáadni (ez sok esetben gyorsabb, mint az add, bár nem minden esetben), akkor ok, de +2-nél biztos vagy benne, hogy gyorsabb és hatékonyabb a két inc? Emlékeimt szerint nem.. -
-
QuarK
senior tag
válasz
Rover623
#565
üzenetére
Felőlem jöhet egy két ínyencség... Bár cserébe nem sokat tudok ajánlani... Amikor öcsike ismerkedett az fdisk-kel, akkor a 2001 előtti cuccosaim mind odavesztek, kivéve egy-két dolgot, ami a régi 286-oson megmaradt, nagymamánál...
De azért akad: xms, pcx betöltés, max. 256 byte hosszú kulccsal való tömörítés (crytp, decrypt), crc ellenőrzés, planéták térbeli helyzetét kiszámító, majd állatövön elhelyező (aka. horoszkóp készítő) progi...
Jah, és most jön a gonoszkodás![;]](//cdn.rios.hu/dl/s/v1.gif)
Bár ez pascal totyik, azért itt megjelenítem a témához, és szerintem nem nagy cucc átportolni pascalra (bár kell vele bajlódni, az fix)
double pow( double y, double x)
{
typedef union
{
double d;
unsigned u[4];
} DBL;
double z, w, p, p2, q, re;
unsigned ex;
int iz;
DBL *yp, *zp, *wp;
yp = ( DBL*)&y;
if ( yp->d <= 0.0)
y = -y;
z = 0.0;
zp = ( DBL*)&z;
zp->u[3] = yp->u[3] & ~0100017;
iz = ( zp->u[3] >> 4) - 1023;
if (( yp->d - zp->d) == 0.0)
z = ( double)iz;
else
{
yp->u[3] -= ++iz << 4;
yp->d *= 1.4142135623730950488;
p = ( yp->d - 1.0) / ( yp->d + 1.0);
p2 = p * p;
z = p * ( 2.000000000046727 +
p2 * ( 0.666666635059382 +
p2 * ( 0.4000059794795 +
p2 * ( 0.28525381498 +
p2 * 0.2376245609))));
z = z * 1.442695040888634 + ( double)iz - 0.5;
}
z *= x;
w = 0.0;
wp = ( DBL*)&w;
if ( zp->d > 1023.0 || zp->d < -1023.0)
return ( 1E307);
iz = ( int)zp->d;
wp->u[3] += iz + 1023 << 4;
wp->u[3] &= ~0100017;
if (( zp->d -= ( double)iz) == 0.0)
return ( wp->d);
while ( zp->d < 0.0)
{
wp->u[3] -= 1 << 4;
wp->u[3] &= ~0100017;
zp->d++;
}
if ( zp->d >= 0.5)
{
zp->d -= 0.5;
re = 1.41421356237309504880;
}
else
re = 1.0;
p2 = zp->d * zp->d;
p = zp->d * ( 7.2152891511493 + p2 * 0.0576900723731);
q = 20.8189237930062 + p2 ;
zp->d = re * wp->d * ( q + p) / ( q - p);
return(zp->d);
}
).
Gondolom, hogy (talán, nem akarok hülyeséget mondani) a processzor cache valahogy hatékonyabban hajtja végre -- vagy lövésem sincs.
![;]](http://cdn.rios.hu/dl/s/v1.gif)
Kizártnak tartom, hogy az Inc bármit is betöltene az akkumulátorba... MOD2: kivéve, ha a B nem konstans. De lehet olyan Inc-et írni?
Új hozzászólás Aktív témák
- Több száz játékban kezdi meg karrierjét az FSR Redstone
- Milyen okostelefont vegyek?
- A Retro Games feltámaszt egy legendát
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- Milyen RAM-ot vegyek?
- 3D nyomtatás
- TCL LCD és LED TV-k
- Háztartási gépek
- Tudományos Pandémia Klub
- sziku69: Fűzzük össze a szavakat :)
- További aktív témák...
- BESZÁMÍTÁS! ASUS H510M i5 11500 16GB DDR4 512GB SSD RX 7600 8GB Zalman T4 Plus be quiet! 600W
- Intel Core Ultra 5 225F Box! 3 èv nèvreszóló számlával!
- Azonnali készpénzes Sony Playstation 5 lemezes és digitális felvásárlás személyesen/csomagküldéssel
- GYÖNYÖRŰ iPhone 13 256GB Midnight -1 ÉV GARANCIA -Kártyafüggetlen, MS3650
- Samsung Galaxy Tab A9 / 4/64GB / Kártyafüggetlen / 12Hó garancia
Állásajánlatok
Cég: BroadBit Hungary Kft.
Város: Budakeszi
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest