Безотлагательно,помогите,пожалуйста,очень надо..Дам 50 баллов!!Необходимо сделать рыбу в паскале ABC с

Безотлагательно,помогите,пожалуйста,очень надобно..
Дам 50 баллов!!
Необходимо сделать рыбу в паскале ABC с использованием команды OnVector
На подобии этого:
program pr1;
uses Drawman;
begin
Field(10,10);
ToPoint(*,*);
PenDown;
OnVector(*,*);
OnVector(*,*);
OnVector(*,*);
OnVector(*,*);
OnVector(*,*);
OnVector(*,*);
OnVector(*,*);
OnVector(*,*);
OnVector(*,*);
OnVector(*,*);
OnVector(*,*);
И так сколько угодно...
PenUp;
end.
Как то так ,только вместо звездочек(*) цифру...
И команду OnVector не обязательно столько сколько я начертила,а так чтоб рабы,вышла,я просто не знаю куда картину кидать ,чтоб показать..

Задать свой вопрос
Лебеженинова Антонина
Предупреждаю,то,что отвечать только ответ,а не абсурд
2 ответа
Uses Drawman;
begin
Field(10,10);
ToPoint(3,7);
PenDown;
OnVector(2,-2);
OnVector(-2,-2);
OnVector(-2,2);
OnVector(2,2);
OnVector(6,-3);
OnVector(0,2);
OnVector(-6,-3);
PenUp;
end.

У кого воображение есть, тот в этом увидит рыбу)))
Если тебе надобно убрать столько функций, пробуй использовать цикл
for либо while; а вместо * необходимо воткнуть вроде бы кординаты, точно не помню.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт