- Milyen billentyűzetet vegyek?
- Apple MacBook
- Hobby elektronika
- AMD Ryzen 9 / 7 / 5 7***(X) "Zen 4" (AM5)
- Szünetmentes tápegységek (UPS)
- Milyen processzort vegyek?
- Meghalt a Windows 10, éljen a Windows 10!
- Samsung Galaxy Tab S11 - tizenegyes
- AMD Navi Radeon™ RX 9xxx sorozat
- Amlogic S905, S912 processzoros készülékek
Ú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ásBá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);
}
Új hozzászólás Aktív témák
- Autós topik
- Mibe tegyem a megtakarításaimat?
- Kínai és egyéb olcsó órák topikja
- Milyen billentyűzetet vegyek?
- Apple MacBook
- Huawei Watch GT 6 és GT 6 Pro duplateszt
- Hobby elektronika
- AMD Ryzen 9 / 7 / 5 7***(X) "Zen 4" (AM5)
- Szünetmentes tápegységek (UPS)
- Milyen processzort vegyek?
- További aktív témák...
- Samsung Galaxy S24 Ultra 512 GB (Ezüst) Prémium ajándékcsomaggal Típusváltás miatt eladó
- Ghost of Yotei + előrendelői kód
- Gigabyte RTX 4080 XTreme WaterForce 16GB GDDR6X Videokártya! BeszámítOK
- XBOX Series Shock Blue kontroller - Gar.: 2026.04 hó
- Mini PC - HP EliteDesk 800 G3 DM / i5-6500T / DDR4 / NVME M.2 / USB Type-C / több db / 27% számla
- Honor X6a 128GB, Kártyafüggetlen, 1 Év Garanciával
- iPhone 13 128GB Pink -1 ÉV GARANCIA - Kártyafüggetlen, MS3430, 91% Akkumulátor
- Designer 4K Monitor - BenQ PD-3200-U
- Huawei Watch GT 5 Pro 42mm, 1 Év Garanciával
- Telefon felvásárlás!! Apple iPhone 16, Apple iPhone 16e, Apple iPhone 16 Plus, Apple iPhone 16 Pro
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: Promenade Publishing House Kft.
Város: Budapest