М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации

Написать программу для на турбо паскале заданы координаты трёх точек на плоскости а(x1,y1) b(x2,y2) c(x3,y3) найдите расстояние между точками ab и ac по форумуле d=корень из(x2-x1)^2+(y2-y1)^2 x1=8 y1=12 x2=12.5 y2=14 x3=-3.5 y3=-5.2

👇
Ответ:
далина3
далина3
04.02.2020
Var x1,x2,x3,y1,y2,y3:integer;
begin
read(x1,y1);
read(x2,y2);
read(x3,y3);
writeln('ab',sqrt(sqr(x2-x1))+sqr((y2-y1;
writeln('ac',sqrt(sqr(x3-x1))+sqr((y3-y1;
end.
4,5(43 оценок)
Открыть все ответы
Ответ:
EatDrinkAndEat
EatDrinkAndEat
04.02.2020
Коль кругом всё будет мирно,
Так сидеть он будет смирно;
Но лишь чуть со стороны
Ожидать тебе войны,
Иль набега силы бранной,
Иль другой беды незваной,
Вмиг тогда мой петушок
Приподымет гребешок,
Закричит и встрепенется
И в то место обернется».

Здесь описывается алгоритм ветвления (если...то, иначе):

Коль кругом всё будет мирно,
(Если всё мирно)
Так сидеть он будет смирно;
(То сидит смирно)
Но лишь чуть со стороны
(Иначе)
Ожидать тебе войны,
(Или)
Иль набега силы бранной,
(Или)
Иль другой беды незваной,
Вмиг тогда мой петушок...
4,6(37 оценок)
Ответ:
KeKsickON
KeKsickON
04.02.2020
Язык C++.
#include < iostream >
using namespace std;
int main(){
int a, b, c, d, u;
cout << "Все четыре угла прямые (Да - 1/Нет - 0)?" << endl;
cin >> u;
switch(u){
case 0:{
cout << "Введите длины сторон: " << endl;
cin >> a >> b >> c >> d;
if((a==c && d == b) && (a==b && c==d)&&(a==d && b==c) &&(c==b && a == d))
cout << "Не параллелограмм";
else if((a==c && d == b) || (a==b && c==d)||(a==d && b==c) || (c==b && a == d))
cout << "Параллелограмм";
else
cout << "Не параллелограмм";
break;
}
case 1:{
cout << "Не параллелограмм";
}
}
}
4,5(94 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ