[Pascal] Счет

[-=SeaN=-]

Для всех n=1,2,3 вычислить (1^5+2^5+...+n^5)

Я думаю как то через for считать надо, а как именно понять не могу

[mss]

сумма = 0
для i = 1 до N делать
сумма = сумма + i в степени 5

[Вадим Мошев]

А i в степени 5 можно вычислить как i*i*i*i*i

[-=SeaN=-]

вот тогда у меня получается такая прога

PHP код:

program xyz;
Uses crt;
var i,n:integer;
s,s1,s3,s4,s5:integer;
BEGIN clrscr;
writeln('zadanie tyt napawi :D ');
writeln('Vvedite n');
readln(n);
s:=0;
for i:=1 to n do
s:=s+i*i*i*i*i;
s1:=0 ;
for i:=1 to n do
s1:=s1+i*i*i*i*i*i*i;
s3:=s+s1;
s4:=0;
for i:=1 to n do
s4:=((s4+i)*(s4+i)*(s4+i)*(s4+i));
s5:=s4*2;
writeln('Levaya 4ast ravna ',s3);
writeln('Pravaya 4ast ravna ',s5);
writeln('Lavaya i pravaya 4ast ravni pri lyubom N');
readln;
end. 


а задание такое
Покажите, что для всех n=1,2,3 :

(1^5+2^5+...+n^5)+(1^7+2^7+...+n^7) =2(1+2+...+n)^4

правильно моя прога считает только при значениях 1 и 2
вот не могу понять в чем ошибка тут

[dixonich]

int sum = 0;
for (int i = 1; i<n;i++)
summ+= pow(i,5);

[-=SeaN=-]

мне бы на паскале

[alex_8]

Насколько я понял задание то наверно так.

Для всех n=1,2,3 вычислить (1^5+2^5+...+n^5)

program xyz;
Uses crt;
var i,n:integer;
s,s1:integer;
BEGIN 
clrscr;
writeln('Vvedite n');
readln(n);
s:=0;
for i:=1 to n do begin
s:=exp(5*Ln(i));
s1:= s1+s;
end;
writeln('Summa ravna: ', s1);
readkey;
end.

[Вадим Мошев]

Сообщение от dixonich

int sum = 0;
for (int i = 1; i<n;i++)
summ+= pow(i,5);

вот пожалуйста, на Паскале.

sum:=0;
{Предварительно переменную sum определить в разделе var, то есть: var sum: integer;
}

for i:=1 to n do sum:=sum + i*i*i*i*i; {это i в степени 5}

{...}

Кстати, если n - меняется всего от 1 до 3 то смысл использовать for? Это же линейный алгоритм, вообще, даже без условий

[Вадим Мошев]

Сообщение от alex_8

Насколько я понял задание то наверно так.

program xyz;
Uses crt;
var i,n:integer;
s,s1:integer;
BEGIN 
clrscr;
writeln('Vvedite n');
readln(n);
s:=0;
for i:=1 to n do
s:=exp(5*Ln(i));
s1:= s1+s;
writeln('Summa ravna: ', s1);
readkey;
end.

alex_8
В вашем случае программа не будет работать - вы ЦЕЛОЙ переменной присваиваете ДЕЙСТВИТЕЛЬНОЕ ВЫРАЖЕНИЕ (экспоненту)

[alex_8]

Вадим Мошев
Привожу Вам пример.

Например нам необходимо возвести a в степень b (a^b) эта равносильно тому, что мы напишем e^b*ln a

y:=exp (b*ln(a));

в коде что я предоставил я забыл закрыть цикл for.
...
for i:=1 to n do
begin
s:=exp(5*Ln(i));
s1:= s1+s;
end;
...