PROGRAM Figura1;

USES Crt, GraphABC; {Подключение модулей}

VAR r, a, S :REAL;

BEGIN

SetWindowSize(320, 320); {Размеры окна}

Write('Введите r (от 1 до 3 см)');

Read(r); {Ввод радиуса в сантиметрах}

SetPenWidth(3); {Толщина пера}

Line(80, 120, 80, 280); {Рисование отрезка AB}

Line(80, 280, 240, 280);{Рисование отрезка AD}

Line(240, 280, 240, 120);{Рисование отрезка CD}

Circle( 160, 120, Trunc( r * 20 ) ); {Рисование окружности с центром в точке O}

Arc(160, 120, 80, 0, 180); {Рисование дуги с центром в точке O}

a := 8; S := a * a + Pi * a * a / 8 - Pi * r * r; {Вычисление площади в кв. сантиметрах}

Write( 'S = ', S:2:2 ) {Форматный вывод площади}

END.

Задача 1

Выполните в тетради чертёж детали из примера 1. Подпишите экранные координаты точек A, B, C, D, O. Масштаб 1см = 20px.

Измените текст программы из примера 1 для решения следующей задачи:

• нарисовать чертёж детали с отверстием фиксированного радиуса 2,5 см;

• деталь закрасить светло-серым цветом;

• вычислить площадь детали;

• вывести вычисленное значение ПОД чертежом фигуры;

• вывести на экран свою фамилию и класс.

Файл сохраните с именем по образцу ФИ_Prg_2_1.pas.