Помогите пожалуйста надо составить программу в ПАСКАЛЕ. Известны координаты трех точек A(x1,y1), B(x2,y2), C(x3,y3). Найти расстояние АС+АВ.
5-9 класс
|
var
x1, x2, x3, y1, y2, y3, L: real;
begin
Write('Введите через пробел координаты точки А: ');
Readln(x1, y1);
Write('Введите через пробел координаты точки B: ');
Readln(x2, y2);
Write('Введите через пробел координаты точки C: ');
Readln(x3, y3);
L := sqrt(sqr(x2 - x1) + sqr(y2 - y1)) + sqrt(sqr(x3 - x1) + sqr(y3 - y1));
Write('Сумма длин AB+AC равна ', L:0:3)
end.
Тестовое решение:
Введите через пробел координаты точки А: -3 2
Введите через пробел координаты точки B: 4.3 1.8
Введите через пробел координаты точки C: 0 7
Сумма длин AB+AC равна 13.134
Как это - "найти расстояние", если указаны два отрезка? Можно найти сумму длин отрезков, можно найти длину результирующего вектора, если рассматривать отрезки, как векторы.
Скорее всего сумму длин отрезков
Другие вопросы из категории
черно-белого изображения составляет 200х300 точек. Определите информационный объем данного документа, ответ выразите в байтах (только число):
уменьшение информации) в окружающем мире.
Читайте также
Клоун
предложил каждому из публики задумать число. Потом он сказал: «Прибавьте к
задуманному числу 5. Теперь из результата вычтите 2. А теперь к результату
прибавьте 7». Потом клоун спросил у желающих, какое число у каждого из них
получилось. Услышав ответ, он немедленно объявлял каждому, какое число тот
задумывал. Составьте программу, которая повторяла бы фокус клоуна.
Составьте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет:
1). сумму чисел, не превышающих 10;
2). сумму чисел,кратных 3. Помогите пожалуйста,написать эту программу на PaskalABC.
Составить программу для паскаля.
1) y=x^8
2) y=x^10
1. Составьте программу для определения большего из двух чисел х или у
2. Составьте программу для нахождения площади прямоугольника по заданным сторонам а и б