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

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

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.