Question

помогите ПОЖАЛУЙСТА составить программу паскаль которая будет вычислять периметр и площадь прямоугольника. и программу которая будет вычислять косинус углов треугольника а,в,с

Answer 1

Конечно, я могу помочь вам составить программу на языке Паскаль для вычисления периметра и площади прямоугольника, а также программу для вычисления косинусов углов треугольника.

Программа для вычисления периметра и площади прямоугольника:

program Rectangle;

var
  length, width, perimeter, area: real;

begin
  writeln('Введите длину прямоугольника: ');
  readln(length);
  
  writeln('Введите ширину прямоугольника: ');
  readln(width);
  
  perimeter := 2 * (length + width);
  area := length * width;
  
  writeln('Периметр прямоугольника: ', perimeter);
  writeln('Площадь прямоугольника: ', area);
  
  readln;
end.

Программа для вычисления косинусов углов треугольника:

program Triangle;

uses
  Math;

var
  a, b, c, angleA, angleB, angleC: real;

begin
  writeln('Введите сторону a треугольника: ');
  readln(a);
  
  writeln('Введите сторону b треугольника: ');
  readln(b);
  
  writeln('Введите сторону c треугольника: ');
  readln(c);
  
  angleA := arccos((b * b + c * c - a * a) / (2 * b * c));
  angleB := arccos((a * a + c * c - b * b) / (2 * a * c));
  angleC := arccos((a * a + b * b - c * c) / (2 * a * b));
  
  writeln('Косинус угла A: ', cos(angleA));
  writeln('Косинус угла B: ', cos(angleB));
  writeln('Косинус угла C: ', cos(angleC));
  
  readln;
end.

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