Найти размеры участка

@roki1 · Регистрация: 04.03.2018

Author24 — интернет-сервис помощи студентам

По периметру участка прямоугольной формы, площадь которого 540 м2 устанавливают декоративную
ограду. Для двух противоположных сторон используют металлическую ограду, цена 1 м которой 30 грн.
Для двух других сторон - деревянную ограду по 50 грн. за 1м. Каковы должны быть размеры участка,
чтобы полная стоимость ограды была наименьшей?
Написать программу в паскаль.
Заранее спасибо!

@кот Бегемот · 02.06.2018, 23:03

У Вас не указан тип данных. В зависимости от типа решение могло быть разным. Для целых чисел прога выглядит так:

Pascal

var
a,b,min,a1,b1:integer;
begin
min:=maxint;
for a:=1 to 540 do
begin
b:=540 div a;
if (a*b=540) and (a*60+b*100<min) then begin
min:= a*60+b*100;
a1:=a;
b1:=b;
end;
end;
writeln(a1,' ',b1,' ',min);
end.

и результат 30*18

@roki1 0 / 0 / 0 Регистрация: 04.03.2018 Сообщений: 51
		1
	Найти размеры участка 02.06.2018, 13:14. Показов 1313. Ответов 1 Метки нет (Все метки) По периметру участка прямоугольной формы, площадь которого 540 м2 устанавливают декоративную ограду. Для двух противоположных сторон используют металлическую ограду, цена 1 м которой 30 грн. Для двух других сторон - деревянную ограду по 50 грн. за 1м. Каковы должны быть размеры участка, чтобы полная стоимость ограды была наименьшей? Написать программу в паскаль. Заранее спасибо! 0

	02.06.2018, 23:03

Найти размеры участка

Решение