Добавил:
hunter__3211
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:чертежник
.pas uses Drawman;
begin
Task('cc14');
//Установка начального положения пера
PenUp;
ToPoint(10,1);
PenDown;
for var x:=11 downto 1 do
for var y:=1 to 10 do
begin
toPoint(x-y, y+1);
toPoint(x-2, y+1);
PenDown;
end;
// Возращение в начало координат
PenUp;
ToPoint(0,0);
end.
begin
Task('cc14');
//Установка начального положения пера
PenUp;
ToPoint(10,1);
PenDown;
for var x:=11 downto 1 do
for var y:=1 to 10 do
begin
toPoint(x-y, y+1);
toPoint(x-2, y+1);
PenDown;
end;
// Возращение в начало координат
PenUp;
ToPoint(0,0);
end.
Соседние файлы в предмете Алгоритмические языки и основы программирования