Matematické Fórum

myrek · 29. 10. 2010 11:33 — Editoval myrek (29. 10. 2010 13:21)

Dobry den
mym ukolem je napsat program ktery secte prvnich 50 clenu rady $\sum_{i=1}^{\infty} {\frac {5}{6}^{i-1} *i }$

zmeneno

Kód programu:

Code:

Program rada;
const n=50;
var i: integer; suma: real;

begin
   suma:=0;
     for i:=1 to n do
     suma:= suma + i*exp((5/6)*ln(i-1));
   writeln('soucet prvnich 50 clenu je',suma);
end.

kompilace uspesna
dekuji

vojta01 · 29. 10. 2010 12:28

Ahoj, proměnná suma by asi měla být typu real, protože např pro i=2 vyjde suma rovna 2*(5/6). Pascal umí napasovat celé číslo do typu real, ale naopak to neumí.
Pokud to nepomůže, zkusil bych dát výraz (5/6)^(i-1) do závorky. Vnořené begin a end je zbytečné

Jestli používáš průměrnej kompilátor Pascalu, tak by ti měl po neúspěšné kompilaci blikat kurzor na místě, kde je chyba ;)

myrek · 29. 10. 2010 12:29

no jo vlastne jak se dela v pascalu mocnina sqr?

FailED · 29. 10. 2010 12:56

↑ myrek:

a^2 ... sqr(a)
a^b ... exp(b*ln(a))

hradecek · 29. 10. 2010 13:01

↑ myrek:
Určite to bude v tej mocnine(^), čo by skôr považoval asi za pointer...

Len taká kontrolná otázka:
Na čo je druhý begin-end; ? :P

myrek · 29. 10. 2010 13:46

jinak muzu se zeptat existuje nekde na netu seznam pascalovskejch prikazu
jako napriklad prave ta odmocnina nebo logaritmus?

jinak problem je vyreseny
dekuji vsem

hradecek · 29. 10. 2010 14:26

↑ myrek:
Myslím, že postačí aj GooGle
Ale napríklad Trsek

Matematické Fórum

#1 29. 10. 2010 11:33 — Editoval myrek (29. 10. 2010 13:21)

pascal - nekonecna rada

Code:

#2 29. 10. 2010 12:28

Re: pascal - nekonecna rada

#3 29. 10. 2010 12:29

Re: pascal - nekonecna rada

#4 29. 10. 2010 12:56

Re: pascal - nekonecna rada

#5 29. 10. 2010 13:01

Re: pascal - nekonecna rada

#6 29. 10. 2010 13:46

Re: pascal - nekonecna rada

#7 29. 10. 2010 14:26

Re: pascal - nekonecna rada

Zápatí