problem s vypoctom x na k-tu

petos · Napísal **petos**: 07.05.2008 16:37

Potrebujem napisat program ktory vypocita zo 2 vstupnych hodnot x na n-tu.
Diky

Ivan11114 · Napísal **Ivan11114**: 07.05.2008 17:32

Ta funkcia je tu uz asi 100x. Prejdi si ostatne temy a najdes ju. (a okrem toho ani nepises v akom programovacom jazyku)

neutronmind · Napísal **neutronmind**: 07.05.2008 17:34

skus takto, a tie "Zadajte cislo" a "Zadajte N" si zmen, to som tam dal len tak provizorne...

Kód:

program mocniny;

var
A,B,X,N: integer;

begin
B:=1;
write('Zadajte cislo: ');
readln(X);
write('Zadajte N: ');
readln(N);
for A:=1 to N do
B:=B*X;
writeln(B);
readln;
end.

petos · Napísal autor témy **petos**: 07.05.2008 17:49

diky neutronmind

PS. mohol by si prosim ta napisat toto iste ale s cyklusom repeat? :oops:

neutronmind · Napísal **neutronmind**: 07.05.2008 18:14

petos píše:

diky neutronmind

PS. mohol by si prosim ta napisat toto iste ale s cyklusom repeat? :oops:

hm preco s cyklusom repeat??

ma to byt tak?? mne sa to dohto moc repeat nehodi, ale sak skusim...

//alebo pockaj, myslis to tak, ze sa bude opakovat uplne cely program, tym padom sa budu dat vypocitat mocniny viacerych cisel?? :roll:

neutronmind · Napísal **neutronmind**: 11.05.2008 20:36

no na tuto temu som uz aj zabudol a neviem ci je to este akutalne, ale teraz mi doplo ze sa ten cyklus for-to-do da v pohode nahradit cyklom repeat-until... takze ak to este potrebujes, tak tu je zdrojak

Kód:

program mocniny;

var
  A,B,X,N: integer;

begin
B:=1;
A:=0;

write('Zadajte cislo: ');
  readln(X);
write('Zadajte N: ');
  readln(N);

repeat
  B:=B*X;
  A:=A+1;
until A=N;

writeln(B);
readln;

end.

petos · Napísal autor témy **petos**: 12.05.2008 12:25

diky neutronmind toto som potreboval

ado21 · Napísal **ado21**: 30.09.2008 1:05

@neutronmind: Kazdy cyklus sa da nahradit kazdym cyklom velmi jednoducho....

beginner · Napísal **beginner**: 06.10.2008 14:19

ako to ze ten program pocita aj cisla na nultu ?

stopa27 · Napísal **stopa27**: 06.10.2008 15:31

nebolo by jednoduchsie urobit exp(ln(a)*x) ?
-vypocita to a na x.
cize 2 na 4 = exp(ln(2)*4)

neutronmind · Napísal **neutronmind**: 06.10.2008 17:30

beginner, aby sa dali pocitat aj mocniny na nultu, musel by tam byt najskor cyklus while

Kód:

while (A<>N) do
begin
  B:=B*X;
  A:=A+1;
end;

alebo repeat a kontrola, ci sa N nerovna nule.

Kód:

if (N=0) then
  B:=1
else
  repeat
      B:=B*X;
      A:=A+1;
  until A=N;

stopa27 - moze byt, ale tu funkciu som vtedy nepoznal.

stopa27 · Napísal **stopa27**: 07.10.2008 0:25

preto som si kedysi na dobru noc cital help

problem s vypoctom x na k-tu

Podobné témy