|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
15.12.2008, 17:40 | #1 |
Пользователь
Регистрация: 07.10.2008
Сообщений: 42
|
Вычислить.
Дано натуральное число N.
Вычислить 1/sin1+1/sin1+sin2+...+1/sin1+...+sinN. тоесть создаем массив для i от 1 до N. а вот как дальше... и в код собрать... Подскажите, если не трудно |
15.12.2008, 17:45 | #2 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
Может Вы имели ввиду 1/sin1 + 1/(sin1 + sin2)+...+1/(sin1+..sinN)?
Код:
Нормальное состояние техники - нерабочее, все остальное частный случай.
Последний раз редактировалось alex_fcsm; 15.12.2008 в 17:49. |
15.12.2008, 21:50 | #3 |
Пользователь
Регистрация: 07.10.2008
Сообщений: 42
|
А, я немножко не так думал. Спасибо.
Вы за переменную i что брали? |
15.12.2008, 22:37 | #4 |
Форумчанин
Регистрация: 06.11.2008
Сообщений: 100
|
To alex_fcsm: я считаю, что второй цикл совершенно не нужен. Вот вариант:
Код:
|
16.12.2008, 11:41 | #5 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
MalexG согласен
Нормальное состояние техники - нерабочее, все остальное частный случай.
|
16.12.2008, 14:27 | #6 |
Ну и что? :)
Форумчанин
Регистрация: 20.10.2008
Сообщений: 129
|
и проверку <>0 добавьте
Учиться, учиться и еще раз учиться
|
16.12.2008, 17:16 | #7 |
Пользователь
Регистрация: 07.10.2008
Сообщений: 42
|
var i, N:integer;
sum, d:real; begin writeln('Input N'); readln(N); sum := 0; d := 0; for i := 1 to N do begin d := d + sin(i); sum := sum + 1/d; end; writeln(sum:8:5); readln; end. Тоесть sinN у нас изменяется от 1 до N (это переменная i) d- это 1/sin1 sum:=sum+1/d это sin1+...+sinN. Правильно я понял? |
16.12.2008, 17:21 | #8 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
Да. Вы правильно поняли
Нормальное состояние техники - нерабочее, все остальное частный случай.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Вычислить. | Artimbulidor | Помощь студентам | 4 | 24.11.2008 19:10 |
Помогите вычислить функцию | Xander | Помощь студентам | 6 | 13.11.2008 18:28 |
Delphi 7. задача - Вычислить a(a-n)(a-n)(a-2n)...(a-n^2) | Phill | Помощь студентам | 12 | 12.05.2008 20:35 |
как вычислить формулу? | Sergeus | Microsoft Office Excel | 2 | 26.02.2008 23:56 |
[QBasic] Вычислить ряд!! | toad88 | Помощь студентам | 1 | 20.11.2007 00:07 |