Вpascal составьте линейные программы для решения следующих : 1. определения длины средней линии трапеции, если известны длины оснований трапеции. 2. вычисления площади трапеции, если известны ее основания и высота. 3. вычисления расстояния между двумя точками на координатной плоскости. 4. вычисления периметра треугольника, если известны координаты его вершин. 5. в углу прямоугольного двора размером ab стоит прямоугольный дом размером cd. подсчитать площадь дома, свободную площадь двора и длину забора. примечание: в углу, где стоит дом, забора нет.

100

395

Посмотреть ответы 2

Ответы на вопрос:

apexXx

Информатика

4,8(74 оценок)

//pascalabc.net (версия 3.1, сборка 1210 от 29.03.2016) { определения длины средней линии трапеции, если известны длины оснований трапеции. } var a,b : real; begin readln(a,b); writeln('длина средней линии = ',(a+b)/2); end. { вычисления площади трапеции, если известны ее основания и высота. } var a,b,h : real; begin readln(a,b,h); writeln('площадь трапеции = ',(a+b)/2*h); end. { вычисления расстояния между двумя точками на координатной плоскости } var x1,y1,x2,y2 : real; begin write('координаты 1 точки '); readln(x1,y1); write('координаты 2 точки '); readln(x2,y2); writeln('расстояние между точками = ',sqrt(sqr(x1-x2)+sqr(y1-; end. { вычисления периметра треугольника, если известны координаты его вершин } var x1,y1,x2,y2,x3,y3,a,b,c : real; begin write('координаты 1 вершины '); readln(x1,y1); write('координаты 2 вершины '); readln(x2,y2); write('координаты 3 вершины '); readln(x3,y3); a: =sqrt(sqr(x1-x2)+sqr(y1-y2)); b: =sqrt(sqr(x3-x2)+sqr(y3-y2)); c: =sqrt(sqr(x3-x1)+sqr(y3-y1)); writeln('периметр треугольника = ',a+b+c); end. { в углу прямоугольного двора размером a*b стоит прямоугольный дом размером c*d. подсчитать площадь дома, свободную площадь двора и длину забора. } var a,b,c,d,sh : real; begin write('размеры двора '); readln(a,b); write('размеры дома '); readln(c,d); sh: =c*d; //площадь дома writeln('площадь дома = ',sh); writeln('свободная площадь двора = ',a*b -sh); writeln('длина забора = ',(a+b)*2 -(c+d)); end.