Uses crt;var a:integer; S,R,r2,P:real;begin write ('Введите сторону a: '); readln (a); S:=((a*a)*sqrt(3))/4; R:=(a*sqrt(3))/3; P:=3*a; r2:=(a*sqrt(3)/6); writeln ('Площадь равностороннего треугольника: ',S:1:2); writeln ('Радиус описанной вокруг равностороннего треугольника окружности ',R:1:2); writeln ('<span>Радиус вписанной в равносторонний треугольник окружности</span>: ',r2:1:2); writeln ('Периметр равностороннего треугольника: ',p:1:2);end.
Нужен сам рисунок для высчитки координат (оригинал).
Операнды
line to
assign
Дай оригинал рисунка, тогда сделаеп))
а по сути ничего сложного. Строиш по рисунку х и у, высчитываеш координаты пересечения каждого круга с каждым направлением и все через if делаеш. Например:
read (a);
if (a = 1) then
line to (x,y);
как-то так))
Воркута- генадий
иркутск-александр
саратов-михаил
тюмень-николай
уфа-семён
рязань-денис
задача оформляится табличным способом в таблице ставят + -
3 вопроса.
пример
Первый вопрос четвертая или меньше? да
Вторая или меньше? нет.
Третья? нет.
Осталась четвертая.
<span>И так в любом направлении. </span>
запах это точно ....................................................................................................................................................................................................