Задать вопрос
13 января, 09:59

Как нарисовать цилиндр в паскале

при том

Что ввод высоты и радиуса окружности вводится с клавиатуры (обязательно!)

+2
Ответы (2)
  1. 13 января, 10:42
    0
    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 - это коэффициенты искажения окружности по осям в изометрической проекции.
  2. 13 января, 12:36
    0
    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.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Как нарисовать цилиндр в паскале при том Что ввод высоты и радиуса окружности вводится с клавиатуры (обязательно!) ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы