М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
ArseniyRich
ArseniyRich
22.07.2021 07:21 •  Информатика

Виручайе рисунок в паскале абс с for дом либо светофор или же ваш вариант,заранее

👇
Ответ:
latuk27
latuk27
22.07.2021

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.

4,8(23 оценок)
Ответ:
Kartrider
Kartrider
22.07.2021

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.

4,4(37 оценок)
Открыть все ответы
Ответ:
cbnybrjds
cbnybrjds
22.07.2021

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


сделать домашнее задание в Excel ,построить параболу
сделать домашнее задание в Excel ,построить параболу
4,4(32 оценок)
Ответ:
panaitov023
panaitov023
22.07.2021

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


сделать домашнее задание в Excel ,построить параболу
сделать домашнее задание в Excel ,построить параболу
4,4(46 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ