Question

Pascal Составить программу для построения таблицы значений x и y для функции у=-xcos(x) при изменении х в диапазоне [-3, 3] с шагом 0.3. В колонках должны быть n, х, у>0, у<0, где n - номер по порядку

Answer 1

Ответ:

• begin
• (-30..30).Step(3).ForEach((x,i)->writeln((i+1):2,(x/10):7,(-x*cos(x/10)):10:2));
• end.

Пример работы:

Answer 2

Конечно, вот программа на языке Pascal, которая строит таблицу значений для функции y = -x * cos(x) в указанном диапазоне с заданным шагом:

pascalCopy code
program TableOfValues;

uses
  SysUtils;

var
  x, y: Real;
  n: Integer;

begin
  WriteLn(' n     |     x     |     y>0     |     y<0');
  WriteLn('-------------------------------------------');
  
  n := 1;
  x := -3.0;
  
  while x <= 3.0 do
  begin
    y := -x * cos(x);
    
    WriteLn(Format('%3d    |   %6.2f    |   %8.4f    |   %8.4f', [n, x, Max(y, 0), Min(y, 0)]));
    
    x := x + 0.3;
    n := n + 1;
  end;
end.

Просто скопируйте этот код в среду разработки Pascal (например, Free Pascal) и выполните программу. Она создаст таблицу значений для функции y = -x * cos(x) в указанном диапазоне [-3, 3] с шагом 0.3 и выведет результаты в соответствующем формате.