Question

Помогите пожалуйста Через REPEAT или WHILE составить программу для нахождения значений функции У=10-4Х. Значения аргумента Х меняются от -4 до 10 с шагом 0,5. (Язык программирования Паскаль)

Answer 1

Ответ:

program find_values;

var

 x, y: real;

begin

 x := -4.0;

 while x <= 10.0 do

 begin

   y := 10.0 - 4.0 * x;

   writeln('X = ', x:0:2, ' Y = ', y:0:2);

   x := x + 0.5;

 end;

end.

Объяснение:

можно лучший ответ, пожалуйста?)

Answer 2

Конечно! Вот пример программы на языке Pascal, использующей цикл while, для нахождения значений функции Y = 10 - 4 * X. Аргумент X будет изменяться от -4 до 10 с шагом 0.5:

pascalCopy code
program CalculateY;

var
  X, Y: real;

begin
  X := -4.0; // Начальное значение X
  
  while X <= 10.0 do
  begin
    Y := 10.0 - 4.0 * X; // Вычисление значения Y
    
    writeln('X = ', X:0:1, ', Y = ', Y:0:1); // Вывод результатов
    
    X := X + 0.5; // Изменение значения X
  end;
end.

Программа начинает с X равным -4.0 и выполняет цикл, пока X не превысит значение 10.0. В каждой итерации цикла вычисляется значение Y и выводятся результаты. Затем X увеличивается на 0.5 и цикл повторяется с новым значением X. Результаты будут выведены на экран.