|
| Autor |
Správa |
marianna
Amateur
Pohlavie: 
Stav: 
Založený: 19.09.2005
Príspevky: 28
Bydlisko: Prievidza
Karma:   
|
 Zaslal: 31 Aug 2006, 9:57 Predmet: pomoc s jednym zadanim |
  |
|
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  |
|
| Návrat hore |
|
 |
ppt
Professional
Pohlavie: 
Stav:
Založený: 27.05.2006
Príspevky: 1481
Karma: 
|
| Zaslal: 31 Aug 2006, 10:28 Predmet: Re: pomoc s jednym zadanim |
|
|
| 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:
| Citácia: |
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.
|
|
|
| Návrat hore |
|
|
mastermind
Moderátor
Pohlavie:
Stav:
Založený: 09.02.2005
Príspevky: 4721
Karma: 
|
| Zaslal: 31 Aug 2006, 11:49 Predmet: |
|
|
| Ak hovorime o PL jazyku teda o presentation language mozes si tam definovat typ aky len chces. |
|
| Návrat hore |
|
|
oborpeto
Medium Expert
Stav:
Založený: 21.06.2006
Príspevky: 123
Bydlisko: cadca
Karma:
|
| Zaslal: 31 Aug 2006, 11:50 Predmet: |
|
|
dovolim si zfeefektivnit:)
| Kód: |
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.
|
|
|
| Návrat hore |
|
|
ppt
Professional
Pohlavie:
Stav:
Založený: 27.05.2006
Príspevky: 1481
Karma:
|
| Zaslal: 31 Aug 2006, 12:05 Predmet: |
|
|
| oborpeto napísal: |
dovolim si zfeefektivnit:)
| Kód: |
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: |
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.
|
|
|
| Návrat hore |
|
|
IgiPoP
Medium Star
Pohlavie:
Stav:
Založený: 12.09.2005
Príspevky: 448
Bydlisko: MT
Karma: 
|
| Zaslal: 31 Aug 2006, 13:48 Predmet: |
|
|
naco pouzivat ciklus ked nieje treba
| Kód: |
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.
|
|
|
| Návrat hore |
|
|
gwixt
Addict
Pohlavie:
Stav:
Založený: 24.09.2005
Príspevky: 3342
Bydlisko: Trash-Can
Karma:
|
| Zaslal: 02 Sep 2006, 17:44 Predmet: |
|
|
| IgiPoP napísal: |
naco pouzivat ciklus ked nieje treba
| Kód: |
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 |
|
| Návrat hore |
|
|
IgiPoP
Medium Star
Pohlavie:
Stav:
Založený: 12.09.2005
Príspevky: 448
Bydlisko: MT
Karma:
|
| Zaslal: 02 Sep 2006, 18:05 Predmet: |
|
|
| 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.  |
|
| Návrat hore |
|
|
|
|
 |
|
