Begin19. Даны координаты двух противоположных вершин прямоугольника: $$(x_1, y_1)$$, $$(x_2, y_2)$$. Стороны прямоугольника параллельны осям координат. Найти периметр и площадь данного прямоугольника.
Формулы:
$$P=2*(a+b)$$
$$S=a*b $$
$$ a=|x_1-x_2| $$
$$ b=|y_1-y_2| $$
$$ P=2*(|x_1-x_2|+|y_1-y_2|) $$
$$ S=|x_1-x_2|*|y_1-y_2| $$
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
program Begin19; var x1,y1,x2,y2,P,S: Real; begin Writeln('Введите значение координат певой точки прямоугольника: '); Write('Введите значение x: '); Readln(x1); Write('Введите значение y: '); Readln(y1); Writeln('Введите значение координат второй точки прямоугольника: '); Write('Введите значение x: '); Readln(x2); Write('Введите значение y: '); Readln(y2); P:=2*(abs(x1-x2)+abs(y1-y2)); Writeln('Периметр прямоугольника равен: ',P); S:=abs(x1-x2)*abs(y1-y2); Writeln('Площадь прямоугольника равна: ',S); end. |
Другие задачи из раздела Begin можно посмотреть здесь.
Здраствуйте,вот я не понял как это делается в математике ,в программирование все ок,просто хочу свои навыки прокачать в математике,не дадите сайт или какую ту информацию что бы потянуть математику ,мне очень нравится математика и программирование хотел как то по практиковаться чтобы на много лучшее было по данной книги практикуюсь (Адамян).