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 - это коэффициенты искажения окружности по осям в изометрической проекции.
В Norton Commander меню вызывается клавишей F9, основное меню имеет две панели "Левую" и "Правую", в общей сложности они имеют 26 команд.
var
i, sum, m: integer;
begin
sum := 0;
for i := 1 to 8 do
begin
readln(m);
if m > 0 then
sum := sum + m;
end;
writeln('сумма положительных чисел= ', sum);
end.
2 Мб = 2048 кБ
2 Гб = ( Если Мегабит ) = 16384 ( Если Мегабайт ) = 2048
2 Tб = 2048 Гб