On 25 Mar 98 at 6:14,  > wrote:

> Sziasztok!

Szia

(Lehet, hogy erre is lesz most 12 megoldas?) :))))

> SOS kellene a suliba egy c-ben irodott bit forditas, rotalas.

Forditason gondolom invertalast ertesz.

>   mask = ~((~mask)>>1);

E helyett csinalhatsz olyat, hogy
    mask = INT_MAX + 1; /* legfelso helyierteku bit */

> fordb(unsigned int c,int r)
[...]
>   for(i=0;i<=r;i++)
>     {
>       if((c&mask)!=0) f=(f<<1)|1; else f=f<<1;
>     }
>   return(f);

Ez nem jo, mert mindig ugyanazt a bitet nezed. (Raadasul 1-gyel 
tobbszor forgatsz, mint kellene.) Nincs egyebkent szukseg f-re, 
nyugodtan modosithatod c-t: 

unsigned fordb(unsigned c, int r)
{
  int i;
  for (i=0; i<r; i++)  /* r-szeres forgatas balra */
     if (c & (INT_MAX + 1)) c = (c << 1) | 1; else c <<= 1;
  return c;
}

> fordj(unsigned int c,int r)

Itt is ugyanaz a helyzet, plusz meg a c&i nem az i-edig helyierteku 
bitet nezi meg!

unsigned fordj(unsigned c, int r)
{
  int i;
  for (i=0; i<r; i++)  /* r-szeres forgatas jobbra */
     if (c & 1) c = (c >> 1) | (INT_MAX + 1); else c >>= 1;
  return c;
}

> invert(int a,int p,int h)

Ez tul bonyolult volt, lattam benne par elirast is, inkabb mast 
javaslok. Alapotlet, hogy 2**n-1 egy olyan szam, ami n darab 1-es 
bitbol all a kis helyiertekeken.

unsigned invert(unsigned c, int p, int h)
{
  if (h > p) h=p; /* p poziciotol kezdve max p bit van jobbra */
  unsigned p_bits = (1 << (p+1)) - 1;     /* 00001111111 ha p=6 */
  unsigned v_bits = (1 << (p+1-h)) - 1;   /* 00000001111 ha h=3 */
  return c ^ (p_bits ^ v_bits);
}

A zarojelek a return-ben persze nem kellenek, de igy jobban latszik, 
mit csinal.

Egyebkent erdemesebb beszedesebb valtozoneveket adni, ahol erdemi 
adat van valtozoban. (Szoval a for-nal maradhat i, de a c, r, p, h 
helyett jobb lenne normalisabb.)

István
--  Istvan Marosi  --  http://www.sch.bme.hu/~marosi  --
--  Recosoft Ltd.  --  mailto:  --

Kedves LISTA!

EN EGY NAGY HUjE VAGYOK!!!

> > Ami jo lenne: AX megmaradjon!
> 
> Ajanlom az AND-et...
> 
> AND Memory, 1
> jz @paros
> paratlan:

Persze, hogy TEST-et akartam irni, de amint fent leirtam hulye vagyok! 
:-( Bocs mindenkitol, aki jogosan a fejehez kapott...

Bocs && udv From:, az L-iras

Sziasztok!

Probalnek osszedobni egy diskmagot Pascalban-Asmben, azonban ket
problema is felmerult:

1.) A grafikat normalisan csak 13h (320x200 256c) modban lehetne (azaz
tudnam) osszehozni. De egyszeruen nem tudok szovegeket kiiratni ebben a
modban. Eleg lenne, ha az egyszeru DOS fontokat hasznalni tudnam. Van
valakinek erre valami rutinja?

2.) Hatalmas segitseg lenne egy masik diskmag forraskodja. Tudom, ki
olyan hulye, hogy kozkezre adja, de megis...

kosz,

Gyongyosi Peter

Hi coders!

	Az elozo szamot lehetne "paros vagy paratlan" szamnak is hivni.

Egy kerdes : Foglalkozik valaki protected modban valo progizassal,
mert ha igen, akkor egy kerdes ( ezen a teren meg kezdo vagyok,
ugyhogy nem er rohogni ) :
	
	Ha a ltr-rel egy uj task descriptort toltesz be, akkor az a verem
atkapcsolasat is megcsinalja, valamint kicsereli a (pl reti) utan a
regisztereket + mindent????

	Ha valaki kompetens a temaban akkor jo lenne, ha segitene, mert
elakadtam. ( Konkret algoritmusra is vevo vagyok )  


						Udv : Deme
					 )

 ... , aki majdnem legyozte a sarkanyt!

Hali!

Par oraja foglalkozom komolyabban delphivel, de va egy kis gondom, 
amit sehogy se birok megoldani, pedig biztos allati egyszeru.
Vanik nekem egy 'a' valtozom, ami real (esetleg extended tipusu.
Namarmost hogy a fenebe tudok en ebbol gyokot vonni?
basic rulez a=sqr(a). De ez itten nem akar mukodni. A help meg sz@rt 
se er ezugyben.

elore is koszi

ui: nem vicc, tenyleg ilyen hulye vagyok ugylatszik :))

Lantos Tibor               UIN : 1029460
 cc:
http://iq.rulez.org/~tlantos/

/\/\/\/\    A legszebb irasjel a kerdojel (?)    /\/\/\/\

Sziasztok,

Latom folenyesen nyert a TEST utasitas... legalabbis mennyisegben:)
(Az AND persze nem jo, mert nem hagyja erintetlenul az eredeti 
regisztert- s ez kifejezett kivansag volt.)

Akkor en adok egy kovetkezo hazifeladatot:

ASM-ben kellene megcserelni az AL-ben mondjuk a 2-es es 5-os bitet.
(Az AL tobbi bitje maradjon valtozatlan!)
Kie lesz a leggyorsabb (legjobb) megoldas ?? :))

Sziasztok
Juan

Sziasztok CODER-ek!

A subjectbeli unitot keresnem delphi 2-hoz. A Delphi Super Page-rol
letoltott komponensek nemelyike hivatkozik ra, viszont sehol sem
sikerult a nyomara akadnom. A Help-bol annyit megtudtam, hogy
valami win95-os kodot generalo C++ kornyezetben van egy 
SHLOBJ.H header, igy ez gondolom egy interface unit.

Ha valakinek megvan (esetleg a C header is jo, majd atalakitom), vagy
tud egy cimet ahonnan letoltheto, segitsen ki vele!

Koszonettel:		Laci

--
Vagasi Laszlo
E-Mail to: