Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Thypson
21 / 21 / 19
Регистрация: 10.09.2013
Сообщений: 285
1

Вычислить среднее арифметическое значение тригонометрических функций

12.12.2013, 22:58. Просмотров 466. Ответов 1
Метки нет (Все метки)

Вычислить среднее арифметическое значение тригонометрических функций sin(x), cos(x), tg(x), ctg(x). Аргумент задаётся в градусах с клавиатуры. Организовать цикл по введению входящих данных. Предусмотреть условия завершения программы.
Сделал пока что так, исправьте если что не правильно, и объясните мне, дураку, условия завершения программы?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
Var y,sred,sins,coss,tgs,ctgs:real;
begin
writeln ('Введите угол:');
readln (y);
sins:= sin(y*pi/180);
coss:=cos(y*pi/180);
tgs:= sins/coss;
ctgs:=coss/sins;
writeln('SIN = ',sins);
writeln('COS = ',coss);
writeln('TG = ',tgs);
writeln('CTG = ',ctgs);
sred:= (sins+coss+tgs+ctgs)/ 4;
writeln('Среднее арифметическое = ',sred);
end.

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.12.2013, 22:58
Ответы с готовыми решениями:

Вычислить среднее арифметическое значение элементов массива A
А(80) Вычислить среднее арифметическое значение элементов массива A, условие...

Вычислить среднее арифметическое значение элементов массива
А(80) Вычислить среднее арифметическое значение элементов массива A, условие...

Вычислить среднее арифметическое значение элементов массива
Задание: Вычислить среднее арифметическое значение элементов массива А P.S....

Вычислить среднее арифметическое значение последовательности целых чисел
Вычисляет среднее арифметическое значение последовательности целых чисел....

Вычислить среднее арифметическое значение элементов столбца матрицы
Помогите. Вычислить среднее арифметическое значение элементов столбца матрицы с...

1
Sinys
27 / 27 / 6
Регистрация: 25.12.2008
Сообщений: 186
Завершенные тесты: 1
12.12.2013, 23:05 2
Запихнуть тот код что есть в while true
Pascal
1
2
3
4
5
begin
end;
После readln(y) Вставить проверку, допустим есть y = 1000 - выходим:
if y=1000
break;
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.12.2013, 23:05

Вычислить среднее арифметическое значение и количество элементов массива
Составить программу решения задачи, используя оператор цикла FOR. Значения...

Вычислить среднее арифметическое значение тела элементов массива А
вычислить среднее арифметическое значение тела элементов массива А. Массив х ...

Вычислить среднее арифметическое значение элементов одномерного массива
Вычислить среднее арифметическое значение тех элементов одномерного массива,...


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

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

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