Решение в ПАСКАЛЕ!!! фермер построил две теплицы одинаковой длины L (M). Первая теплица...

Question

Решение в ПАСКАЛЕ!!!

фермер построил две теплицы одинаковой длины L (M). Первая теплица имеет в поперечном сечении форму прямоугольника со сторонами размером А на В (метров), вторая - полукруг радиуса R (М). Определить, сколько метров полиэтиленовой плётки необходимо фермеру для укрытия всей поверхности теплиц (включая торцы).

Comments

через функцию? что такое L(M)??? а так в принципе щас сделаю)

---

А и Б вводятся с клавиатуры? или вычисляются по заданному М?

---

ой т.е. по заданному Л?

---

L (M) - это длина в метрах

---

задается эта длина или радиус???

---

напиши просто что вводится с клавы и все!)))

---

я не знаю

Answer 1

Program D1KPxx9;
uses crt;
const pi=pi;
var
a,b,l,r,sum:real;
begin
readln(a,b);
l:=(a+b)*4;
r:=b/2;
sum:=l;
l:=2*pi*r;
l:=l/2;
sum:=sum+l+2*r;
writeln('пленки надо  ',sum:0:2);
end.

вроде работает, вручную не пересчитывал, вводится с клавиатуры числа А и Б, где Б равно длине(обозначенной у тебя Л)-> р=Л/2 или т.к. Б=Л то р=Б/2 
все)))