Question

Паскаль/Delphi Для побудови графіку y=3x^2 написати програму для знаходження координат точок на діапазоні від -10 до 10. ​

Answer 1

Код на Паскале, выводит значения в виде "(x;y)" с интервалом в 1 единицу для "x" (для "y" наследственно). Прикрепил вывод компилятора с кодом, код в ответе и код в текстовом документе (будьте внимательны с отступами):

var a,b: array [1..100] of integer;

i: integer;

begin

for i:= 1 to 21 do

begin

    a[i]:= i-11;

end;

   for i:= 1 to 21 do

   begin

       b[i]:= 3*(sqr(a[i]));

   end;

   for i:= 1 to 21 do

   begin

       writeln('(',a[i],';',b[i],')');

   end;

end.

Answer 2

Звісно, ось приклад програми на Pascal/Delphi для побудови графіку функції y = 3x^2 і знаходження координат точок на діапазоні від -10 до 10:

pascalCopy code
program GraphPlot;

uses
  Crt, Graph;

var
  gd, gm, x, y: integer;
  scale: real;

function Func(x: real): real;
begin
  Func := 3 * x * x;
end;

begin
  gd := VGA;
  gm := VGAHi;
  InitGraph(gd, gm, '');

  ClearDevice;

  { Встановлення масштабу по осям }
  scale := GetMaxX / 20;

  { Вісі координат }
  Line(0, GetMaxY div 2, GetMaxX, GetMaxY div 2);
  Line(GetMaxX div 2, 0, GetMaxX div 2, GetMaxY);

  { Побудова графіку }
  for x := -10 to 10 do
  begin
    y := round(Func(x) * scale);
    PutPixel(GetMaxX div 2 + x * scale, GetMaxY div 2 - y, White);
  end;

  ReadLn;
  CloseGraph;
end.

Ця програма використовує графічну бібліотеку для Pascal/Delphi, яка дозволяє побудову графіків. Вона розраховує значення функції y = 3x^2 для кожного x в діапазоні від -10 до 10, а потім відображає ці точки на графіку.

Не забудьте переконатися, що ваше середовище розробки має встановлену графічну бібліотеку та налаштовано для коректної компіляції та виконання цього коду.