Pascal abc как записать тангенс в третьей степени
5-9 класс
|
var
y: real;
begin
read(y);
writeln(System.Math.Pow(System.Math.Tan(y * Pi / 180), 3));
end.
sqr(sin(x)/cos(x))* sin(x)/cos(x)
Учите вы у себя не паскаль, а люа или джаву :)
Лотарингская это не тангенс
тангенс = синус/косинус
Вставил получилось. Спасибо
Другие вопросы из категории
а)пересечении;
б)объединении?
Читайте также
Составить программу,которая выводит на экран сумму нечетных чисел от 1 до 30 в Pascal ABC.
По данным натуральным числам M и N не превосходящие 2011, найти последнюю цифру в десятичной записи числа M в степени N.
Заранее спасибо!
2) дано четырёхзначное число. Что больше: произведение цифр числа или их утроенная сумма. pascal ABC
В один из летних дней Аркадий со своими родителями отправился в
автомобильное путешествие. Он очень надеялся, что за городом им удастся
избежать ненавистных пробок. Но, увы, уже через час они попали в затор.
Аркадий загрустил и задумался о том, с какой скоростью они могли бы
ехать, если бы не было пробки... Участок дороги, на котором они сейчас
находятся, — однополосный. А это значит, что обгонять едущие впереди
машины не представляется возможным. Т. е. какой бы мощной машина ни
была, она все равно не сможет ехать быстрее, чем машина впереди неё.
Аркадий хорошо разбирается в машинах и поэтому знает максимальные
скорости тех машин, которые едут впереди. Теперь он хочет понять, с
какой максимальной скоростью могла бы ехать каждая машина на данном
участке.
ВХОДНЫЕ ДАННЫЕ
В первой строчке дано число N (1 ≤ N ≤ 200) —
количество машин в пробке. В следующих N строчках записано по одному
целому числу в каждой, причем в i-й строчке записана скорость i-й
машины. Скорость каждой из машин не превышает 300. Считается, что (i + 1)-я машина едет за i-й, а первая машина может ехать со своей максимальной скоростью.
ВЫХОДНЫЕ ДАННЫЕ
Выведите N чисел — скорости машин, с которыми они могли бы ехать на данном участке.
ВХОДНЫЕ ДАННЫЕ
2
80
100
ВЫХОДНЫЕ ДАННЫЕ
80 80