Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Выполнить суммирование членов бесконечного ряда 1. Выполнить суммирование членов бесконечного ряда до тех пор, пока последний член ряда по абсолютной величине не будет меньше абсолютной точности ∆=10(у -4) .... 10( у -10) или пока не будет... https://www.cyberforum.ru/ turbo-pascal/ thread870604.html	Turbo Pascal В заданном тексте букву "а" заменить на "А" Составить программу в которой в заданном тексте букву << а >> заменить на << А >>
Turbo Pascal Определить значение индексов элементов с заданными порядковыми номерами https://www.cyberforum.ru/ turbo-pascal/ thread870587.html Пусть нижняя и верхняя границы одномерного массива A соответственно -15 и 28. Определить значение индексов элементов, порядковыми номерами которых являются: 2, 11, 31, 18, 8, 24, 10, 0, 35, 29, 2,...	Turbo Pascal Метод Зейделя https://www.cyberforum.ru/ turbo-pascal/ thread870577.html Вообщем проблема в том что моя СЛАР, решается методом Крамера и Гаусса, но когда решаю с помощью Зейделя, пишет что система не сходится и не может иметь корни. Пожайлуста, подскажите в чем проблема...
Разработать программу для решения СЛАУ (системы линейных алгебраических уравнений) с нижней треугольной матрицей Turbo Pascal Разработать программу для решения СЛАУ (системы линейных алгебраических уравнений) с нижней треугольной матрицей. a11x1=b1 a21x1+a22*x2=b2 ...........................................	Turbo Pascal Используя стек напечатать содержимое текствого файла, выписывая литеры каждой его строки в обратном порядке https://www.cyberforum.ru/ turbo-pascal/ thread870545.html Используя стек напечатать содержимое текстового файла выписывая литеры каждой его строки в обратном порядке. P.S . кому не сложно подскажите как сделать эту программу заранее благодарен....
Turbo Pascal Как прописать количество шагов в Turbo Pascal https://www.cyberforum.ru/ turbo-pascal/ thread870533.html Решаю задачу с циклами и нужно прописать количество шагов.... не знаю как... Задача: Напишите программу для вычисления значения выражения своего варианта задачи(z=5ab-4). В начале программы...	Неверное число параметров процедуры Turbo Pascal uses crt; type mas=array of integer; var ax,c:mas; n,k,x,y:integer; {процедура ввода массива} procedure array_input(n:integer; var ax:mas); begin for x:=1 to n do readln(ax) end; {процедура...
Turbo Pascal Нахождение всех нечетных четырехзначных чисел, сумма квадратов цифр которых меньше 20. помогите составить блок схему и программу нахождения всех нечетных четырехзначных чисел, сумма квадратов цифр которых меньше 20. Добавлено через 15 часов 45 минут помогите составить блок схему к... https://www.cyberforum.ru/ turbo-pascal/ thread870504.html	Turbo Pascal Определите количество элементарных операций,необходимых для выполнения следующих операторов ПАСКАЛЬ программы a) case i of 1:x:=0; 2:=a+b; 3:x=a+b+c; end; b)for i:=1 to n do A:=2*A; c)for i:=1 to n do A:=B-C; https://www.cyberforum.ru/ turbo-pascal/ thread870490.html
Turbo Pascal Найти такие три точки из множества P, для которых площадь соответствующего треугольника максимальна Рассмотрим множество P={P1,P2..P10}; образованное 10 точками на евклидовой плоскости. Каждая точка Pj задается своими координатами Xj,Zj. Напишите программу,которая находит такие три точки из...	Turbo Pascal Рассмотрите следующие рекурсивные функции.Какие из этих определений являются сходящимися и почему https://www.cyberforum.ru/ turbo-pascal/ thread870459.html a)f:N\rightarrowN,f(n)={1,если n=0; {n+f(n-1),если n>0; b)F:N\rightarrowN,f(n)={1,если n=0; ...

Harlem

66 / 66 / 90

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

Сообщений: 156

22.05.2013, 18:05

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

22.05.2013, 18:05. Показов 21182. Ответов 2

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

Сообщение было отмечено ruskhas как решение

Решение

Вот:

Pascal

uses crt;
var
   a,b,s,k,i:integer;
   sk:real;
function si(n:integer):real;
var i:integer;
    s:real;
begin
     s:=0;
     for i:=1 to n do
         s:=s+sin(i);
     si:=s;
end;
Begin
     read(k);
     sk:=0;
     for i:=1 to k do
         sk:=sk+(1/si(i));
     writeln;
     write('S=',sk);
End.

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

22.05.2013, 18:05

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

Дано натуральное число 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...

Вычислить 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 - косинус в квадрате,...

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

22.05.2013, 18:05

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

Дано натуральное число N. Вычислить: (1/sin1)*(1/sin1+sin2)*.*(1/sin1+sin2+.+sinN)
Дано натуральное число N. Вычислить: (1/sin1)*(1/sin1+sin2)*...*(1/sin1+sin2+...+sinN) Помогите...

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

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

вычислить 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

Наверх