Question

Паскаль. Написать программу для нахождения площади прямоугольника. формулы y1=(x+y)/3-t

Answer 1

Ответ:

Program lol;

Var a, b, c, s, p:real;

begin

 write('Введите длины трех сторон треугольника: ');

readln(a,b,c);

 p := (a + b + c) / 2;

 s := sqrt(p * (p-a) * (p-b) * (p-c));

 writeln('Площадь тр-ка S = ', s);

end.

Объяснение:

Answer 2

Program Pr_yg;

Uses crt;

Var

S,a,b:real;

Begin

 writeln('Введите стороны прямоугольника');

 readln(a,b);

 S:=a*b;

 writeln('Площадь прямоугольника равна',S);

end.

Answer 3

Для нахождения площади прямоугольника с помощью формулы y1=(x+y)/3-t в языке программирования Pascal, вы можете использовать следующий код:

pascalCopy code
program CalculateRectangleArea;

var
  x, y, t: real;
  y1, area: real;

begin
  writeln('Введите значение x: ');
  readln(x);

  writeln('Введите значение y: ');
  readln(y);

  writeln('Введите значение t: ');
  readln(t);

  y1 := (x + y) / 3 - t;
  area := x * y1;

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

Эта программа сначала запрашивает значения x, y и t от пользователя, затем вычисляет y1 по заданной формуле и, наконец, находит площадь прямоугольника, умножая x на y1. Результат выводится на экран.