![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() ![]() |
![]() |
kvadrat |
![]()
Сообщение
#1
|
Пионер ![]() ![]() Группа: Пользователи Сообщений: 81 Пол: Мужской Репутация: ![]() ![]() ![]() |
|
kosyak |
![]()
Сообщение
#2
|
Пионер ![]() ![]() Группа: Пользователи Сообщений: 100 Пол: Мужской Репутация: ![]() ![]() ![]() |
Вот условие: ![]() Вот попытка решить: 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... вот и все |
Bard |
![]()
Сообщение
#3
|
![]() Учиться, учиться еще раз учиться ![]() ![]() ![]() Группа: Пользователи Сообщений: 158 Пол: Мужской Реальное имя: Яшар Репутация: ![]() ![]() ![]() |
Ну решить ты попытался но не совсем удачно... Я тебе помогу. Задача очень легкая вот главное не надо вычыслять 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. Ну вот и все... ![]() -------------------- Чтобы поразить цель важна не точность, а смелость
Шарль Луи Монтескё |
andriano |
![]()
Сообщение
#4
|
Гуру ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 1 168 Пол: Мужской Реальное имя: Сергей Андрианов Репутация: ![]() ![]() ![]() |
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.
|
kvadrat |
![]()
Сообщение
#5
|
Пионер ![]() ![]() Группа: Пользователи Сообщений: 81 Пол: Мужской Репутация: ![]() ![]() ![]() |
Благодарю всё отлично работает, но на будущее подскажите плиз как такие степени записывать в паскале? всеравно в какойнибуть задаче встретиться.
|
kosyak |
![]()
Сообщение
#6
|
Пионер ![]() ![]() Группа: Пользователи Сообщений: 100 Пол: Мужской Репутация: ![]() ![]() ![]() |
Благодарю всё отлично работает, но на будущее подскажите плиз как такие степени записывать в паскале? всеравно в какойнибуть задаче встретиться. 2^3=exp(3*ln(2)) Это помойму самый лучший вариант!! Можно возводить и в дробную степень Сообщение отредактировано: kosyak - 15.05.2008 22:14 |
![]() ![]() |
![]() |
Текстовая версия | 18.07.2025 9:47 |