Ezt, hogy csináljam meg? Semmi ötletem sincs így még csak bele sem tudok kezdeni.

Ha az egész szám 0 vagy pozitív, akkor lehet belőle négyzetgyököt vonni, ha a valós számkörben akarsz maradni.

Ha arra vagy kíváncsi, hogy egy szám éppen négyzetszám-e, és abból gyököt vonva egész számot kapsz-e, akkor készíts egy ciklust, amely az egész számok négyzetét összehasonlítja a beírt számmal. Ha már a négyzetre emelés eredménye meghaladja a beírt számot, akkor nem lehet belőle gyököt vonni úgy, hogy az egész szám legyen.

Ha egyenlőség van, akkor az lesz a gyöke, ahol éppen tart a ciklus. Azt kell kiíratnod.

Pascal példa:

Program Szam;

uses Crt;

var

i, hiba: integer;

s: string;

begin

ClrScr;

Write('Kérem, hogy írjon be egy egész számot: ');

ReadLn(s);

Val(s,i,hiba);

if hiba<>0 then

begin

Writeln('Nem számot írt be !');

Exit;

end;

if i>=0 then

begin

Writeln('A szám négyzetgyöke: ', Sqrt(i));

end

else

Writeln('A szám negatív !');

ReadKey;

end.

Javítva, hogy megnézze négyzetszám -e.

Program Szam;

uses Crt;

var

i, hiba: integer;

s: string;

begin

ClrScr;

Write('Kérem, hogy írjon be egy egész számot: ');

ReadLn(s);

Val(s,i,hiba);

if hiba<>0 then

begin

Writeln('Nem számot írt be !');

Exit;

end;

if i>=0 then

begin

Writeln('A szám négyzetgyöke: ', Sqrt(i));

if Frac(Sqrt(i))=0 then Write('A szám négyzetszám');

end

else

Writeln('A szám negatív !');

ReadKey;

end.

Alapvetően minden számnak van négyzetgyöke a komplex számok körében. Erre vagy van függvénye a nyelvednek, vagy nincs.

Valós számok körében a nemnegatív számoknak van négyzetgyöke. Erre általában van függvénye a nyelvednek.

Természetes számok körében a négyzetszámoknak van négyzetgyöke. Erre a valós számok négyzete teljesen jó, ha az eredmény egész (azaz a floor-ja megegyezik a számmal), akkor a szám is négyzetszám.