Информатика: Sketch up make программасын дағы терезе элементер

Sketch up make программасын дағы терезе элементер

👇

Открыть все ответы

Ответ:

taganrog123

07.01.2023

Основной задачей технологии маршрутизации является поддержание сетевой конфигурации в том состоянии, чтобы любой сетевой узел мог передавать данные другому узлу по оптимальному маршруту, обеспечивая взаимодействие между ними. Процесс определения того, куда нужно отправлять пакеты данных и есть маршрутизация. Любой алгоритм маршрутизации описывается базой данных или открытой таблицей, которые носят название таблиц маршрутизации и расположены на каждом сетевом компьютере или устройстве. В ней записываются все возможные маршруты передачи пакетов к конкретным узлам или подсетям. Если ваша сеть содержит небольшое количество локальных адресов и только одно подключение к Интернет, то таблица маршрутизации может сохранить свой вид по умолчанию, созданному при установке системы.

Сложности реализации

4,4(100 оценок)

Ответ:

витя10

07.01.2023

//PascalABC.NET версия 3.3.1590 от 03.12.2017
//Если программа не запускается, то обновите версию

uses GraphABC;
const
    x_min = -15.0;
    x_max = 15.0;
    dx = 0.01;

function f(x: real): real;
begin
    f := 2*x;
end;

begin
    //настраиваем размер окна под график, влияет на маштаб
    Window.Width := 1000;
    Window.Height := 300;

    Window.IsFixedSize := True; // фиксируем размеры окна
    Coordinate.Origin := Window.Center; //выставляем начало координат в центр окна
    Coordinate.SetMathematic; //выставляем направление осей как в математике принято
    var scale := Window.Width / (x_max - x_min); // вычисляем маштаб

    var x := x_min;
    var y_max := f(x_max); // подставляем реальные значения
    var y_min := f(x_min); // подставляем реальные значения

    repeat
        try
            var y := f(x);
            if y > y_max then y_max := y;
            if y < y_min then y_min := y;
        finally
            x := x + dx;
        end;
    until x > x_max;

    // оси координат, стрелочки сами если надо
    Pen.Color := clSilver;
    Line(round((x_min - 1) * scale), 0, round((x_max + 1) * scale), 0);
    Line(0, round((y_min - 1) * scale), 0, round((y_max + 1) * scale));
    Circle(0, round(1 * scale), 1); //единичная метка
    Circle(round(1 * scale), 0, 1); //единичная метка

    x := x_min;
    repeat
        try
            var y := f(x);
            PutPixel(round(x * scale), round(y * scale), clBlueViolet);
        finally
            x := x + dx;
        end;
    until x > x_max;
end.

4,4(35 оценок)

Это интересно:

Образование-и-коммуникации

17.11.2022

Как стать самым уверенным учеником в школе?...

Кулинария-и-гостеприимство

04.02.2023

Как приготовить фасоль пинто: пошаговый рецепт и полезные советы...

Хобби-и-рукоделие

07.03.2023

Как играть в Колонизаторов...

Взаимоотношения