Question

Срочно!!! Написать три программы на паскале.
1) Составить программу для вычисления площади, периметра и длины диагонали.
2)Составить программу для нахождения суммы, разности, произведения, частности введенные с клавиатуры.
3) Дано: треугольник ABC произвольный. Составить программу для вычисления его площади.

Answer 1

Если надо на паскале, то вот 2й номер.


program calc;
var  a, b, c: real;
var  d: integer;
begin  write('Введите числа (Внимание, если вы хотите произвести вычитание/деление, то введите уменьшаемое/делимое число первым.');  readln(a, b);  write('Введите код операции. 1-сложение. 2-вычитание. 3-умножение. 4-деление.');  readln(d);  case d of     1: c := a + b;    2: c := a - b;    3: c := a * b;    4: c := a / b;  else    writeln('Ошибка');  end;  writeln('Ответ:', c);end.