Разместить прямоугольники на поверхности

Категория: Basic
2011-12-19 16:26:33

Имеется прямоугольная поверхность размером А на В. в каком случае на поверхности можно разместить большее количество картонных прямоугольников с размерами C на D: при размещении их длинной стороной вдоль длинной или вдоль короткой стороны поверхности.

code: #basic
PRINT "vvedite razmery poverhnosti:"
INPUT "dlinnaya storona=", a
INPUT "korotkaya storona=", b
PRINT "vvedite razmery pryamougolnika:"
INPUT "dlinnaya storona=", c
INPUT "korotkaya storona=", d
kol1 = (a \ c) * (b \ d)
kol2 = (a \ d) * (b \ c)
IF kol1 > kol2 THEN PRINT "dlinnaya vdol dlinnoy, kol-vo= "; kol1 ELSE PRINT "korotkaya vdol dlinnoy, kol-vo="; kol2

автор: кот Бегемот

Поделиться:

Похожие статьи:

теги: студенты, qbasic, поверхность, прямоугольник