begin var R:=ReadInteger('R='); var h:=ReadInteger('h='); ClearWindow; var Ax:=Trunc(300-1.22*R); var Bx:=Trunc(300+1.22*R); var Ay:=Trunc(100+0.71*R); var By:=Trunc(100-0.71*R); DrawEllipse(Ax,Ay,Bx,By); Line(Ax,100,Ax,100+h); Line(Bx,100,Bx,100+h); DrawEllipse(Ax,Ay+h,Bx,By+h); FillEllipse(Ax,Ay+h-3,Bx,By+h-3); end.
Для примера введите числа 50 и 150. "Магические коэффициенты" 1.22 и 0.71 - это коэффициенты искажения окружности по осям в изометрической проекции.
begin window.Init(0, 0, 800, 600, clwhite); window.IsFixedSize := true; var r:=ReadInteger('R='); var h:=ReadInteger('h='); pen.Width := 4; DrawEllipse(100, 100, 100 + r, 100 + r - (r div 2)); line(100, (100 + r - (r div 2) + 100) div 2, 100, ((100 + r - (r div 2) + 100 + h + h) div 2)); line(100 + r, (100 + r - (r div 2) + 100) div 2, 100 + r, ((100 + r - (r div 2) + 100 + h + h) div 2)); DrawEllipse(100, 100 + h, 100 + r, 100 + r - (r div 2) + h); end.
Недоступная - Сообщение на незнакомом языке. Недостоверная - статья написанная на малоизученную тему Несвоевременная - информация, о которой ещё рано говорить. Например, пора начинать готовится к Новому Году( а зачем так рано сегодня только июнь). Неустойчивая - сегодня пятница 16 июня ( т.е. проще события, которые постоянно меняются. Например, дни недели, числа, месяцы и т.д.) Доступная - информация, которая доступна в данный момент времени. Достоверная - информация, поступившая из достоверного источника Своевременная - информация, которая пришла во время или ко времени. Устойчивая - теоремы, правила не поддающиеся опровержению. Например, сумма углов треугольника равна 180 градусам.
Вот значения при которых мы получим такой ответ: 9 10 11 12 13 14 15 16 17 18 19 20 Наибольшее = 20.
Прости, нашел я это глупым методом поставив цикл for k:0 to 1000000 и выводя все значения. Ибо нету времени разбираться... Не знаю так-же что такое longint , потом обязательно для себя рассмотрю что это :)
Вот пример того как я это нашел, хоть медот и тупой, но он работает: var k, i,max,m : longint; function f(n: longint): longint; begin f := n * n * n; end; function g(n: longint): longint; begin g := 3*n + 3; end; begin i := 1; for k:=0 to 1000000 do begin while f(i) < g(k) do i := i+1; if i=4 then writeln(k); end; end.
begin
var R:=ReadInteger('R=');
var h:=ReadInteger('h=');
ClearWindow;
var Ax:=Trunc(300-1.22*R);
var Bx:=Trunc(300+1.22*R);
var Ay:=Trunc(100+0.71*R);
var By:=Trunc(100-0.71*R);
DrawEllipse(Ax,Ay,Bx,By);
Line(Ax,100,Ax,100+h);
Line(Bx,100,Bx,100+h);
DrawEllipse(Ax,Ay+h,Bx,By+h);
FillEllipse(Ax,Ay+h-3,Bx,By+h-3);
end.
Для примера введите числа 50 и 150.
"Магические коэффициенты" 1.22 и 0.71 - это коэффициенты искажения окружности по осям в изометрической проекции.