Построить график функции y=x^2 в Lazarus
var x1,y1,x2,y2,x,y :integer;
procedure TForm1.Button1Click(Sender: TObject);
begin
form1.Canvas.Line(0,250,500,250);
form1.Canvas.Line(250,0,250,500);
with form1.canvas do
begin
pen.Color:=clRed;
pen.Width:=3;

end;

x1:=250;
y1:=250;
for x:=2 to 15 do
begin
y:=sqr(x);
x2:=250+(x*10);
y2:=250-y;
form1.canvas.Line(x1,y1,x2,y2);
x1:=x2;
y1:=y2;
end;

150

188

Посмотреть ответы 1

Ответы на вопрос:

HeliaK

Информатика

4,6(9 оценок)

блок-схема - скрин 1

program z;

var x,y:real;

begin

write('x = ');

readln(x);

y:=2*(x + abs(sqr(x-1)));

write('y = ',y:0:1)

end.

результат - скрин 2

Объяснение:

$y(x) = 2(x + |(x-1)^{2} |)$

вводим x

вычисляем y

выводим y

150 000+ пользователей

Оформить подписку