Разработать программу, которая для любого х из промежутка (0;3,14) определяет какая из двух величин больше сos(х) или tg(x)
5-9 класс
|
var
x, cs, tg: real;
begin
Write('Введите число в диапазоне [0..3.14]: ');
Readln(x);
if (x < 0) or (x > 3.14) then Writeln('Число вне диапазона')
else begin
cs := cos(x); tg := tan(x);
if cs > tg then Writeln('cosX > tgX')
else if cs = tg then Writeln('cosX = tgX')
else Writeln('cosX < tgX')
end
end.
Тестовое решение:
Введите число в диапазоне [0..3.14]: 1.58
cosX > tgX
Другие вопросы из категории
Объем информации сообщения 12288 бит(учитывая,что 1 байт=8 бит) можно выразить как? (задача на перевод информации выразить в Кбайт)
Буду очень благодарна!
генерированных чисел.(на паскале)
помоооггггггите плиззз мне очень срочно нужноо срочно и сегодня
Читайте также
продаж каждой из остальных газет он получает на 20% больше. разработайте программу,которая вычислит заработок продавца,если он продает за день 200 газет.
Или
составьте программу, которая определяет на сколько в строке S слов, начинающихся на главную букву больше, чем в строке T
надо решить одну из них
программу которая вставит между буквами веденного слова пробелы 3)написать программу вывода на экран деление двух чисел
программу для n=13 , записать результат
ввести 3 значное число и находит сумму его цифр.
2. Написать программу, которая предлагает ввести 3 значное число и меняет порядок цифр наоборот. (123- 321)
3.Написать программу, которая предлагает ввести три числа с клавиатуры, находит их сумму, произведение и среднее арифметическое.