tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Зданы координаты трех вершин
Зданы координаты трех вершин реугольника (x1,y1), (,y3). найти его периметр. по паскалю
Ленка6
2 19.07.2019 15:00
0
Ответы
mandavosha56
22.09.2020 13:50
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
type
Point=record
x,y:real
end;
function ReadPoint(c:char):Point;
begin
Write('Точка ',c,'-> '); Read(Result.x,Result.y)
end;
function Len(a,b:Point):=sqrt(sqr(b.x-a.x)+sqr(b.y-a.y));
begin
var a:=ReadPoint('A');
var b:=ReadPoint('B');
var c:=ReadPoint('C');
Writeln('P=',Len(a,b)+Len(a,c)+Len(b,c))
end.
Тестовое решение:
Точка A-> -2 -2
Точка B-> 2 4
Точка C-> 7 -4
P=25.8646281402775
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
mussay86
27.04.2020 18:10
Пришлось перезадать во У меня проблемы с информатикой, программируем на паскале. задали два задания, впал в ступор. буду очень благодарен если будут объяснения решения....
popkaf
11.12.2020 09:39
Нарисуйте диаграмму основываясь на данные таблицы сделать рисунок в тетради фотографию работы прикрепите к данному ответу...
vgizovskaya
26.03.2022 09:13
Значение (истина/ложь) истично 1. Определите истинность высказываний Логическое выражение 2-3 and 27 or 3=0 3=1+3 or 2 1 Not (4 7) Not (45)...
lika343
26.03.2022 10:51
До іть будь ласка! Треба зробити таку саму ячейку (обведено червоною лінією)...
aliina000
26.03.2022 13:45
Маша построила алгоритм для классификации писем на два вида: спам (1) и не спам (0). Затем она построила матрицу с результатами работы её алгоритма. В ячейках указано...
Киска11102844
26.03.2022 15:00
Бітова частота звукового файла дорівнює 256 Кбіт/с, обсяг файла становить 2 Мбайти. Визначте час тривалості звукового файла у секундах...
angelinaignaty1
26.03.2022 15:49
“Множества” питон 1. Подсчитайте количество уникальных символов в высказывании Уильяма Шекспира: “All the world’s a stage, and all the men and women merely players. They...
ayveliss
26.03.2022 16:12
Дан массив состоящий из 15 элементов целого типа. Получить новый массив как разнось между элементами исходного массива и его среднего арифметического в питоне...
vfilips
26.03.2022 17:32
Какими на слайд можно добавлять текс?...
CheIIOVek
26.03.2022 19:37
640*384 пикселей N=16цветов V=неизвестно...
Популярные вопросы
Перефразировать предложения 1. женщинам, родившим пять и более детей...
2
Change the sentences using possessive case of noune. 1. Yesterday...
1
. НЕМЕЦКИЙ ЯЗЫК. 8 КЛАСС. .ТЕСТ № 16Укажите буквой то союзное слово,...
2
Годы Австралопитек, Человек умелый, Человек прямоходящий, Неандерталец,...
1
Очень надо сделать за сегодня, сам не успеваю.....
2
запускал игруху, и вдрег появились белые квадратики и комп перезагрузился,...
1
Закрасьте фигуры с названием русских земель, вошедших в состав Литовского...
1
1. Выразите 8 см и 2мм в сантиметрах и запишите в виде десятичной...
2
Найти первообразную функции f(x)= x¹³+x¹⁸ и вычислить ее значение...
3
Составьте рассказ об использовании имущественных прав, используя следующий...
3
type
Point=record
x,y:real
end;
function ReadPoint(c:char):Point;
begin
Write('Точка ',c,'-> '); Read(Result.x,Result.y)
end;
function Len(a,b:Point):=sqrt(sqr(b.x-a.x)+sqr(b.y-a.y));
begin
var a:=ReadPoint('A');
var b:=ReadPoint('B');
var c:=ReadPoint('C');
Writeln('P=',Len(a,b)+Len(a,c)+Len(b,c))
end.
Тестовое решение:
Точка A-> -2 -2
Точка B-> 2 4
Точка C-> 7 -4
P=25.8646281402775