Написать программу на языке паскаль.
Ввести с клавиатуры число N, 1>=N<=3. В зависимости от введенного числа вычислить и выдать на экран значения функции,
1) у = sin (п)
2) y = cos (п)
3) y = tg (п)
Если введено другое число - выдать сообщение об ошибке.
dimonignatov00:
Var N , a, b;
Ответы
Ответ дал:
1
Ответ:
Объяснение:
Var
N:integer;
a,b,c:real;
Begin
Writeln( ' Введите число N ');
Readln(N);
If ((N>=1)AND(N<=1)) then
begin
a:= sin(N);
b:=cos(N);
c:= a / b;
Writeln( ' sin(N) = ' , a);
Writeln( ' cos(N) = ' , b);
Writeln ( ' tg(N) = , c) ;
end;
If ((N<1)AND(N>3)) then
Writeln( ' Ошибка: Данные введены неверно' );
end.
Вас заинтересует
11 месяцев назад
11 месяцев назад
1 год назад
1 год назад
6 лет назад
8 лет назад