Uses graphabc; 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 - это коэффициенты искажения окружности по осям в изометрической проекции.
alenchik19938823
24.01.2020
Uses graphabc; 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.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Зашифруйте слово рисунок с ключа мяч. и расшифровать слово занавески с ключа сон. всё сделать в форме таблицы, , умоляю!