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

Имя входного файла: стандартный ввод Имя выходного файла: стандартный вывод
Ограничение по времени: 1 секунда
Ограничение по памяти: 256 мегабайт
Программист Кеша с недавних пор занят в новом проекте. В связи с этим на его рабочем столе
появились три новые книги. Кеша использует их в течение всего рабочего дня, а когда заканчивает
работу, складывает их в стопку — одну на другую.
Известны высота, ширина и толщина каждой книги. Кеша заинтересовался, можно ли сказать,
что книги упорядочены хотя бы по какой-то из этих величин? Ваша задача — определить это.
Формат входных данных
В первой строке содержатся через пробел три целых положительных числа h1, w1, t1 — высота,
ширина и толщина самой нижней в стопке книги.
Во второй строке содержатся через пробел три целых положительных числа h2, w2, t2 — высота,
ширина и толщина книги, которая лежит в середине стопки.
В третьей строке содержатся через пробел три целых положительных числа h3, w3, t3 — высота,
ширина и толщина самой верхней в стопке книги.
Гарантируется, что все числа попарно различны и не превосходят 100.
Формат выходных данных
Выведите строку из трёх символов s1s2s3.
Если книги можно считать упорядоченными по высоте, s1 = H, в противном случае s1 = N.
Если книги можно считать упорядоченными по ширине, s2 = W, в противном случае s2 = N.
Если книги можно считать упорядоченными по толщине, s3 = T, в противном случае s3 = N.


Имя входного файла: стандартный ввод Имя выходного файла: стандартный вывод Ограничение по времени:

Показать ответ
Ответ:
шшшшккпеее1
шшшшккпеее1
09.04.2023 11:57
Function Otr(Ax, Ay, Bx, By: real): real;
begin
  Otr := sqrt(sqr(Ax - Bx) + sqr(Ay - By))
end;

function Perim(Ax, Ay, Bx, By, Cx, Cy: real): real;
begin
  Perim := Otr(Ax, Ay, Bx, By) + Otr(Bx, By, Cx, Cy) + Otr(aX, aY, Cx, Cy);
end;

function Area(Ax, Ay, Bx, By, Cx, Cy: real): real;
var
  pp: real;
begin
  pp := Perim(Ax, Ay, Bx, By, Cx, Cy) / 2;
  Area := sqrt(pp * (pp - Otr(Ax, Ay, Bx, By)) * (pp - Otr(Bx, By, Cx, Cy)) *
    (pp - Otr(Ax, Ay, Cx, Cy)))
end;

procedure Dist(Px, Py, Ax, Ay, Bx, By: real; var D: real);
begin
  D := 2 * Area(Px, Py, Ax, Ay, Bx, By) / Otr(Ax, Ay, Bx, By)
end;

var
  Px, Py, Ax, Ay, Bx, By, Cx, Cy: real;
  d: real;

begin
  writeln('Вводите координаты точкек парами чисел: ');
  write('P-> ');
  readln(Px, Py);
  write('A-> ');
  readln(Ax, Ay);
  write('B-> ');
  readln(Bx, By);
  write('C-> ');
  readln(Cx, Cy);
  writeln;
  Dist(Px, Py, Ax, Ay, Bx, By, d);
  writeln('Расстояние от Р до АВ равно ', d);
  Dist(Px, Py, Cx, Cy, Bx, By, d);
  writeln('Расстояние от Р до ВC равно ', d);
  Dist(Px, Py, Ax, Ay, Cx, Cy, d);
  writeln('Расстояние от Р до АC равно ', d)
end.

Тестовое решение:
Вводите координаты точкек парами чисел:
P-> -3 6
A-> 5 8
B-> 9 -4
C-> 8 -2.5

Расстояние от Р до АВ равно 8.22192191643778
Расстояние от Р до ВC равно 4.43760156980184
Расстояние от Р до АC равно 8.24163383692135
0,0(0 оценок)
Ответ:
Son0905
Son0905
08.11.2020 05:49
Смотря какую тебе надо, конслольную или оконную.
с консольной все просто 
Запустить систему VC++ командой Пуск | Программы | Microsoft Visual Studio 2010 | Microsoft Visual Studio 2010
-Создать приложение, выбрав команду главного меню File | New | Project, тип проекта Win32 и в  качестве шаблона проекта указав Win32 Console application. 
А оконные:
-Создать приложение  на основе Windows Forms, выбрав команду главного меню File | New | Project, тип проекта CLR и в качестве шаблона проекта указав Windows Forms Ap-plication. После этого ввести имя проекта и указать папку для хранения проекта.
- Создать приложение MFC
Прочитать материалы в приложении и попробовать сделать задания. Тогда разберешься :)
узнать, что такое windows form, CLR и MFC
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота