Pascal program

alikishax

Vypočítajte xn, pričom x je kladné reálne číslo a n je prirodzené číslo bez
použitia operácie umocňovanie .

takze mam tento priklad,len dako moja logika nenachadza odpoved ako to spravit? poradite?

neppo · Príspevok od používateľa **neppo** » 16 jan 2009, 2:24

ja by som to riesil takto napr.

Kód: Vybrať všetko

...
x1:=1;

if (n > 0) then 
   for i:=1 to n do x1:=x1*x;

writeln(x,' na ',n,' = ',x1);
...

zvysok ako x a n si uz osetri sam ze ake mozu byt

PS: v pascale som uz davno nerobil tak sorry za syntax

programator

Kód: Vybrať všetko

uses crt;

var x, r, n: longint;

begin
   clrscr;

   readln(x, n);

   r := 1;

   while (n > 0) do
    begin
      r := r*x;
      dec(n);
   end;

   writeln(r);
   readln;
end.

neutronmind

Do tretice vsetko dobre...

Kód: Vybrať všetko

function pow(x:integer; y:integer):integer; {pow(x, y) - vracia x^y}
var i, pom:integer; 

begin 
     pom:=1; 
     for i:=1 to y do 
         pom:=pom*x; 

     pow:=pom; 
end;