Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Аленка-красотка
0 / 0 / 0
Регистрация: 27.05.2014
Сообщений: 4
#1

Изобразить две тележки, движущихся навстречу друг другу

31.05.2014, 15:34. Просмотров 409. Ответов 3
Метки нет (Все метки)

Изобразить две тележки, движущихся навстречу друг другу.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
31.05.2014, 15:34
Ответы с готовыми решениями:

Вычисление времени встречи автомобилей, движущихся равноускоренно навстречу друг другу
: Составьте прорамму для вычисления времени t встречи автомобилей,движущихся...

Нарисовать перекресток, которым движутся навстречу друг другу две машины
Нарисовать перекресток, которым движутся навстречу друг другу две машины,...

Синхронное движение двух шариков навстречу друг другу
Суть задания такова, два шарика идут навстречу друг другу, сталкиваются и затем...

Определить время, через которое встретятся два пешехода, равномерно движущиеся навстречу друг другу
определить время, через которое встретятся два пешехода, которые равномерно...

Составить программу, которая органзовывает движение. Напрмер, две рыбы плывут параллельно друг другу на разной высоте.
Составить программу, которая органзовывает движение. Напрмер, одна рыба...

3
magirus
Почетный модератор
Эксперт по компьютерным сетямЭксперт Windows
27954 / 15674 / 959
Регистрация: 15.09.2009
Сообщений: 67,838
Записей в блоге: 78
31.05.2014, 15:38 #2
ну начинай, красотка...
0
Аленка-красотка
0 / 0 / 0
Регистрация: 27.05.2014
Сообщений: 4
31.05.2014, 15:49  [ТС] #3
Помогите, пожалуйста, написать программу
0
Puporev
Модератор
54341 / 41937 / 28974
Регистрация: 18.05.2008
Сообщений: 98,771
31.05.2014, 16:19 #4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
uses graphABC;
procedure telezka(x,y:integer);
begin
rectangle(x-30,y-15,x+30,y+15);
circle(x-20,y+25,10);
circle(x+20,y+25,10);
end;
var x1,x2,y:integer;
begin
x1:=30;
x2:=windowwidth-30;
y:=windowheight div 2;
telezka(x1,y);
telezka(x2,y);
lockdrawing;
repeat
sleep(100);
clearwindow;
x1:=x1+5;
x2:=x2-5;
telezka(x1,y);
telezka(x2,y);
redraw;
until x2-x1<=60;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.05.2014, 16:19

Изобразить два движущихся навстречу друг другу закрашенных шарика
Изобразить два движущихся навстречу друг другу закрашенных шарика. Движение...

Две рамки перемещаются по диагонале на встречу друг к другу к полному совпадению с интервалом 0.7 сек за шаг
Доброго времени суток, помогите решить данную задачу, буду очень благодарен....

Определить, угрожают ли ферзи друг другу
На шахматной доске стоят белый и черный ферзи (ферзь бьет по вертикали,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru