Вопрос задан 12.11.2026 в 21:16. Предмет Информатика. Спрашивает Исмаилов Гриша.

Срочно,помогите,пожалуйста,очень надо..
Дам 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 не обязательно столько сколько я начертила,а так чтобы рабы,получилась,я просто не знаю куда картинку кидать ,чтобы показать..

Перейти к ответам

Ответы на вопрос

Отвечает Максюта Данёк.

Пример программы, которая рисует контур рыбы:

program pr1;
uses Drawman;
begin
  Field(20,20);
  ToPoint(3,10);
  PenDown;
  OnVector(4,-4);
  OnVector(5,0);
  OnVector(4,-3);
  OnVector(0,4);
  OnVector(3,-2);
  OnVector(0,10);
  OnVector(-3,-2);
  OnVector(0,4);
  OnVector(-4,-3);
  OnVector(-5,0);
  OnVector(-4,-4);
  PenUp;
end.

Команды рисуют тело рыбы и хвост. Начальная точка — \((3,10)\).

Похожие вопросы

Топ вопросов за вчера в категории Информатика

Последние заданные вопросы в категории Информатика

Задать вопрос