Question

СРОЧНО ЗАДАНИЕ НА 30 БАЛЛОВ! На PASCAL нужно разработать программу которая выводит формулы площади в зависимости от вида фигур!

Answer 1

program raf105;

var figur:integer;

begin

writeln('1. Квадрат');

writeln('2. Прямоугольник');

writeln('3. Треугольник');

writeln('4. Круг');

write('Введите номер фигуры: ');

readln(figur);

if figur = 1

 then writeln('S = a^2');

if figur = 2

 then writeln('S = a*b');

if figur = 3

 then writeln('S = √(p·(p-a)·(p-b)·(p-c))');

if figur = 4

 then writeln('S = πR^2');

end.

Answer 2

Хорошо, вот пример программы на языке Pascal, которая выводит формулы площади для различных видов фигур:

pascalCopy code
program FormulasForArea;

begin
  writeln('Выберите фигуру:');
  writeln('1. Квадрат');
  writeln('2. Прямоугольник');
  writeln('3. Треугольник');
  writeln('4. Круг');
  writeln('5. Параллелограмм');
  writeln('6. Ромб');
  writeln('7. Трапеция');
  
  var choice: integer;
  readln(choice);

  case choice of
    1: writeln('Площадь квадрата: S = a * a, где а - длина стороны');
    2: writeln('Площадь прямоугольника: S = a * b, где a и b - длины сторон');
    3: writeln('Площадь треугольника: S = 0.5 * a * h, где a - основание, h - высота');
    4: writeln('Площадь круга: S = π * r * r, где r - радиус');
    5: writeln('Площадь параллелограмма: S = a * h, где a - длина основания, h - высота');
    6: writeln('Площадь ромба: S = a * h, где a - длина основания, h - высота');
    7: writeln('Площадь трапеции: S = (a + b) * h / 2, где a и b - длины оснований, h - высота');
    else writeln('Ошибка: выбрана некорректная опция.');
  end;
end.

Программа предлагает выбрать фигуру по её номеру, а затем выводит соответствующую формулу для вычисления площади этой фигуры. Надеюсь, это поможет вам выполнить задание на 30 баллов! Если у вас возникнут вопросы или потребуется дополнительная помощь, не стесняйтесь обращаться. Удачи!