uses graphabc;
var i,d,v: integer;
begin
for i:=1 to 7 do
begin
SetPenWidth(5);
setbrushcolor (clRandom);
Rectangle(40+d,380-v,600-d,437-v);
d:=d+40;
v:=v+57;
end
end.
x1 ≈ 2,3
x2 ≈ - 1,3
Смотри картинки
Объяснение:
1) В ячейку B1 пишем y = x*x - 2
2) В ячейку C1 пишем y = x + 1
3) В ячейку A2 пишем x
4) В ячейку B2 пишем y
5) В ячейку C2 пишем y
6) В ячейку A3 пишем -1,5
7) В ячейку A4 пишем -1,25
8) Выделите ячейки А3 и А4 в правом нижнем углу появится зелёный квадратик, а рядом с ним квадратик с выпадающим списком, в котором надо выбрать Заполнение. Потяните за зелёный квадратик вниз до А19.
9) В ячейку В3 пишем формулу = A3*A3-2
10) Копируем ячейку В3, выделяем диапазон В4:В19 и вставляем эту формулу
11) В ячейку С3 пишем формулу =A3+1
12) Копируем ячейку С3, выделяем диапазон С4:С19 и вставляем эту формулу
13) Выделяем диапазон А2:С19 выбираем вкладку Вставка, затем Диаграмма, Точечная. Появляется график.
14) По графику смотрим координаты х в точках пересечения графиков.
15) В ячейку N5 пишем x1 ≈ 2,3
16) В ячейку N6 пишем x2 ≈ - 1,3
x1 ≈ 2,3
x2 ≈ - 1,3
Смотри картинки
Объяснение:
1) В ячейку B1 пишем y = x*x - 2
2) В ячейку C1 пишем y = x + 1
3) В ячейку A2 пишем x
4) В ячейку B2 пишем y
5) В ячейку C2 пишем y
6) В ячейку A3 пишем -1,5
7) В ячейку A4 пишем -1,25
8) Выделите ячейки А3 и А4 в правом нижнем углу появится зелёный квадратик, а рядом с ним квадратик с выпадающим списком, в котором надо выбрать Заполнение. Потяните за зелёный квадратик вниз до А19.
9) В ячейку В3 пишем формулу = A3*A3-2
10) Копируем ячейку В3, выделяем диапазон В4:В19 и вставляем эту формулу
11) В ячейку С3 пишем формулу =A3+1
12) Копируем ячейку С3, выделяем диапазон С4:С19 и вставляем эту формулу
13) Выделяем диапазон А2:С19 выбираем вкладку Вставка, затем Диаграмма, Точечная. Появляется график.
14) По графику смотрим координаты х в точках пересечения графиков.
15) В ячейку N5 пишем x1 ≈ 2,3
16) В ячейку N6 пишем x2 ≈ - 1,3
uses
GraphABC;
const
S = 14; // Кол-во щупалец
N = 18; // Кол-во звеньев в каждом из них
W = 2; //Ширина щупалец
var
i, j: Integer;
x, y: Real;
tx, ty: Real;
k, d: Real;
// Углы поворота звеньев относительно друг-друга
a: array [1..N] of Real;
// Длина одного звена
len: Real;
begin
Pen.Width := W;
SetWindowSize(320, 320);
SetWindowTitle('Щупальца');
if Window.Width > Window.Height then
len := Window.Height / 1.8 / N
else
len := Window.Width / 1.8 / N;
k := random(360) * pi / 180;
d := pi * 2 / S;
var k1 := 1;
// Главный цикл
repeat
if Window.Width > Window.Height then
len := Window.Height / 1.8 / N
else
len := Window.Width / 1.8 / N;
LockDrawing(); //Блокируем рисование(для оптимизации)
ClearWindow(ClBlack); // Стираем всё
// Расчёт коэфицента поворота
if random(50) = 0 then
k := random(360) * pi / 180;
// Поворот всех щупалец
a[1] := a[1] + sin(k) / 15;
// Интерполяция углов между щупальцами
for i := 2 to N do
a[i] := a[i] + (a[i - 1] - a[i]) * 0.1;
for j := 0 to S - 1 do
begin
x := 0.5 * Window.Width;
y := 0.5 * Window.Height;
for i := 2 to N do
begin
SetPenColor(Color.FromArgb(255, trunc(255 - 255 * i / N), 255));
// Немного школьной тригонометрии :)
tx := x + cos(j * d + a[i]) * len;
ty := y + sin(j * d + a[i]) * len;
Line(trunc(x), trunc(y), trunc(tx), trunc(ty));
x := tx;
y := ty;
end;
end;
Redraw(); //Перерисуем изображение
k1 += 1;
SetWindowTitle('Щупальца( Средн. FPS ' + Format('{0,5:f2}',k1/Milliseconds*1000)+')');
sleep(5);
until false;
end.