Anonymní profil Honzc – Programujte.com

#5 Bogus
Ještě se to může vylepšit tím, že velikost hrany a se najde takto: (nemusí se tedy zadávat)

a = max(|x1-x2|, |y1-y2|, |z1-z2|)

Ostatní stejné.

#1 Alex
a) =5xy(3xy^2-1)

b) =5a^2b^2(15a^3b+5a^2b-1)=5a^2b^2[5a^2b(3a+1)-1]

c) =x^2(x-y)-y^2(x-y)=(x-y)(x^2-y^2)=(x-y)^2(x+y)

d) =a^2(a+b)+b^2(a+b)=(a+b)(a^2+b^2)

#1 Nikolishe
Zkus si projít následující program http://www.ms.mff.cuni.cz/…vocislo.html a udělej si z něho funkci, která místo toho výpisu, pokud to bude prvočíslo, ho přičte do nějaké proměnné soucet, ve které se budou ta prvočísla sčítat.

Jinak bych ještě v tom plnění natice to udělal takto: x[i,j] := random(99)+1; (pak ti to bude matici plnit čísly od 1 do 99) (tobě to teď plní matici čísly od 0 do 99) a pak ještě výpis

write(x[i,j],' '); zkus přepsat na write(x[i,j] :3);

#1 Matěj Andrle
Pokud chceš čtverec

1.zvol si střed čtverce (bod(xs,ys))

2.zvol stranu (nebo lépe polovinu strany b=a/2=číslo)

3.v cyklech přes všechna x a všechna y napiš podmínku

  když ((x>=xs-b)a zároveň(x<=xs+b)a zároveň(y=ys-b))nebo

          ((x>=xs-b)a zároveň(x<=xs+b)a zároveň(y=ys+b))nebo

          ((y>=ys-b)a zároveň(y<=ys+b)a zároveň(x=xs-b))nebo

          ((y>=ys-b)a zároveň(y<=ys+b)a zároveň(x=xs+b)) pak

          kresli pixel (x,y) nějakou barvou

          jinak

          kresli pixel (x,y) jinou barvou

#1 michal
Jak to udělat nevím, (v delphi by šly vypočítat jednotlivé body, které by se stejně asi musely potom zadávat do příkazů AUTOCADu v jeho programovacím jazyku) ale AUTOCAD má svůj vlastní jazyk AutoLisp, ve kterém je k dispozici i grafické rozhraní (s možností načítání obrázků)

Pro představu si můžeš stáhnout jeden takový program na následující adrese http://www.ulozto.cz/xvguTre/ohyb-zip