Пишем программу для расчёта периметра и площади прямоугольника в Pascal.
110 смотрели · 1 месяц назад
"AutoCAD для чайников: Прямоугольные истории"
Привет, будущие мастера прямых углов! Сегодня мы научимся рисовать прямоугольники в AutoCAD. Казалось бы, что тут сложного? Но поверьте, эта команда таит в себе немало секретов. Поехали! 1. Что такое команда ПРЯМОУГ? ПРЯМОУГ (или RECTANGLE по-английски) - это волшебная палочка AutoCAD для создания прямоугольников и квадратов. С её помощью вы сможете нарисовать всё: от листа бумаги до плана квартиры. 2. Как вызвать команду ПРЯМОУГ? Есть три способа: - Напечатайте ПРЯМОУГ в командной строке и нажмите...
Графика Pascal N-IDE
program draw_line; uses
Crt, Math, Graph; var
graphicsDriver, graphicsMode: Integer;
x1, y1, x2, y2, dx, dy: real;
u1, v1, u2, v2: real;
p, q, a: real;
b, d, c: real;
f, k, w, z, h, e: Real; begin
while (1 = 1) do
begin
k := 6.2831;
clearDevice();
graphicsDriver := Detect;
InitGraph(graphicsDriver, graphicsMode, '');
x1 := getMaxX div 2;
y1 := getMaxY div 2;
u1 := x1;
v1 := y1;
a := 0.5;
c := 0;
setColor(Yellow);
p := 0.0001 * trunc(10000 * Random());
q := 0.0001 * trunc(10000 * Random());
b := 0...