Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
reellex
0 / 0 / 0
Регистрация: 26.02.2012
Сообщений: 1
#1

Обчисление суммы - Turbo Pascal

29.02.2012, 12:51. Просмотров 320. Ответов 1
Метки нет (Все метки)

Задание: обчислить:
а/кос(а) + а(квадрат)/(кос(квадрат)(а)) + ... + а(в "н" степени)/(кос(в н степени)(а))

Pascal
1
2
3
4
5
6
7
8
9
var x,a:real;
i,n:integer;
begin
Write('Vvedite znachenie =a');read(a);
Write('Vvedite znachenie =n');read(n);
x:=1;
for i:=1 to n do
x:=x*((exp(ln(a)*i))/(exp(ln(cos(a)*i))+1));
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.02.2012, 12:51
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Обчисление суммы (Turbo Pascal):

Составить программу вычисления суммы отрицательных и суммы положительных значений функции - Turbo Pascal
Составить программу вычисления суммы отрицательных и суммы положительных значений функции: Z = ln(2+корень квадратный 1+cos^2 x )-arctg^2 ...

Процедура поиска модуля суммы отрицательных элементов матрицы и суммы положительных - Pascal
Написать две процедуры 1) поиск модуля суммы отрицательных элементов матрицы 2) поиск суммы положительных элементов матрицы

Найти произведение суммы четных и суммы нечетных элементов массивов - Pascal
Здравствуйте. Прошу помощи в решении данной задачи, пытался сам ее сделать,но программа не заработала. Условие: Найти произведение...

Считать суммы элементов строк из файла и записать эти суммы в одномерный массив - Turbo Pascal
Создать в своей папке файл с расширением txt, который будет содержать целые числа, расположенные в виде матрицы. Написать программу,...

Считать суммы элементов строк файла и записывать эти суммы в одномерный массив - Turbo Pascal
1. Создать в своей папке файл с расширением txt, который будет содержать целые числа, расположенные в виде матрицы. Написать программу,...

Вычислить разность суммы положительных и абсолютного значения суммы отрицательных элементов массива - Pascal
Ввести с клавиатуры вещественный массив из n элементов (задано константой). Вычислить разность суммы положительных и абсолютного значения...

1
Puporev
Модератор
54039 / 41672 / 14753
Регистрация: 18.05.2008
Сообщений: 97,993
29.02.2012, 13:01 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
var a,x,t:real;
    i,n:integer;
begin
clrscr;
Write('Vvedite znachenie a=');readln(a);
Write('Vvedite znachenie n=');readln(n);
x:=0;
t:=1;
for i:=1 to n do
 begin
  t:=t*a/cos(a);
  x:=x+t;
 end;
write('x=',x:0:4);
readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.02.2012, 13:01
Привет! Вот еще темы с ответами:

Написать процедуру определения суммы положительных, суммы отрицательных, количества нулевых элементов массива - Turbo Pascal
2.Написать процедуру определения суммы положительных чисел одномерного массива,сумы отрицательных,а так же количества нулевых элементов.

Если модуль суммы отрицательных больше суммы положительных элементов, заменить все отрицательные нулями - Turbo Pascal
Здравствуйте! Помогите, пожалуйста, сделать блок-схему к программе. Условие. Дан массив F1,..., F20. Если сумма отрицательных элементов...

Составить программу вычисления суммы строк элементов матрицы. Вычисление суммы оформть в виде процедуры. - Turbo Pascal
Составить программу вычисления суммы строкэлементов матрицы. Вычисление суммы оформить в виде процедуры.

Составить программу вычисления суммы четных строк элементов матрицы. Вычисление суммы и вывод исходных данных оформись в виде процедуры - Turbo Pascal
Составить программу вычисления суммы четных строк элементов матрицы. Вычисление суммы и вывод исходных данных оформись в виде процедуры


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

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