В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История

Задание 6:подумайте над вопросами и поделись своими рассуждениями на тему<<Как быть хорошим другом>> 1.дружба эта когда у тебя есть друг к примеру с 3-4 лет.
2.друзья эта те люди которые в любую минуту и поддержут.
3.мы их ценим за их понимание и самооценку.
4.дружить можно с каждым человеком главное чтоб он был рядом.
5.к примеру есть у тебя один друг ну или подруга у тебя к примеру из всего два а у них целая толпа.
6.смотря какой друг хороший или не хороший людей не судят по внешности и по хорактеру
7.к примеру:меня ценят за то что я всегда поддержу и не отпущу в любой момент

Все надеюсь )

Показать ответ
Ответ:
Vladrus2006XD
Vladrus2006XD
01.02.2021 05:49
Type
  Point = record
    x: integer;
    y: integer;
  end;
  Line = record
    P: Point;
    Q: Point;
    Len: double;
  end;

procedure LineLength(var pL: Line);
  // Вычисляет и сохраняет значение длины отрезка
begin
  pL.Len := sqrt(sqr(pL.Q.x - pL.P.x) + sqr(pL.Q.y - pL.P.y))
end;

var
  A, B, C, D: Point;
  AB, AC, AD, BC, BD, CD: Line;

begin
  writeln('Введите попарно координаты четырех точек');
  readln(A.x, A.y, B.x, B.y, C.x, C.y, D.x, D.y);
  with AB do
  begin
    P.x := A.x; P.y := A.y; Q.x := B.x; Q.y := B.y; LineLength(AB);
  end;
  with AC do
  begin
    P.x := A.x; P.y := A.y; Q.x := C.x; Q.y := C.y; LineLength(AC);
  end;
  with AD do
  begin
    P.x := A.x; P.y := A.y; Q.x := D.x; Q.y := D.y; LineLength(AD);
  end;
  with BC do
  begin
    P.x := B.x; P.y := B.y; Q.x := C.x; Q.y := C.y; LineLength(BC);
  end;
  with BD do
  begin
    P.x := B.x; P.y := B.y; Q.x := D.x; Q.y := D.y; LineLength(BD);
  end;
  with CD do
  begin
    P.x := C.x; P.y := C.y; Q.x := D.x; Q.y := D.y; LineLength(CD);
  end;
  writeln(AB.Len, ' ', AC.Len, ' ', AD.Len, ' ', BC.Len, ' ', BD.Len, ' ', CD.Len);
  if AB.Len = CD.Len then begin
    // AB и CD - претенденты
    if AC.Len = BD.Len then // Нашли ABDC
      writeln('Параллелограмм ABDC')
    else
    if AD.Len = BC.Len then // Нашли ABCD
      writeln('Параллелограмм ABCD')
  end
  else
  if AC.Len = BD.Len then begin
      // AC и BD - претенденты
    if AD.Len = BC.Len then // Нашли ACBD
      writeln('Параллелограмм ACBD')
      else
    if AB.Len = CD.Len then // Нашли ABCD
      writeln('Параллелограмм ACDB')
  end
    else
  if AD.Len = BC.Len then begin
        // AD и ВС - претенденты
    if AC.Len = BD.Len then // Нашли ADBC
      writeln('Параллелограмм ADBC')
        else
    if AB.Len = CD.Len then // Нашли ADCB
      writeln('Параллелограмм ADCB')
  end
  else
    writeln('Параллелограмм построить невозможно');
end.

Контрольный прогон:

Введите попарно координаты четырех точек
5 1 10 3 8 9 3 6
5.3851648071345 8.54400374531753 5.3851648071345 6.32455532033676 7.61577310586391 5.8309518948453
Параллелограмм построить невозможно

Введите попарно координаты четырех точек
5 1 10 4 8 9 3 6
5.8309518948453 8.54400374531753 5.3851648071345 5.3851648071345 7.28010988928052 5.8309518948453
Параллелограмм ABCD

Введите попарно координаты четырех точек
5 1 8 9 10 4 3 6
8.54400374531753 5.8309518948453 5.3851648071345 5.3851648071345 5.8309518948453 7.28010988928052
Параллелограмм ACBD
0,0(0 оценок)
Ответ:
никун
никун
01.11.2022 10:41
Изучение истории Киргизской ССР периода Великой Отечественной войны нельзя отнестись к числу малоисследованных научных проблем . В работах многих учёных собран обобщен значительный материал о роли Киргизской ССР в годы войны о героическом труде рабочих колхозников интеллигенции показана роль партийных комсомольских организации советов во всеобщей мобилизации трудового население на разгром врага освещены ратные подвиги киргистанцев на фронтах Отечественной войны . Однако в изучение рассматриваемое проблемы имеются и определённые проблемы общие тенденции процессов происходящих в народном хозяйстве целом и отдельном его отраслях в годы вайны
0,0(0 оценок)
Популярные вопросы: Другие предметы
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота