Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

чертежник

.pas
Скачиваний:
10
Добавлен:
16.01.2016
Размер:
367 б
Скачать
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.
Соседние файлы в предмете Алгоритмические языки и основы программирования