1. Информатика
  2. Написать программу, реализующую

Написать программу, реализующую диалог с пользователем: предлагающую выбрать один из следующих вариантов расчета: 1 - расчет тригонометрической функции 2 - расчет квадрата числа 3 - расчет корня числа по нажатии клавиши 1 пользователю предлагаются следующие варианты: s - расчет синуса c - расчет косинуса t - расчет тангенса после выбора соответствующего пункта меню пользователю предлагается ввести число, по которому необходимо провести расчет и после расчета выводится значение. в случае, если пользователь выбрал несуществующий пункт меню ему выдается сообщение об ошибке.

CleverBoy17 CleverBoy17    1   30.03.2019 17:30    0

Ответы
Polina8472 Polina8472  27.05.2020 18:14

var x:real;
c:char;
begin
readln(c);
readln(x);
if c='1' then begin
readln(c);
if c='s' then writeln(sin(x));
if c='c' then writeln(cos(x));
if c='t' then writeln(sin(x)/cos(x));
end else
if c='2' then
writeln(sqr(x))
else
if c='3' then
writeln(sqrt(x));
end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
hjhjhjhhhhhhh hjhjhjhhhhhhh  24.07.2019 20:00
Написать программу, которая в зависимости от введенного числа к, выполняет разные действия. если число отрицательное или не делится на 4, то |k+5|, иначе k²+5....
MrCrative25 MrCrative25  24.07.2019 20:00
Написать программу, которая запрашивает возраст и выводит сообщение (подросток или нет). будем считать возраст подростка от 11 лет до 15 лет....
Olyaaa4Kaaaa Olyaaa4Kaaaa  24.07.2019 20:00
Впрограмме «: =» обозначает оператор присваивания, знаки «+», «–», «*» и «/» – соответственно операции сложения, вычитания, умножения и деления. правила выполнения операций...
ArtemDeineka ArtemDeineka  24.07.2019 20:00
Дима задумал натуральное число от 1 до 20.одноклассники решили выяснить,что это за число и начали задавать диме вопросы -оно больше 7 -оно делится на 2 -оно делится на 4...
yanaboss666 yanaboss666  06.07.2019 16:50
Переведите целые числа из десятичной системы счисления в двоичную а) 89 б) 600 в) 2010...
vadimplay2017 vadimplay2017  25.09.2019 02:20
Для какого из указанных значений числа x истинно высказывание не (x 6)& не(x 7) 1).2; 2).4; 3).5; 3).9 с решением)...
Микарусский Микарусский  25.09.2019 02:20
Почему теле2 не дает доверительный платеж? пишит типо извините. в данный момент невозможно это сделать. попробуйте позже. ввожу всё правильно, но уже весь день не ....
magmadi1 magmadi1  25.09.2019 02:20
Const m=3; n=4; var a: array[1..m,1..n] of integer; i,j: integer; begin for i: =1 to m do for j: =1 to n do begin if odd(j) then a[i,j]: =i+(j-1)*m else a[i,j]: =j*m-i+1;...
almirashagieva almirashagieva  27.07.2019 01:00
Сравни: 3м8см и 38дм, 10м6дм и 106см, 15м и 1.500дм, 7м9дм и 79дм...
ApokalipsisZnanij ApokalipsisZnanij  27.07.2019 01:00
Захарийчук 2 клас укер мова сторинка145 вправа 2...

Популярные вопросы