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 прикрепил во вложения
some text some text some text some text some text some text some text some text some text some text some text some text some text some text some text some text some text some text some text