заполните таблицу
Проект «Поход в магазин»
Сегодня у Динары день рождения. К ней в гости придут друзья. Чтобы угостить гостей, Динаре нужно сходить в 2 магазина возле дома. Расстояние от дома Динары до 1-го магазина d1 метров, до 2-го магазина – d2 метров, расстояние между двумя магазинами d3 метров Динаре найти самый короткий путь, чтобы сходить в оба магазина и вернуться домой. Условие: d1, d2, d3 (1 ≤ d1, d2, d3 ≤ 108)

👇

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

Ответ:

densher412

02.03.2022

Моя семья небольшая, но очень крепкая и дружная. В нашей семье все любят и уважают друг друга. Нас пять человек: мама, папа, бабушка, брат и я. У каждого из нас в семье особая роль. Вот, например, мама следит за порядком в доме: чтобы все были сыты, одеты по погоде, чтобы всё было на своих местах. Всем известно, что на земле нет ближе и роднее человека, чем мама. Мою маму зовут Светлана Александровна. Она – переводчик, а до этого работала в школе учителем английского языка. Моя мама добрая, умная и красивая! Она всегда придёт на подскажет, как правильно поступить поддержит, но может и поругать, если что натворю. Она очень меня любит, и я тоже её люблю. Теперь я хочу рассказать о своём папе. Папа у меня замечательный! Вся тяжёлая мужская работа дома и на даче – на нём. Папа, Алексей Николаевич, работает начальником производства в цифровой типографии. Он очень ответственный и исполнительный. Но, несмотря на то, что он сильно занят, папа всегда готов Папа – мой главный консультант по точным наукам. А ещё, папа – водитель. Мы любим ездить с папой на машине. Мой папа – самый лучший!

4,8(88 оценок)

Ответ:

ник4991

02.03.2022

Unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;

type
TForm1 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    Edit1: TEdit;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
x,y,t:real;
x1,y1,M:integer; //M -коэффициент масштабирования
begin
x1:=Image1.Width div 2;
y1:=Image1.Height div 2;
with Image1.Canvas do
begin
    MoveTo(x1,0); LineTo(x1,Image1.Height);
    MoveTo(x1,0); LineTo(x1-5,10);
    MoveTo(x1,0);LineTo(x1+5,10);
    MoveTo(0,y1);LineTo(Image1.Width,y1);
    LineTo(Image1.Width-10,y1-5);
    MoveTo(Image1.Width,y1); LineTo(Image1.Width-10,y1+5);
    TextOut(x1+1,y1+1,'0');
    TextOut(Image1.Width-16,y1+2,'X');
    TextOut(x1-15,0,'Y');
    x := -200;
    y := 1/x;
    M:=strtoint(edit1.text);
    moveto(x1+round(x)*M,(y1-round(y)*M));
    repeat
      x:=x+0.1;
      if x<>0 then //точка разрыва
      begin
       y := 1/x;
       lineto(x1+round(x*M),(y1-round(y*M)));
      end
      else
      begin
       x:=x+0.1;
       y := 1/x;
       MoveTo(x1+round(x*M),(y1-round(y*M)));
      end;
    until x>=200;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Label1.Caption:='коэффициент масштабирования';
Button1.Caption:='Построить';
Edit1.Text:='15';
Button1.OnClick(sender);//Построение
end;

end.

4,7(92 оценок)

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

Компьютеры-и-электроника

23.05.2020

Как удалить файлы Только для чтения без проблем...

Компьютеры-и-электроника

02.04.2023

Как сделать, чтобы ваш блог отображался в начале списка результатов поиска...

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

01.11.2021

Как страстно целовать: советы и рекомендации для пар...

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