23.04.2020, 12:25
общий
это ответ
Здравствуйте, kyliemandy56!
Простейшее решение выглядит так:
[code lang=pascal] Program Q198308;
Var x, y: Real;
k: integer;
Begin
Write('Real x = '); ReadLn(x);
Write('Int k = '); ReadLn(k);
if k mod 2 = 0
then y := Sin(k*x) - Cos(k*x)
else y := sqrt(Abs(Sin(k*x) - Cos(k*x)));
WriteLn('y = ', y);
ReadLn;
End.[/code]
Если же нужно оформить в программе именно функцию, то можно так:
[code lang=pascal] Program Q198308f;
Var x: Real; k: integer;
function f(x: Real; k: Integer): Real;
begin
if k mod 2 = 0
then f := Sin(k*x) - Cos(k*x)
else f := sqrt(Abs(Sin(k*x) - Cos(k*x)));
end;
Begin
Write('Real x = '); ReadLn(x);
Write('Int k = '); ReadLn(k);
WriteLn('f(x, k) = ', f(x, k));
ReadLn;
End.[/code]