Üdv!

Volna egy - lehet hogy lamer - kérdésem: hogyan lehet binárisan fájlt
kezelni Delphi 4.0 alatt? Jelszót szeretnék eltárolni és visszaolvasni,
ugyanis. Előre is köszönet:


Józsi

Hello!

>Adott ket egyenes. Mindketto ket-ket pontjanak a koordinataja
>ismert. Ezekbol az adatokbol kiszamolhato, (hat persze) hogy
>hol metszik egymast, azaz a metszespont koordinataja?

A linearis egyenletrendszert az egyenesek egy pontjara
es iranyvektorukra irtam fel. Ezert van az elejen a 4 db
segedvaltozo. A megoldast a Cramer-szabaly szerint
szamitom.

// a 2 egyenes 2-2 pontjat veszi at
// a metszespont az mx, my ref. valtozokban lesz
// 0-t ad vissza, ha nincs metszespont

int LineCross(float lin1x1, float lin1y1, float lin1x2, float lin1y2,
              float lin2x1, float lin2y1, float lin2x2, float lin2y2,
              float &mx, float &my)
{
  float v1x, v1y, v2x, v2y;
  float deta, deta1, deta2;

  v1x = lin1x2-lin1x1;
  v1y = lin1y2-lin1y1;

  v2x = lin2x2-lin2x1;
  v2y = lin2y2-lin2y1;

  deta1 = v2x*(lin2y1*v1x+lin1x1*v1y-lin1y1*v1x)-v2y*lin2x1*v1x;
  deta2 = v2x*(lin2y1*v1y)-v2y*(lin2x1*v1y-lin1x1*v1y+lin1y1*v1x);
  deta = v1y*v2x-v1x*v2y;

  // lehet, hogy itt turessel kell ellenorizni 
  // (pl. abs(deta)>nagyon_kicsi_szam)

  if(deta)
  {
    mx = deta1/deta;
    my = deta2/deta;
    return 1;
  }
  else return 0; // parhuzamos egyenesek, nincs mp.
}

Udvozlettel:
Peter

a Delphi 3.0.
 
Elore is koszonom
Tamas

Adott ugyebar 4 pont. ( felteve, ha 2D-ben kellett megcsinalni, nem volt a
feladatban )

A(a1,a2), B(b1,b2)
C(c1,c2), D(d1,d2)

Amik meghataroznak egy AB es egy CD egyenest.

A metszespontjuk:

x=((b1-a1)*(c2*d1-c1*d2)+(d1-c1)*(a1*b2-a2*b1))/((b2-a2)*(d1-c1)-(d2-c2)*(b1-a1
))
          
y=(x*(b2-a2)-a1*b2+a2*b1)/(b1-a1)

Hat ennyi!

Az eljaras elejen erdemes meghatarozni, hogy nem parhuzamosak-e az egyenesek!

Ha igen, akkor a (b1-a2)/(b1-a1)=(d2-c2)/(d1-c1) feltetel igazza valik.

Udv: Misi

Szevasztok koderek!

Tenyleg nem lehet 1k-s mezot definialni SQL-ben csak valamilyen kulso adatbazis
kezelo programmal?

( Ezzel nem akarom megkerdojelezni  segitseget )

Legyszi siessetek, mert eleg surgos.

Elore is koszi a segitsegeteket:

Zachar Misi

Hi!
    Hogyan lehet egy 5 elemu tombot csinalni, amelynek minden eleme egyenkent e
gy 30 karakter hosszusagu string tarolasara alkalmas.
Hogyan lehet ezekre az elekre hivatkozni?
Udv.: Jozsi

On Fri, Jun 11, 1999 at 01:14:00PM +0000,  wrote:
> Azt kerdeznem, hogy Debianeknal melyik csomagban van a String.h header
> es tarsai?

libc6-dev

_tgz
-- 
Premature optimization is the root of all evil - Knuth

On Sat, Jun 12, 1999 at 09:40:32AM +0000,  wrote:
> van egy progim, ami nem muxik, es nem tudok rajonni,
> hogy mi a hiba. (most kezdek c-ul tanulni)
> a lenyeg:
> 
> typedef struct sor {
> 	char month[4];
> 	char host[7];
> } Line;
> 
> void main(void)
> {
> 	Line sl;
> 
> 	splitline(string,sl);
			^^^^
ez itt ertek szerint adja at, most cimszerintire van szukseg,
mert szeretned visszakapni a modositasokat: &sl
> 	printf("%s",sl.month);
> }
> 
> void splitline(char *s, Line l)
			^^^^^^^^^
ide is ennek megfeleloen Line *l
es
> {
> 	split(s,l.month,' ');
split(s, l->month, ' ');

lehetne &l->month[0] is, ugyanazt jelenti

> }
> 
> void split(char *s, char *d, char sp)
> {
> 	int i;
> 	char c;
> 
> 	for (i = 0; (c = s[i]) != sp; i++)
> 		d[i] = c;
> 	d[i] = '\0';
> }

itt nem artana tulcsordulast ellenorizni

> hulyeseget ir ki. ha a split() vegere beirok egy
> 'printf("%s",d);'-t, vagy ha a splitline() vegere
> 'printf("%s",l.month);'-t, akkor azt irja ki, amit kell.

igen, mert az l.month helyesen, poniterkent adodik at a
split()-nek

_tgz
-- 
Premature optimization is the root of all evil - Knuth

> Felado : Zachar Misi
> ...
> SQL-ben kellene definialni egy 1k-s mezot, ami karakteres.

Az SQL92 (tényleg, van újabb?) tudtommal nem rendelkezik az ilyen nagy méretű t
ípusokról.  Viszont a legtöbb
adatbáziskezelő az nyújt ilyen szolgáltatást.  Pl. a DB2-ben a CLOB(1k) az megt
eszi.

-- 
Live fast, die hard.
ImRe

>Most olyant nem tudok, hogy hogyan kell cimkere ugratni az
>asm betetet C-ben.
>   cmp bx, 1
>   jpe @odadegyorsan
:

Hello!

Itt van a BC++3.1 CRTL-bol egy pelda:

int _CType abs(int i)
{
asm     mov     ax, i
asm     or      ax, ax
asm     jge     exit
asm     neg     ax
exit:
        return _AX;
}

Annyi a korlat, hogy csak C label-hel lehet ugrani, 
vagyis az alabbi NEM jo:

	asm
	{
		cmp bx, 1
		jpe @odadegyorsan
		...
@odadegyorsan:	
		...
	}

De ha igy irod, akkor jo:
	asm
	{
		cmp bx, 1
		jpe @odadegyorsan
		...
	}
odadegyorsan:	
	asm
	{
		...
	}	

Udv.

Attila Voros, Chief Engineer, ISDgames

Hello mindenkinek!

Az lenne a kérdésem, hogy ha írok egy memóriarezidens programot TP7-ben,
hogyan tudom azt később kitörölni onnan (pl. ha mégegyszer lefuttatom egy /u
paraméterrel), és azt megoldani, hogy ha már egyszer benn van a memóriában,
akkor ne induljon el újra (és figyelmeztessen)?

Valamint más programokat is le lehet-e ölni egy adott programból?

ASM betét is jó lesz. ( Nem hiszem, hogy simán pascalban könnyü lenne...)

Üdv : Skolnik Zoltán

Helló mindenki !
Keresek egy olyan progit, amivel egy perl CGI-t le lehet futtatni a
saját vinyómon tesztelés képpen.
Kösz !