Question

Turbo Pascal!! Составить программу для вычисления значение функции: y={x^2,если х<0 x-5,если х>5 0, если 0≤х≤5 1 Смотреть ответ petyaGavrikov petyaGavrikov Var x,y:real;  begin write('x=');readln(x); if x<5 then y:x*x     else if x>5 then y:=x-5 else y:=0; writeln('y=',y:6:3); end.

Answer 1

Программа на Turbo Pascal для вычисления значения функции будет выглядеть следующим образом:

pascalCopy code
Var
  x, y: Real;

begin
  Write('x = ');
  Readln(x);

  if x < 0 then
    y := x * x
  else if x > 5 then
    y := x - 5
  else
    y := 0;

  Writeln('y = ', y:6:3);
end.

Программа запрашивает значение переменной x у пользователя, а затем проверяет условия для определения значения y. Если x меньше нуля, то y будет равно x в квадрате (y := x * x). Если x больше пяти, то y будет равно x минус пять (y := x - 5). В остальных случаях, когда x находится в диапазоне от нуля до пяти включительно, y будет равно нулю (y := 0). Затем программа выводит значение y на экран.