Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.05.2016, 23:00   #11
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

думаю, что уже не актуально, но, просто прикола ради, помещаю решение задачи:
Код:
uses Drawman;


procedure Gazon(n: integer);
var j:integer;
begin
  ToPoint(1,n);
  PenDown;
  for j:=1 to n do begin
    OnVector(1,1);
    OnVector(1,-1);
    OnVector(-2,0);
    OnVector(2,0);
  end;
  PenUp;
end;

begin
  Task('examen2');
  for var i:=1 to 7 do 
    Gazon(i*2);
  ToPoint(0,0);
end.


p.s. как и программма, так и процедура Gazon может быть написана по разному.
вот ещё один из вариантов:
Код:
procedure Gazon(n: integer);
var j,k:integer;
begin
  for j:=1 to n do begin
    k:=j*2-1;
    ToPoint(k,n);
    PenDown;
    ToPoint(k+1,n+1);
    ToPoint(k+2,n);
    ToPoint(k,n);
    PenUp;
  end;  
end;
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Паскаль ABC. Программа на языке Паскаль. Helen1 Паскаль, Turbo Pascal, PascalABC.NET 6 13.01.2018 21:46
паскаль abc. Используя графические средства языка Паскаль на одной координатной сетке построить графики функций кириллюк Помощь студентам 5 15.09.2013 12:11
Как можно в Паскаль АВС (Паскаль-Турбо) вставлять в результаты печати программы графики, таблицы, схемы, набранные формулы, выраже IZOPGRAM Паскаль, Turbo Pascal, PascalABC.NET 0 11.06.2012 10:54
Паскаль, Борланд Паскаль-в чем разница??? Vremya-Dengy Паскаль, Turbo Pascal, PascalABC.NET 13 31.05.2011 18:23
паскаль и турбо паскаль Евгения Игоревна Помощь студентам 6 05.05.2011 14:31