Алгоритм движения следующий: пером красного цвета рисуем параметризованную окружность (изменяемые параметры — координаты центра), заливаем круг внутри окружности красным цветом. Делаем задержку. Очищаем экран в цвет фона (т.е. стираем шарик). За счет изменения параметра получаем необходимое смещение шарика.
Пример программы, где шарик движется по диагонали.
Uses GraphABC;
var i:integer;
procedure shar(a:integer);
var k,m:integer;
begin
SetPenColor(clRed);
Circle(a,a, 50);
FloodFill(a,a,clRed );
for k:=1 to 100000 do m:=m+1;
ClearWindow(clSilver );
end;
begin
SetWindowHeight(500);
SetWindowWidth(500);
ClearWindow(clSilver );
for i:=1 to 500 do shar(i);
end.
Задание 1 . Измените цвет шарика на зеленый, а цвет фона на желтый.
Задание 2. Измените программу таким образом, чтобы шарик двигался по горизонтали в центре окна.
Задание 3. Измените программу таким образом, чтобы шарик двигался по вертикали в центре окна.
Задание 4. Измените программу таким образом, чтобы шарик двигался по второй диагонали сверху вниз.
10 Простых Фокусов для Начинающих Иллюзионистов
2. Изменение размера шарика
Пример программы рисующей раздувающийся пузырь. Центр пузырика стоит на месте, увеличивается радиус.
Uses GraphABC;
var i:integer;
procedure shar(a:integer);
var k,m:integer;
begin
SetPenColor(clSkyBlue);
Circle(250,250, a);
FloodFill(250,250,clSilver);
for k:=1 to 100000 do m:=m+1;
ClearWindow(clSilver );
end;
begin
SetWindowHeight(500);
SetWindowWidth(500);
ClearWindow(clSilver );
for i:=1 to 250 do shar(i);
end.
Задание 1 . Измените цвет пузырика и цвет фона.
Задание 2 . Измените программу таким образом, чтобы пузырик увеличивался и двигался по главной диагонали.
Источник: przpascal12.blogspot.com
Задача для решения в Scratch 1.4
При изучении программирования в среде Scratch 1.4 дети любят решать задачи. Идея приведенной ниже задачи взята из классических игр. При решении этой задачи дети отрабатывают умения создавать переменные, изменять значения переменных, размещать объект на экране случайным образом, обрабатывать различные события.
Задача «Кот и шарики»
Сверху вниз падают разноцветные шарики. Кот, двигаясь под управлением клавиш-стрелок, поражает их специальным оружием, увеличивая количество жизней. Шары, касаясь Кота, уменьшают количество жизней. Игра прекращается, если жизней не осталось. В начале игры Коту дается три жизни.
Движение круга в PascalABC
Приобрести печатную литературу по доступным ценам: https://mybook.biz.ua/uchebnaya-literatura/. В том числе книги по программированию.
- Для хранения количества жизней нам понадобится переменная жизни. Создайте ее, установив настройку: Для всех объектов.
- Измените костюм Кота так, чтобы в лапах у него была палочка с красным наконечником. Именно прикосновение этого наконечника к шару будет увеличивать жизни Кота.
- Напишите скрипт движения кота по нажатию на стрелки клавиатуры. Можно использовать блок идти 10 шагов. Не забывайте устанавливать направление, куда должен повернуться Кот при нажатии на определенную клавишу-стрелку. Образец скрипта приведен ниже.
- Далее нужно создать новый спрайт и нарисовать шарик. Выберите любой цвет для шарика. Создайте скрипт движения шарика сверху вниз.
Внимательно изучите его. Для чего нужно условие касается цвета (красный) или касается цвета (рыжий)?
- Теперь нужно обработать события прикосновения к красному цвету (шарик лопнул, жизни добавились) и к рыжему цвету (шарик исчез, жизни убавились). Обратите внимание, что обработка этих событий с помощью конструкции если добавляется после цикла повторять до…
- Осталось написать код начала и окончания игры. Его нужно добавить в скрипт Кота.
- Добавьте еще шариков в игру, чтобы играть стало интереснее. Как это сделать проще?
- Можно ли сделать так, чтобы шарики двигались не только сверху вниз, но в любых направлениях? Как это сделать? Попробуйте изменить скрипт шарика так, чтобы шары двигались в различных направлениях.
Источник: infostarting.ru
Задание 6. 1. Написать программу, выводящую горизонтальный отрезок, движущийся снизу вверх
1. Написать программу, выводящую горизонтальный отрезок, движущийся снизу вверх.
Понравилась статья? Добавь ее в закладку (CTRL+D) и не забудь поделиться с друзьями:
Найдите 2 минуты и прочитайте про:
Физическое, химическое и биологическое загрязнение окружающей среды и их эколого-генетические последствия Загрязнение окружающей среды – привнесение новых, не характерных для нее физических, химических и биологических агентов.
Тестовый контроль по теме «Гигиена ЛПУ» 1. Генеральный план больницы решает вопросы: а) размещения больничного комплекса на территории больничного участка.
Проблема Север – Юг: общая характеристика Проблема Север – Юг связана с проводимым на эмпирическом уровне делением мира на богатые северные и бедные южные страны.
Вопрос 1. Основные идеи философии марксизма (продолжительность – 20 минут) Основоположниками марксизма.
Типы, виды и основные техники психологического консультирования В иерархии видов деятельности практического психолога консультативная деятельность имеет свою специфику.
Источник: studopedia.ru