Pascal - stupidní problém

[kozomelec2]

Zdravím, asi Vám tento problém přijde stupidní, ale já nevím jak toto vyřešit.

Udělal jsem si program, který má vypočítat třetí mocninu čísel od 1 do 10 + vám pak vypočítá součet všech celých čísel od 1 do n. Zatím jsem teprve u té mocnin, ale již zde mám problém.

Kód: Vybrat vše

program project1;
uses crt, mocnina;
var n:integer;

procedure NactiVstupOdUzivatele;
begin
   write('Zadej cele cislo n: ') ;
   read(n);
end;

begin
  write('Tento program vam vypise tabulku tretich mocnin cisel od 1 do 10');
  write(' + soucet vsech celych cisel od 1 do zvoleneho cisla n');
  writeln('treti mocnina cisel je: ');
  write(mocnina);
end.

               

V posledním řádku, když chci vypsat mocninu, tak mi překladač hlásí chybu, že za slovem mocnina očekával tečku, ale našel závorku, poradíte mi s tímto problémem? Děkuji

[Reklama]

[faraon]

Knihovnu mocnina můj Turbo Pascal fakt nezná

Kód: Vybrat vše

uses crt, mocnina;
var n:integer;

[izzy1995]

na mocninu si musíš vytvoriť vzorec a z toho to bude počítať, bez toho program nejde

[Sender]

Na n- tou mocninu reálnýho čísla můžeš zkusit použít třeba tohle:

Kód: Vybrat vše

Program Mocnina;
var x:real;
    n:integer;

Function Umocni(zaklad:real;expon:integer):real;
var vysl:real;
    i:integer;
Begin
     vysl := 1;
     for i := 1 to expon     do vysl := vysl*zaklad;
     for i := -1 downto expon do vysl := vysl/zaklad;
    umocni := vysl
End;

Begin
     Writeln;
     Write('Zadej zaklad:   ');read(x);
     Write('Zadej exponent: ');read(n);
     Write(n,'. mocnina ',x:0:3,' je  ',Umocni(x,n):0:10)

End.


[faraon]

Sender: Není to zbytečně složité? Chce jen třetí mocninu, takže by stačilo tohle:

Kód: Vybrat vše

for i:=1 to 10 do
    writeln(i,#9,i*i*i);

[Sender]

jj,jde.
Jinak je na to funkce exp z unity Math.