Help! нужно построить блок-схему: ( function f(x: real): real; begin if x 0 then f : = exp(x * ln(3)) - id276427720230513 от fhehneeggbvfs 13.05.2023 00:41

Question

Информатика: Help! нужно построить блок-схему: ( function f(x: real): real; begin if x 0 then f : = exp(x * ln(3)) + sqr(x) else f : = exp(-x * ln(3)) - sqr(-x) end; var a, b, h, x, y: real; begin a : = -1; b : = 2; h : = 0.2; writeln( : 10, ); writeln( : 10, | x | y | ); writeln( : 10, ); x : = a; while x b do begin y : = f(x); writeln( : 10, | , x: 5: 1, | , y: 7: 4, | ); x : = x + h end; writeln( : 10, ); end.

fhehneeggbvfs · Accepted Answer

Uses GraphABC;
procedure Draw(x, y, l, u : Real; t : Integer);

procedure Draw2(Var x, y: Real; l, u : Real; t : Integer);
begin
Draw(x, y, l, u, t);
x := x + l*cos(u);
y := y - l*sin(u);end;
begin
if t > 0 then
beginl := l/3;Draw2(x, y, l, u, t-1);Draw2(x, y, l, u+pi/3, t-1);
Draw2(x, y, l, u-pi/3, t-1);Draw2(x, y, l, u, t-1);end
else
Line(Round(x), Round(y), Round(x+cos(u)*l), Round(y-sin(u)*l))end;
begin
SetWindowSize(425,500);
SetWindowCaption('Фракталы: Снежинка Коха');
Draw(10, 354, 400, pi/3, 4);Draw(410, 354, 400, pi, 4);
Draw(210, 8, 400, -pi/3, 4);end.

MOGZ ответил