Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal Лотерея https://www.cyberforum.ru/ pascal/ thread2150581.html Доброго времени суток. Нужно написать программу лотереи, которая работает по следующему принципу: допустим конечная сумма равна N. Участники (a, b, c, ...) переводят деньги на счет, тем самым становясь потенциальными победителями. В программу их можно вписывать. Вероятность выиграть прямо пропорциональна значению переведенной суммы, то есть чем больше переведено тем выше вероятность выигрыша в...	Pascal ПЕРЕВОД дробных чисел из одной системы счисления в другую. СПОСОБЫ ВНУТРЕННЕГО представления чисел с фиксированной точк 2) Создать блок-схему алгоритма программы перевода правильных дробей из одной системы счисления в другую по заданному варианту. 3) проанализировать текст Паскаль-программы в файле lab2.pas и определить ее назначение. 4) Скомпилировать программу и запустить на выполнение. 5) Подставить собственные входные значения и проанализировать результаты работы программы. 8 2 uses crt; var...
Pascal Для функции, заданной графически, определить у при заданном значении x Для функции, заданной графически, определить у при заданном значении x. https://www.cyberforum.ru/ pascal/ thread2150320.html	Pascal Найти максимальный элемент массива Найти максимальный элемент массива D (4,4) среди элементов, расположенных выше главной диагонали, и индексы минимального элемента среди элементов, расположенных на побочной диагонали.(если можете,то составьте пожалуйста блок схему) https://www.cyberforum.ru/ pascal/ thread2150310.html
Найти количество элементов массива Pascal Дан массив a, заполненный с помощью случайных целых чисел. Найти количество элементов, значение которых больше среднего арифметического минимального и максимального элементов массива, и вывести на экран их номера.(если можете,то составьте пожалуйста блок схему)	*Pascal Вычислить: S =(1-1/2^2)(1- 1/3^2)* . (1-1/n^2) , где n>2* Дано натуральное n. Вычислить: S =(1-1/2^2)(1- 1/3^2) ... *(1-1/n^2) , где n>2 https://www.cyberforum.ru/ pascal/ thread2150134.html
Pascal Вычислить сумму ряда Дано натуральное n. Вычислить: S =(1-1/22)(1- 1/32) ... *(1-1/n2) , где n>2 https://www.cyberforum.ru/ pascal/ thread2149382.html	Pascal Опишите алгоритм подсчета максимального количества подряд идущих элементов Опишите алгоритм подсчета максимального количества подряд идущих элементов, каждый из которых меньше предыдущего в целочисленном массиве длины 20.
Pascal Вывести на экран случайные из заданных чисел привет привет научите, как вывести случайные числа из массива. ну например я задал массив с клавиатуры и теперь хочу вывести на экран случаные из заданых мною чисел. это могут быть 1, 8, 7 , 3 допустим хочу, чтобы эти числа были выведены случайно. random как то неп подходит вроде https://www.cyberforum.ru/ pascal/ thread2149376.html	Pascal Как сделать так, чтобы размерность массива было от 1 до N https://www.cyberforum.ru/ pascal/ thread2149129.html как сделать так, чтобы размерность массива было от 0 до N(N нужно будет задать с клавиатуры)? Добавлено через 6 минут * от 1 до N
Сформировать новый массив, состоящий из противоположных соответствующих элементов матрицы Pascal Дан целочисленный двумерный массив, размерности n х m. Сформировать новый массив, состоящий из противоположных соответствующих элементов .	Pascal Вычислить значение выражения Здравствуйте. Помогите, пожалуйста решить: Дано два действующих числа x и y (x не равно y) Вычислить : k=x2+c2+y2/d, где c=min(x,y); d=max(x,y) https://www.cyberforum.ru/ pascal/ thread2149112.html

fnatic

0 / 0 / 0

Регистрация: 06.11.2016

Сообщений: 111

07.12.2017, 13:32 [ТС]

Дано натуральное число N. Вычислить: (1/sin1)(1/sin1+sin2).*(1/sin1+sin2+.+sinN) - Pascal - Ответ 11921646

07.12.2017, 13:32. Показов 14568. Ответов 5

Метки (Все метки)

Ответ

Pascal

var n,i,j:integer;
    s,t:real;
begin
write('n=');
readln(n);
s:=1;
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.

так??

Вернуться к обсуждению:
Дано натуральное число N. Вычислить: (1/sin1)*(1/sin1+sin2)*.*(1/sin1+sin2+.+sinN) Pascal

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

07.12.2017, 13:32

Готовые ответы и решения:

Не понимаю как составить программу вычисления суммы и произведения ряда sin1, sin2, sin3, ., sinN
Составить программу вычисления суммы и произведения ряда sin1, sin2, sin3, ..., sinN Задачу мне...

Описать функцию Sin1(x, ε)
Описать функцию Sin1(x, ε) вещественного типа (параметры x, ε — вещественные, ε > 0),...

Дано натуральное число n. Вычислить: 1/sin1+1/(sin1+sin2)+.+1/(sin1+sin2+.sinn)
Дано натуральное число n. Вычислить: 1/sin1+1/(sin1+sin2)+...+1/(sin1+sin2+...sinn)

Дано натуральное число n. Вычислить cos1/sin1 x cos1+cos2/sin1+sin2 x....x cos1+...+cos n/sin1+...sin n
2. Дано натуральное число n. Вычислить cos1/sin1 x cos1+cos2/sin1+sin2 x....x cos1+...+cos...

	07.12.2017, 13:32

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

07.12.2017, 13:32

Помогаю со студенческими работами здесь

Вычислить y=sin1+sin1.1+sin1.2+...+sin2. Цикл с параметром
Вычислить y=sin1+sin1.1+sin1.2+...+sin2 пожалуйста всю программу напишите)

Вычислить sin1+sin1
Вычислить sin1+sin1.5+...+sin10

Вычислить значение выражения cos2(sin1/z)
Помогите решить срочно, буду очень признателен: 2. cos2(sin1/z) (cos2 - косинус в квадрате,...

вычислить S=(1+sin2)^2+(1-sin3)^2+(1+sin4)^4+...+(1-sin9)^9
Вычислить: S=(1+sin2)^2+(1-sin3)^2+(1+sin4)^4+...+(1-sin9)^9

Наверх

Дано натуральное число N. Вычислить: (1/sin1)*(1/sin1+sin2)*.*(1/sin1+sin2+.+sinN) - Pascal - Ответ 11921646

Дано натуральное число N. Вычислить: (1/sin1)(1/sin1+sin2).*(1/sin1+sin2+.+sinN) - Pascal - Ответ 11921646