uses GraphABC;
const space=10; // Зазор от кромки окна
pw=3; // Толщина линии
var MaxHeight, MaxSize, a, r1: integer; R, G, B: byte; c: color;
ch: char; ok: boolean;
begin
MaximizeWindow;
MaxHeight:=WindowHeight-2*space;
SetWindowTitle('Рисуем квадратик:)');
writeln('Введите интенсивность красной, зелёной и синей составляющих цвета (RGB):');
readln(R, G, B);
c:=rgb(R, G, B);
SetPenColor(c);
SetPenWidth(pw);
repeat
ClearWindow;
writeln('Введите способ определения квадрата');
writeln('(R - радиус описанной окружности; m - радиус вписанной окружности,');
writeln('d - диагональ квадрата; с - сторона квадрата):');
readln(ch);
ch:=upcase(ch);
until ch in ['R', 'M', 'D', 'C'];
repeat
ClearWindow;
ok:=false;
case ch of
'R':
begin
writeln('Введите радиус описанной окружности не более ', MaxHeight div 2);
read(r1);
a:=round(r1*2/sqrt(2));
if 2*r1<=MaxHeight then
ok:=true;
end;
'M':
begin
writeln('Введите радиус вписанной окружности не более ', MaxHeight div 2);
read(r1);
a:=2*r1;
if 2*r1<=MaxHeight then
ok:=true;
end;
'D':
begin
writeln('Введите диагональ квадрата не более ', round(MaxHeight*sqrt(2)));
read(r1);
a:=round(r1/sqrt(2));
if r1<=MaxHeight*sqrt(2) then
ok:=true;
end;
else
begin
writeln('Введите сторону квадрата не более ', MaxHeight);
read(r1);
a:=r1;
if r1<=MaxHeight then
ok:=true;
end;
end;
until ok;
ClearWindow;
Rectangle((WindowWidth - a) div 2, (WindowHeight - a) div 2, (WindowWidth + a) div 2, (WindowHeight + a) div 2);
if (ch='R') or (ch='M') then
DrawCircle(WindowWidth div 2,WindowHeight div 2, r1);
end.
uses GraphABC;
const space=10; // Зазор от кромки окна
pw=3; // Толщина линии
var MaxHeight, MaxSize, a, r1: integer; R, G, B: byte; c: color;
ch: char; ok: boolean;
begin
MaximizeWindow;
MaxHeight:=WindowHeight-2*space;
SetWindowTitle('Рисуем квадратик:)');
writeln('Введите интенсивность красной, зелёной и синей составляющих цвета (RGB):');
readln(R, G, B);
c:=rgb(R, G, B);
SetPenColor(c);
SetPenWidth(pw);
repeat
ClearWindow;
writeln('Введите способ определения квадрата');
writeln('(R - радиус описанной окружности; m - радиус вписанной окружности,');
writeln('d - диагональ квадрата; с - сторона квадрата):');
readln(ch);
ch:=upcase(ch);
until ch in ['R', 'M', 'D', 'C'];
repeat
ClearWindow;
ok:=false;
case ch of
'R':
begin
writeln('Введите радиус описанной окружности не более ', MaxHeight div 2);
read(r1);
a:=round(r1*2/sqrt(2));
if 2*r1<=MaxHeight then
ok:=true;
end;
'M':
begin
writeln('Введите радиус вписанной окружности не более ', MaxHeight div 2);
read(r1);
a:=2*r1;
if 2*r1<=MaxHeight then
ok:=true;
end;
'D':
begin
writeln('Введите диагональ квадрата не более ', round(MaxHeight*sqrt(2)));
read(r1);
a:=round(r1/sqrt(2));
if r1<=MaxHeight*sqrt(2) then
ok:=true;
end;
else
begin
writeln('Введите сторону квадрата не более ', MaxHeight);
read(r1);
a:=r1;
if r1<=MaxHeight then
ok:=true;
end;
end;
until ok;
ClearWindow;
Rectangle((WindowWidth - a) div 2, (WindowHeight - a) div 2, (WindowWidth + a) div 2, (WindowHeight + a) div 2);
if (ch='R') or (ch='M') then
DrawCircle(WindowWidth div 2,WindowHeight div 2, r1);
end.
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.