Консультация № 198308
20.04.2020, 11:39
0.00 руб.
1 1 1
По введённым с клавиатуры значениям x,k вычислите y=f(x)
Выполните задание 2.3
На ПАСКАЛЕ
Прикрепленные файлы:
a064ed16015fd046b22d0422c8723eae9b1256e8.jpeg

Обсуждение

давно
Посетитель
400894
9
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]
Форма ответа