Mail.ru
Почта
Мой Мир
Одноклассники
ВКонтакте
Игры
Знакомства
Новости
Календарь
Облако
Заметки
Все проекты
Все проекты
выход
Регистрация
Вход
Категории
Все вопросы проекта
Компьютеры, Интернет
Темы для взрослых
Авто, Мото
Красота и Здоровье
Товары и Услуги
Бизнес, Финансы
Наука, Техника, Языки
Философия, Непознанное
Города и Страны
Образование
Фотография, Видеосъемка
Гороскопы, Магия, Гадания
Общество, Политика, СМИ
Юридическая консультация
Досуг, Развлечения
Путешествия, Туризм
Юмор
Еда, Кулинария
Работа, Карьера
О проектах Mail.ru
Животные, Растения
Семья, Дом, Дети
Другое
Знакомства, Любовь, Отношения
Спорт
Золотой фонд
Искусство и Культура
Стиль, Мода, Звезды
Полный список
Спросить
Лидеры
Поиск по вопросам
Ответы Mail.ru
Домашние задания
Русский язык
Литература
Математика
Алгебра
Геометрия
Иностранные языки
Химия
Физика
Биология
История
Обществознание
География
Информатика
Экономика
Другие предметы
Вопросы - лидеры.
Что за слово зашифровано?
1 ставка
Лидеры категории
Лена-пена
Искусственный Интеллект
М.И.
Искусственный Интеллект
Y.Nine
Искусственный Интеллект
•••
Пожалуйста помогите, срочно надо сделать так, чтобы машинка двигалась и задать кодом любой объект, чтобы он повторялся
Вероника Акимова
Ученик
(181), на голосовании
7 лет назад
uses graphABC;
begin
setwindowsize(1000,700);
setpencolor(clblue);
setbrushcolor(clblue);
rectangle(0,0,1000,300);
setpencolor(clgreen);
setbrushcolor(clgreen);
rectangle(0,300,1000,500);
setpencolor(clsilver);
setbrushcolor(clsilver);
rectangle(100,450,350,180); {дом}
setpencolor(clwhite);
setbrushcolor(clwhite);
rectangle(150,400,220,350); {окна}
rectangle(230,400,300,350);
rectangle(230,330,300,280);
rectangle(150,330,220,280);
rectangle(230,270,300,220);
rectangle(150,270,220,220);
line(100,180,225,100);
line(225,100,350,180);
floodfill(225,120,clgray);
setpencolor(clyellow);
setbrushcolor(clyellow);
circle(600,100,50);
setbrushcolor(clBrown);
circle(380,370,10);{человек}
line(380,380,380,430);
line(380,395,400,375);{руки}
line(380,395,355,375);
line(380,430,365,445);{ноги}
line(380,430,395,445);
setpencolor(clBlack);
setbrushcolor(clBlack);
rectangle(430,445,440,320);
setpencolor(clblack);
line(390,320,480,320);
line(390,320,435,240);
line(480,320,435,240);
SetPenColor(clBlue);{машина}
SetBrushColor(clBlue);
Rectangle(510,430,550,390);
SetPenColor(clblack);
SetBrushColor(clblack);
Rectangle(550,450,690,350);
SetPenColor(clBlack);
SetBrushColor(clBrown);
Circle(550,450,30);
Circle(690,450,30);
end.
Голосование за лучший ответ
Александр Иванович
Ученик
(103)
7 лет назад
yes
Trundle LoveYou
Ученик
(181)
7 лет назад
Если то что ты скинул это варианты кода то используй rectangle для углов но двигать никак нельзя
Вероника Акимова
Ученик (181)
7 лет назад
а если сделать новый объект?
Максимка ))
Мыслитель
(9646)
7 лет назад
return в конце перед end, или что-то типа этого на том языке что ты написал.
Вероника Акимова
Ученик (181)
7 лет назад
а если сделать новый объект?
Максимка ))
Мыслитель (9646) создай другое тело программы
Похожие вопросы
begin
setwindowsize(1000,700);
setpencolor(clblue);
setbrushcolor(clblue);
rectangle(0,0,1000,300);
setpencolor(clgreen);
setbrushcolor(clgreen);
rectangle(0,300,1000,500);
setpencolor(clsilver);
setbrushcolor(clsilver);
rectangle(100,450,350,180); {дом}
setpencolor(clwhite);
setbrushcolor(clwhite);
rectangle(150,400,220,350); {окна}
rectangle(230,400,300,350);
rectangle(230,330,300,280);
rectangle(150,330,220,280);
rectangle(230,270,300,220);
rectangle(150,270,220,220);
line(100,180,225,100);
line(225,100,350,180);
floodfill(225,120,clgray);
setpencolor(clyellow);
setbrushcolor(clyellow);
circle(600,100,50);
setbrushcolor(clBrown);
circle(380,370,10);{человек}
line(380,380,380,430);
line(380,395,400,375);{руки}
line(380,395,355,375);
line(380,430,365,445);{ноги}
line(380,430,395,445);
setpencolor(clBlack);
setbrushcolor(clBlack);
rectangle(430,445,440,320);
setpencolor(clblack);
line(390,320,480,320);
line(390,320,435,240);
line(480,320,435,240);
SetPenColor(clBlue);{машина}
SetBrushColor(clBlue);
Rectangle(510,430,550,390);
SetPenColor(clblack);
SetBrushColor(clblack);
Rectangle(550,450,690,350);
SetPenColor(clBlack);
SetBrushColor(clBrown);
Circle(550,450,30);
Circle(690,450,30);
end.