Question

Создать программу для вычисления площади прямоугольника ( если а> б) или площади треугольника (если б> а) паскаль

Answer 1

Я не понимаю, зачем делать условие a>b  и b>a, если результат будет одним и тем же. Тем не менее, я сделал как было в условии:
program ggg;var a,b: integer;beginwriteln('введи длину и ширину прямоугольника');readln(a,b);if a>b thenwriteln('площадь прямоугольника - ', a*b);if b>a thenwriteln('площадь прямоугольника - ', a*b);end.

Answer 2

Конечно! Вот пример программы на языке Pascal, которая вычисляет площадь прямоугольника или треугольника в зависимости от значений сторон a и b:

pascalCopy code
program CalculateArea;

var
  a, b, area: real;

begin
  writeln('Введите длину стороны a:');
  readln(a);

  writeln('Введите длину стороны b:');
  readln(b);

  if a > b then
  begin
    area := a * b;
    writeln('Площадь прямоугольника равна: ', area);
  end
  else if b > a then
  begin
    area := (a * b) / 2;
    writeln('Площадь треугольника равна: ', area);
  end
  else
  begin
    writeln('Фигура не является прямоугольником или треугольником.');
  end;

  readln;
end.

Программа запрашивает у пользователя длины сторон a и b. Затем она проверяет условие и вычисляет площадь прямоугольника или треугольника. Результат выводится на экран. Если стороны a и b равны или если ни одно из условий не выполняется, программа выводит сообщение о том, что фигура не является прямоугольником или треугольником.

Пожалуйста, учтите, что Pascal является устаревшим языком программирования, и его использование в современных проектах не рекомендуется. Этот пример приведен исключительно для иллюстративных целей, чтобы показать, как можно решить данную задачу на Pascal.