IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Немогу разобраться (задача на for)
сообщение
Сообщение #1


Пионер
**

Группа: Пользователи
Сообщений: 81
Пол: Мужской

Репутация: -  0  +


Вот условие:
Прикрепленное изображение
Вот попытка решить:
program qweqwe;
var n,i,k:integer;s:real;
begin
writeln('n=?');
readln(n);
s:=0;
for k:=1 to n do
begin
i:=((-1)^(k+1))/(k*k); {незнаю как ввести эту строчку в паскале =(}
s:=s+i;
end;
writeln('s=',s);
end.

Помогите разобраться пожалуйсто.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Пионер
**

Группа: Пользователи
Сообщений: 100
Пол: Мужской

Репутация: -  0  +


Цитата(kvadrat @ 14.05.2008 22:03) *

Вот условие:
Прикрепленное изображение
Вот попытка решить:
program qweqwe;
var n,i,k:integer;s:real;
begin
writeln('n=?');
readln(n);
s:=0;
for k:=1 to n do
begin
i:=((-1)^(k+1))/(k*k); {незнаю как ввести эту строчку в паскале =(}
s:=s+i;
end;
writeln('s=',s);
end.

Помогите разобраться пожалуйсто.


Ну если сложность здесь в том как сосчитать степень то вот формула: x= e ^(a*ln y). Она считает y^a. Но в данном случае у тебя просто будут чередоваться знаки перед единицей... -1 в четной степени =1, а в нечетной =-1... вот и все
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Учиться, учиться еще раз учиться
***

Группа: Пользователи
Сообщений: 158
Пол: Мужской
Реальное имя: Яшар

Репутация: -  3  +


Ну решить ты попытался но не совсем удачно... Я тебе помогу. Задача очень легкая вот главное не надо вычыслять i:=((-1)^(k+1))/(k*k) таким способом. Ведь надо просто проверить k четное или нет а дальше уже все. Вот и программа:

var
m,k,n:integer;
i,s:real;
begin
readln(n); s:=0;
for k:=1 to n do
begin
if odd(k) then m:=1 // функция odd() проверяет нечетность числа
else m:=-1;
i:=m/sqr(k);
s:=s+i;
end;
writeln(s:0:5);
end.


Ну вот и все... smile.gif


--------------------
Чтобы поразить цель важна не точность, а смелость
Шарль Луи Монтескё
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гуру
*****

Группа: Пользователи
Сообщений: 1 168
Пол: Мужской
Реальное имя: Сергей Андрианов

Репутация: -  28  +


var
m, k, n : integer;
i, s : real;
begin
readln(n);
s := 0;
m := 1;
for k:=1 to n do begin
s := s + m/sqr(k);
m := -m;
end;
writeln(s:0:5);
end.

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Пионер
**

Группа: Пользователи
Сообщений: 81
Пол: Мужской

Репутация: -  0  +


Благодарю всё отлично работает, но на будущее подскажите плиз как такие степени записывать в паскале? всеравно в какойнибуть задаче встретиться.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Пионер
**

Группа: Пользователи
Сообщений: 100
Пол: Мужской

Репутация: -  0  +


Цитата(kvadrat @ 15.05.2008 22:37) *

Благодарю всё отлично работает, но на будущее подскажите плиз как такие степени записывать в паскале? всеравно в какойнибуть задаче встретиться.


2^3=exp(3*ln(2))

Это помойму самый лучший вариант!! Можно возводить и в дробную степень


Сообщение отредактировано: kosyak -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.11.2020 3:13
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name