Срочно нужно начертить схему в паскаль, помогите пожалуйста
По дате
По рейтингу
Делаем процедуры для рисования окружности, прямоугольника и сложения прямоугольников. И ещё одну для простановки размеров.
потом
krug({параметры);
krug({параметры);
krug({параметры);
pram({параметры});
pram({параметры);
sum({параметры);
razmer({параметры});
В смысле, этот чертеж начертить? А нахрена, позвольте спросить? Это трахомундия ради трахомундии какая-то, куча скучнейшего линейного кода.
Если очень приспичило, начерти его на автокаде, экспортируй в LISP, и попроси нейронку полученный код перевести на паскаль.