Сделать программу в pascal.Пользователь вводит радиус окружности и стороны прямоугольника , программа в графическом режиме выводит нам получившийся прямоугольник (вписанный , описанный, или посторонний), и над ним надпись (окружность вписана/описана /посторонняя

1

Ответы и объяснения

2013-11-09T22:04:01+04:00
Будет работать только в Pascal.ABC. Желательно вводите величины от 30-50, так как всё измеряется в пикселях.

Program Zagacha;
Uses GraphABC;
Var r, a, b: Integer;
Begin 
WriteLn('Введите значение r'); 
ReadLn(r); 
WriteLn('Введите значение a'); 
ReadLn(a); 
WriteLn('Введите значение b'); 
ReadLn(b); 
If ((r + a + b) < 30) Or ((r + a + b) > 200) Then 
Begin 
r := 50;
a := 100;
b := 100;
End; 
DrawCircle(Round(Window.Width / 2), Round(Window.Height / 2), r);
DrawRectangle(Round((Window.Width - a) / 2), Round((Window.Height - b) / 2), Round((Window.Width + a) / 2) + 1, Round((Window.Height + b) / 2) + 1);  
If (a = b) And (a * b = 4 * r * r) Then 
TextOut(Round(Window.Width / 2 - 50), 10, 'Окружность вписана') 
Else If (a = b) And (a * b = 2 * r * r) Then 
TextOut(Round(Window.Width / 2 - 50), 10, 'Окружность описана') 
Else 
TextOut(Round(Window.Width / 2 - 50), 10, 'Окружность посторонняя')
End.
Так уже исправно)
Нужно на Фри паскале
Теперь, когда значение будет большим или меньшим допустимого, рисоваться будут фигуры среднего размера, но только типа "окружность вписана".
СДЕЛАЙТЕ ТАКУЮ ПРОГРАММУ ТОЛЬКО ВО FRee Pascal
Не имею такой возможности.