Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Задание: ввести три числа – x, y, z. Вычислить по усмотрению u = sin(x), или u = cos(x), или u = tg(x). Найти по желанию максимальное из трех числе: max(u,y,z), или max(|u|,|y|,|z|).

Ответ оставил Гость

Var x,y,z,Ans:integer;
    u:real;
Begin
  Write(Введите числа x,y,z: );
  Readln(x,y,z);
  Writeln(Что вычислить из числа ,x, ?);
  Writeln(1 - sin; 2 - cos; 3 - tg;);
  Readln(Ans);
    case Ans of
    1: begin u:=sin(x); Writeln(sin(,x,) = ,u) end;
    2: begin u:=cos(x); Writeln(cos(,x,) = ,u) end;
    3: begin u:=tan(x);  Writeln(tg(,x,) = ,u) end;
    else Writeln(Ошибка!)    end;
  Writeln(Найти максимальное число из ряда ,u,, ,y,, ,z);
  Writeln(Без модуля - 1; по модулю - 2);
  Readln(Ans);
    case Ans of
     1: begin
         if (u>y) and (u>z) then
 Writeln(Максимальное число - ,u)
          else
                if (y>u) and (y>z) then Writeln(Максимальное число - ,y)
                  else
                      if (z>u) and (z>y) then Writeln(Максимальное число - ,z)
                        else
                            Writeln(Все числа равны.)
        end;
    2: begin
         if (abs(u)>abs(y)) and (abs(u)>abs(z)) then
 Writeln(Максимальное число - ,u)
          else
                if (abs(y)>abs(u)) and (abs(y)>abs(z)) then 
Writeln(Максимальное число - ,y)
                  else
                      if (abs(z)>abs(u)) and (abs(z)>abs(y)) then
 Writeln(Максимальное число - ,z)
                        else Writeln(Все числа равны.)
        end
    end
End.

*.pas прикрепил во вложения