Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Доброго времени суток, уважаемые эксперты!
Помогите пожалуйста решить подобное задание. Дано натуральное число n вычислить s=1/sin(1)+1/(sin1+sin2)+1/(sin1+sin2+sin n). Нужно записать в турбо паскале. Заранее благодарю.

Вопрос задала: Юленька (статус: Посетитель) Вопрос отправлен: 4 октября 2011, 21:47 Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: min@y™

На турбопаскале, думаю, это будет выглядеть примерно так:

program p5663;
 
var
  N, Index: LongWord;
  SinusSum, Total: Real;
 
begin
  SinusSum:= 0.0;
  Total:= 0.0;
  Write(' Введи количество членов ряда (N): ');
  ReadLn(N);
 
  for Index:= 1 to N do
    begin
      SinusSum:= SinusSum + sin(Index); { сумма синусов для текущей итерации }
      Total:= Total + 1 / SinusSum;     { сумма ряда для текущей итерации }
    end;
 
  WriteLn(' Сумма ряда: ', Total: 5: 5);
  ReadLn;
end.

Ответ отправил: min@y™ (статус: Доктор наук) Время отправки: 4 октября 2011, 22:08

Мини-форум вопроса

min@y™ (статус: Доктор наук), 4 октября 2011, 21:57 [#1]: Может, всё-таки, ряд выглядит так? Отчаянно не вижу здесь никаких сложностей. З.Ы. Учебный год только начался, а уже лабы попёрли. Удивительно... Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

Юленька (статус: Посетитель), 4 октября 2011, 22:03 [#2]: Да,именно)

Юленька (статус: Посетитель), 4 октября 2011, 22:12 [#3]: просто только начала учиться на эту профессию,и пока мало чего соображаю)Искренне благодарю)

min@y™ (статус: Доктор наук), 4 октября 2011, 22:17 [#4]: Цитата (Юленька): Искренне благодарю) Не вижу благодарности. Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

min@y™ (статус: Доктор наук), 4 октября 2011, 22:19 [#5]: Цитата (Юленька): просто только начала учиться на эту профессию ...и уже, вместо того, чтобы включить МОЗГИ, лезешь в интернет за готовым решением. Так держать! Мне конкуренты нафиг не нужны. З.Ы. Представить страшно, если бы так учились студенты-медики... Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

bugmenot (статус: 3-ий класс), 5 октября 2011, 00:54 [#6]: Цитата (min@y™): если бы так учились студенты-медики Левее режь, левее, точно говорю! виконання програми розпочинається з того самого мiсця, де призупинилося.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.