begin start := new Point(0, WindowHeight); stop := new Point(WindowWidth, 0); Brush.Color := clWhite; Pen.Color := clBlack;
for i := 1 to steps do begin x := round(start.X + i * (stop.X - start.X) / steps); y := round(start.Y + i * (stop.Y - start.Y) / steps); Circle(x, y, 10); sleep(50); ClearWindow(); end;
program cube; var a,s,v:real; begin; write('Введите длину ребра куба: '); read(a); v:=power(a,3); s:=6*sqr(a); write('Площадь равна ',s,', а объём равен ',v,'.'); end.
Второе задание:
program par; var a,b,c,s,v:real; begin; write('Введите стороны a,b,c: '); read(a,b,c); v:=a*b*c; s:=2*(a*b+b*c+a*c); write('Площадь равна ',s,', а объём равен ',v,'.'); end.
Третье и четвёртое задания:
program mult; var r,a,b,c:real; begin; write('Введите три числа: '); read(a,b,c); r:=a*b*c; write('Произведение чисел равно ',r); end.
GraphABC;
const
steps = 40;
var
start, stop: Point;
i, x, y: integer;
begin
start := new Point(0, WindowHeight);
stop := new Point(WindowWidth, 0);
Brush.Color := clWhite;
Pen.Color := clBlack;
for i := 1 to steps do
begin
x := round(start.X + i * (stop.X - start.X) / steps);
y := round(start.Y + i * (stop.Y - start.Y) / steps);
Circle(x, y, 10);
sleep(50);
ClearWindow();
end;
end.