pomoc s jednym zadanim

marianna

napis vyraz, ktorym zistis ci dane cislo je alebo neni mocnina z dvojky
mas to napisat v pseudojazyku..ale take ze cele cislo tam vobec nefiguruje
-----------------------------------------------------------------------------------------
xalani helfnite mi s tym

Príspevok od používateľa **ppt** » 31 aug 2006, 10:28

marianna napísal:napis vyraz, ktorym zistis ci dane cislo je alebo neni mocnina z dvojky
mas to napisat v pseudojazyku..ale take ze cele cislo tam vobec nefiguruje
-----------------------------------------------------------------------------------------
xalani helfnite mi s tym

Nechapem celkom

. Co to ma byt s tym celym cislom?
V pascale by som to napisal takto:

var pom, cislo:integer;
JE:boolean;
begin
readln(cislo);
pom:=1;
JE:=FALSE;
while pom<cislo do
begin
pom:=pom*2;
if pom=cislo then JE:=TRUE;
end;
if JE then writeln('Je mocnina.') else writeln('Nie je mocnina.');
end.

Ak hovorime o PL jazyku teda o presentation language mozes si tam definovat typ aky len chces.

oborpeto

dovolim si zfeefektivnit:)

Kód: Vybrať všetko

var pom, cislo:integer; 
JE:boolean; 
begin 
readln(cislo); 
pom:=1; 
JE:=FALSE; 
while pom<=sqrt(cislo) do 
begin 
pom:=pom*2; 
if pom=cislo then JE:=TRUE; 
end; 
if JE then writeln('Je mocnina.') else writeln('Nie je mocnina.'); 
end.

Príspevok od používateľa **ppt** » 31 aug 2006, 12:05

oborpeto napísal:dovolim si zfeefektivnit:)

Kód: Vybrať všetko

var pom, cislo:integer; 
JE:boolean; 
begin 
readln(cislo); 
pom:=1; 
JE:=FALSE; 
while pom<=sqrt(cislo) do 
begin 
pom:=pom*2; 
if pom=cislo then JE:=TRUE; 
end; 
if JE then writeln('Je mocnina.') else writeln('Nie je mocnina.'); 
end.

Jasne, este sa tam daju robit upravy. Napr co ma napadlo:

Kód: Vybrať všetko

var pom, cislo:integer; 
JE:boolean; 
begin 
readln(cislo); 
pom:=1; 
JE:=FALSE; 
while (pom<=sqrt(cislo))or (JE=FALSE) do 
begin 
pom:=pom*2; 
if pom=cislo then JE:=TRUE; 
end; 
if JE then writeln('Je mocnina.') else writeln('Nie je mocnina.'); 
end.

IgiPoP

naco pouzivat ciklus ked nieje treba

Kód: Vybrať všetko

var cislo:integer; 
      sqrtNum,rozdiel:real;

begin 
  readln(cislo); 
  sqrtNum := sqrt(cislo);
  rozdiel := sqrtNum - trunc(sqrtNum);
  if rozdiel > 0 then
    writeln('Nie je mocnina.'); 
  else 
    writeln('Je mocnina.') 
end.

gwixt

IgiPoP napísal:naco pouzivat ciklus ked nieje treba

Kód: Vybrať všetko

var cislo:integer; 
      sqrtNum,rozdiel:real;

begin 
  readln(cislo); 
  sqrtNum := sqrt(cislo);
  rozdiel := sqrtNum - trunc(sqrtNum);
  if rozdiel > 0 then
    writeln('Nie je mocnina.'); 
  else 
    writeln('Je mocnina.') 
end.

podla tohto napr 128,512,2048... nie su mocninou dvojky .. takze asi to nie je dobry algoritmus

IgiPoP

gwixt napísal:podla tohto napr 128,512,2048... nie su mocninou dvojky .. takze asi to nie je dobry algoritmus

juuuuu

, mas pravdu, idem sa hanbit do kuta.
ale ked niekto bude potrebovat zistit, ci je cislo po druhej odmocnine celociselne, tak je tu na to script.

pomoc s jednym zadanim

pomoc s jednym zadanim

Re: pomoc s jednym zadanim