Question

ПОМОГИТЕ!!! Хотя бы 1 программу решите!!! через паскаль!!! Задание. Составить программу для решения следующей задачи: a) Дана длина ребра куба. Найти объем куба и площадь его боковой поверхности. b) Известна длина окружности. Найти площадь круга, ограниченного этой окружностью. c) Вычислить высоту треугольника, опущенную на сторону а, по известным значениям длин его сторон a, b, c. d) По данным сторонам прямоугольника вычислить его периметр, площадь и длину диагонали.

Answer 1

Это же элементарно!
Вот решения ко всем 4 задачам, Джон :) 

Answer 2

Конечно, я могу помочь вам с написанием программ на языке Pascal для решения этих задач. Вот программы для каждой из задач:

a) Найти объем куба и площадь его боковой поверхности:

pascalCopy code
program CubeVolumeAndSurfaceArea;
var
  sideLength, volume, surfaceArea: real;
begin
  writeln('Введите длину ребра куба: ');
  readln(sideLength);

  volume := sideLength * sideLength * sideLength;
  surfaceArea := 6 * sideLength * sideLength;

  writeln('Объем куба: ', volume:0:2);
  writeln('Площадь боковой поверхности куба: ', surfaceArea:0:2);
end.

b) Найти площадь круга, ограниченного данной окружностью:

pascalCopy code
program CircleArea;
const
  Pi = 3.14159265359;
var
  radius, circleArea: real;
begin
  writeln('Введите длину окружности: ');
  readln(radius);

  circleArea := (radius * radius) / (4 * Pi);

  writeln('Площадь круга: ', circleArea:0:2);
end.

c) Вычислить высоту треугольника, опущенную на сторону a:

pascalCopy code
program TriangleHeight;
var
  a, b, c, height: real;
begin
  writeln('Введите длины сторон треугольника a, b и c: ');
  readln(a, b, c);

  height := (2 * sqrt(a * (b + c) * (a + b - c) * (a - b + c))) / a;

  writeln('Высота треугольника, опущенная на сторону a: ', height:0:2);
end.

d) Вычислить периметр, площадь и длину диагонали прямоугольника:

pascalCopy code
program RectangleProperties;
var
  length, width, perimeter, area, diagonal: real;
begin
  writeln('Введите длину и ширину прямоугольника: ');
  readln(length, width);

  perimeter := 2 * (length + width);
  area := length * width;
  diagonal := sqrt(length * length + width * width);

  writeln('Периметр прямоугольника: ', perimeter:0:2);
  writeln('Площадь прямоугольника: ', area:0:2);
  writeln('Длина диагонали прямоугольника: ', diagonal:0:2);
end.

Вы можете скопировать каждую из этих программ в среду разработки Pascal и запустить их для решения соответствующих задач. Не забудьте ввести необходимые значения после запуска программы.