Pagalbos Paskalyje.

Sveiki, gal kas padetu parasyti programele, kuri ivedus skaiciu istrauktu is jo kubine sakni. :rolleyes:

Tau visos reikia ? Ar tik ant kelio užvest? :)

Tau visos reikia ? Ar tik ant kelio užvest? :)

ant kelio uzvest butu visai neblogai. :)

program Bevarde9;
   var a : real;
begin
 WriteLn('iveskite skaiciu: '); ReadLn(a);
 WriteLn('Atsakymas: ', power(a, 1/3));
 Readln;
end.

program kubine;

var x:real;

begin

WriteLn('Ivesk skaiciu');

read(x);

 

writeln (power(x, 1/3):5:5);

 

Readln;

Readln;

end.

 

velniava, nespėjau :D

O veiksmo, kad butu su sqrt neina kazkaip padaryt? :unsure:

O veiksmo, kad butu su sqrt neina kazkaip padaryt? :unsure:

 

Ne, man rodos

Redagavo Rugsėjo 15, 2011 Arvis

O veiksmo, kad butu su sqrt neina kazkaip padaryt? :unsure:

„sqrt“ - „square root“ trumpinys

function isCube(num: integer): boolean;
var
 temp: real;
 cube, i: integer;
begin
 isCube:= false;
 temp := abs(num);
   for i := trunc(sqrt(temp)) downto 0 do
   begin
     cube := i*i*i;
     if cube = abs(num)
       then isCube:= true;
   end;
end;

Funkcija kaip tik šiandien rašiau :)

Redagavo Rugsėjo 15, 2011 L33T

o kuo blogai ta? Juk kubinę šaknį traukia + tai optimali programa, nes minimaliai parašyta :D o programuojant to ir reik gi