O chestie super tare :D

[•dobre]

Trebuie sa ii multumesc unei profesoare din Lunca Cernii care a gasit o solutie geniala in mai putin de o ora
Enunt problema:
Sa se afiseze primele n patrate perfecte.
Ex:  N=4
1 4 9 16
Solutia :

Cod:

var i,k,n:Integer;
begin
Write('Dati N : ');ReadLn(n);
K:=0;
i:=1;
While K<N do
      begin
           if frac(Sqrt(i))=0 then
              begin
                   Write(i,' ');
                   K:=K+1;
              end;
           i:=i+1;
      end;
ReadLn;
end.

Sper k v-ati luminat  ... asa cum m-am luminat si eu  

[•silviug]

What ?  

Ar trebui sa radem ?  

[•dobre]

Mie mi s-a parut :lol: , dar no.. nu trebuie sa fie amuzanta pt. toata lumea... totusi te astepti de la un profesor sa aiba ceva solutii mai elegante la probleme asa dificile ... Nu esti de aceeasi parere? .

[•wickedman]

Eleganta sau nu, ai grija la comparatii de floating point cu 0.
Daca mai ai si numere mari, poate ar fi mai safe ceva de genu`:
r = round(sqrt(n))
testul:  r*r == n

[•dobre]

Pai in plus k este si mai rapid   ...
Profesoarei i s-a prezentat solutia cea mai simpla, cred...
dar din pacate nu a inteleso foarte bine...
Ea este ambitioasa insa nu prea stie info dar are tot timpul din lume k sa invete  

[•wefgef]

las-o mah in pace...

e profa ta? in caz ca da, presupun ca ii faci zile fripte la ore, nu?

[•dobre]

Pai eu am la scoala 2 profesoare... una dintre ele este super klumea iar cealalta ii pasta(nu ii fac zile fripte neaparat k ma simpatizeaza).
Dar in cazul de fatza chiar nu este vb de profesoara mea  :lol:

[•cristy]

lasa profii in pace...ca is depasiti de situatie, multi dintre ei

[•Coty]

wow, chiar e utila...
btw, imi scuzati (ne)cunostintele de geografie, dar unde vine lunca cernii??? sau cum ii zice?... eu zic ca e suficient faptul ca exista o profa de info acolo... sa mai stie si info foarte bine... cereti cam mult