Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Описать процедуру, которая вставляет в список А новый элемент К1 https://www.cyberforum.ru/ turbo-pascal/ thread121626.html
через стек или очередь!!!! Описать процедуру, которая вставляет в список А новый элемент К1 перед первым вхождением элемента К, если К входит в А.
виртуалка-pascal-dos-полноэкранный режим Turbo Pascal
поставил виртуалку "Windows XP Mode",у самого стоит 7ка, нужна была xp,конкретнее Turbo Pascal...программа работает с модулем граф в паскале...и при нажатии ctrl+f9 выдает ошибку на картинке ниже......
Turbo Pascal Найти разность между элементами в одной строке, стоящими на главной и побочной диагоналях и сформировать из них дополнительный столбец
Дана матрица размером n на n . Найти разность между элементами в одной строке, стоящими на главной и побочной диагоналях и сформировать из них дополнительный столбец. плиз, решите , пожалуйста!
Turbo Pascal двузначные числа 1.)найти все двузначные, которые делятся на n или содержат цифру n. 2)найти сумму целых положительных чисел,больших 30 и меньших 100,кратных трем и оканчивающихся на 2,4 или 8. помогите... https://www.cyberforum.ru/ turbo-pascal/ thread121595.html
Turbo Pascal Переставить числа в массиве так, чтобы сначала шли элементы меньшие b, затем равные b, а лишь затем большие b https://www.cyberforum.ru/ turbo-pascal/ thread121591.html
Дан массив a и число b. Переставить числа в массиве так, чтобы сначала шли элементы меньшие b, затем равные b, а лишь затем большие b
Turbo Pascal По кругу записаны n(n<100) чисел -одна единица и остальные нули.
По кругу записаны n(n<100) чисел -одна единица и остальные нули. Каждую секунду вместо Xk числа пишут |2Xk-(Xk-1)-(Xk+1)|. Определите какие числа будут через n секунд. Вывести результаты как в...
Записи: Распечатать список отличников, упорядоченный по году рождения Turbo Pascal
1.Распечатать список отличников, упорядоченный по году рождения. 2. Киргизия, Литва, Азербайджан. Напечатать список республик в порядке неубывания плотности населения, указав число школ, больниц,...
Turbo Pascal Преобразование арифметического выражения из инфиксной в постфиксную форму записи Помогите реализовать алгоритм I-P на Pascal...Для работы со стеком использовать связное распределение памяти процедуры: - Создание пустого стека - Добавление элемента на вершину стека - Удаление... https://www.cyberforum.ru/ turbo-pascal/ thread121563.html
Turbo Pascal Для каждой строки массива определить количество элементов, в разряде единица которых встречается заданная цифра https://www.cyberforum.ru/ turbo-pascal/ thread121542.html
Задан двумерный массив целых чисел(таблица) размерности (NxN). Для каждой строки определить количество элементов в записи которых в разряде единица встречается заданная цифра х.
Turbo Pascal В матрице целых чисел размера 10х15 определить количество и сумму элементов, значение которых находится вне интервала[k1,k2]. 1. В матрице целых чисел размера 10х15 определить количество и сумму элементов, значение которых находится вне интервала. 2. В одномерном массиве , состоящем из n целочисленных элементов, вычислить... https://www.cyberforum.ru/ turbo-pascal/ thread121498.html
Модератор
63339 / 47049 / 32429
Регистрация: 18.05.2008
Сообщений: 114,044
25.04.2010, 14:50 0

Циклом «пока» вычислить сумму ряда 1/sin 1+1/sin 1+sin 2+...+1/sin 1+...sin n

25.04.2010, 14:50. Показов 2728. Ответов 2
Метки (Все метки)

Лучший ответ Сообщение было отмечено Ишка как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
uses crt;
var n,i,j:integer;
    s,t:real;
begin
clrscr;
write('n=');
readln(n);
s:=0;
i:=0;
while i<n do
 begin
  i:=i+1;
  j:=0;
  t:=0;
  while j<i do
   begin
    j:=j+1;
    t:=t+sin(j);
   end;
  s:=s+1/t;
 end;
write('S=',s:0:5);
readln
end.


Вернуться к обсуждению:
Циклом «пока» вычислить сумму ряда 1/sin 1+1/sin 1+sin 2+...+1/sin 1+...sin n
2
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.04.2010, 14:50
Готовые ответы и решения:

Для заданного числа x распечатать числовую последовательность: sin(x), sin(sin(x), sin(sin(sin(x), …
var x,z:integer; y:real; begin readln(x); y:=abs(sin(x)); while y&gt;0.01 do begin ...

Для заданных n и x посчитать выражение s=sin x+sin sin x+...+sin sin sin...sin x
Для заданных n и x посчитать выражение s=sin x+sin sin x+...+sin sin sin...sin x (n раз).

Построить график функции «Бабочка»: X=sin(At+B)cos(Ct), Y=sin(At+B)sin(Dt)
Написать программу построения графика функции. Вывод графика осуществлять в созданном на экране...

Подсчитать функцию y=sin(sin(...sin(x)))))) для заданого х (рекурсия)
посчитать функцыю y=sin(sin(...sin(x)))))) для заданого х, в котором имя &quot;sin&quot; повторяется n раз

__________________
2
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.