Предмет: Информатика, автор: василий0086

Помогите пожалуйста написать анимацию(программу) на Паскале где человечек бросает баскетбольный мяч в кольцо.

Ответы

Автор ответа: УченикКомара
0
Данная программа выполнена для PascalABC.net, немного кривая, но полностью рабочая. 


uses GraphABC;
var i:integer;

Procedure Boy(z,w:integer);
begin
rectangle(z-20,w-30,z+20,w+40);
MoveTo(z-20,w-20);
LineTo(z-35,w+15);
LineTo(z-20,w);
LineTo(z-20,w-20);
Floodfill(z-25,w,clBrown);
MoveTo(z+20,w-20);
LineTo(z+35,w+15);
LineTo(z+20,w);
LineTo(z+20,w-20);
Floodfill(z+25,w,clBrown);
Floodfill(z,w,clBlue);
MoveTo(z-10,w+40);
LineTo(z-10,w+70);
LineTo(z-3,w+70);
LineTo(z-3,w+40);
LineTo(z+3,w+40);
LineTo(z+3,w+70);
LineTo(z+10,w+70);
LineTo(z+10,w+40);
LineTo(z-10,w+40);
Floodfill(z-5,w+65,clBrown);
Floodfill(z+5,w+65,clBrown);
Circle(z,w-40,20);
Floodfill(z,w-40,clBrown);
end;

Procedure Ball(x,y:integer);
begin
circle(x,y,15);
floodfill(x,y,clRed);
end;

begin
lockdrawing;
for i:=1 to 20 do begin
boy(100,200);
Ball(100+i*5,200-i*5);
ellipse(200,115,250,140);
RedRaw;
ClearWindow(clWhite);
end;
for i:=1 to 5 do begin
boy(100,200);
Ball(200+i*5,100+i*5);
ellipse(200,115,250,140);
RedRaw;
ClearWindow(clWhite);
end;
for i:=1 to 25 do begin
boy(100,200);
Ball(225,125+i*5);
ellipse(200,115,250,140);
RedRaw;
ClearWindow(clWhite);
end;
end.
Автор ответа: УченикКомара
0
Программа писать в Паскале, поэтому после копирования имеет такой вид.
Автор ответа: УченикКомара
0
Исправлено. Теперь программа имеет нормальный вид.
Автор ответа: василий0086
0
Выдает вот такую ошибку Ожидалось '.' почему?
Автор ответа: василий0086
0
а нет, все в порядке
Похожие вопросы
Предмет: Физика, автор: vv056997
Переведите скорость 54 км/ч в СИ

54 км/ч

0,015 км/с

15 м/с

900 м/с

Вопрос №2 ?
2 балла
Какое расстояние проползёт улитка за полтора часа, двигаясь со скоростью 20 см/мин.?

600 см

30 см

1,8 км

18 м

Вопрос №3 ?
2 балла
Пешеход прошел 1 метр за 1 секунду, следующие 2 метра - за 2 секунды, следующие 3 метра - за 3 секунды и т.д до 10. Последние 10 метров, соответственно, он прошел за 10 секунд. Найдите среднюю скорость пешехода.

5 м/с

10 м/с

1 м/с

5,5 м/с

Вопрос №4 ?
3 балла
Задан график зависимости скорости движения тела от времени. Найдите расстояние (в метрах), которое преодолело тело со 2 до 6 секунды движения.



Ответ

Вопрос №5 ?
4 балла
Из одного пункта в другой мотоциклист двигался со скоростью 60 км/ч, обратный путь им был пройден со скоростью 10 м/с. Определите среднюю скорость мотоциклиста (в км/ч) за все время движения.

В поле «Ответ» необходимо вписать значение в виде числа, без единиц измерения, градусов и тому подобное. Если ответ необходимо записать в виде десятичной дроби, то целую и дробную часть необходимо отделять запятой. Например: 15,5. Если в ответе получено отрицательное число, то в поле «Ответ» следует поставить «-», а после него, без пробелов, полученное значение. Например: -15.
Предмет: Математика, автор: нико1243