Вопрос по информатике:
Решите в паскале)) даны координаты вершин прямоугольника А(X1, Y1), B(X2,Y2), C(X3,Y3), D(X4,Y4). Вычислите периметр и площадь прямоугольника.
- 06.03.2018 03:26
- Информатика
- remove_red_eye 4188
- thumb_up 25
Ответы и объяснения 2
Var x1,x2,x3,x4,y1,y2,y3,y4:integer;
AB,BC,p,s:real;
begin
read(x1,y1,x2,y2,x3,y3,x4,y4);
AB:=sqrt(sqr(x1-x2)+sqr(y1-y2));
BC:=sqrt(sqr(x2-x3)+sqr(y2-y3));
p:=2*(ab+bc);
s:=ab*bc;
write('p=',p,' s=',s);
end.
- 07.03.2018 20:40
- thumb_up 28
program umn;
var X1,Y1,x2,y2,x3,y3,x4,y4, P,S,l1,l2:real;
begin
write('Введите координаты вершин треугольника ( A, B, C, D): '); read(X1,Y1,x2,y2,x3,y3,x4,y4);
l1 := Sqrt(sqr(x2 - x1) + Sqr(y2-y1));
l2 := Sqrt(sqr(x3 - x2) + Sqr(y3-y2));
S := l1 * l2;
P := 2 * (l1+l2);
write(S:3:2,' ',P:3:2);
end.
Если есть вопросы задавайте.
- 08.03.2018 15:16
- thumb_up 50
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.