Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Сортировка слиянием {динамич.структуры} http://www.cyberforum.ru/turbo-pascal/thread279038.html
Помогите написать сортировку слияниям для связного списка ) или накиньте какие то идеи ! для массива знаю но как списка нету понятия как ) помогите решить или накиньте идеи ,буду признателен !
Turbo Pascal курссовой 1)Вычислить Zk=3sin(xk+b);здесь k=1,8; массив х вводиться из файла f1. b меняеться от 0,2 шагом 0,1. Массив z записать в файл f2. 2). Вычислить Y=F(4,8)*Z(8); P=X(8)*W(8.2); Матрица F вводиться... http://www.cyberforum.ru/turbo-pascal/thread279037.html
Дано предложения.Разместить слова в нем в порядке возрастания числа букв в словах. Turbo Pascal
Дано предложения.Разместить слова в нем в порядке возрастания числа букв в словах.
Вычислить значение выражения Turbo Pascal
Добрый вечер. Помогите пожалуйста с задачкой. Даны действительные числа s, t. Вычислить g\left(1.2,s \right)+g\left(t,s \right)-g\left(2s-1,st \right). Где g\left(a,b...
Turbo Pascal Операторы цикла http://www.cyberforum.ru/turbo-pascal/thread279011.html
Пусть дано n вещественных чисел, которые вводятся по одному. Вычислите среднее арифметическое чисел, больших полусуммы первых двух Добавлено через 2 минуты (плиз помогите) подходящей темы я не...
Turbo Pascal Битовая длина длинного числа Добрый вечер. Подскажите,пожалуйста: Существует ли эфективный способ определения битовой длины длинного числа? Основание числа - 10..10^9. подробнее
русский
0 / 0 / 0
Регистрация: 21.02.2010
Сообщений: 16
0

Задать движение для изображения по траектории

18.04.2011, 22:07. Просмотров 671. Ответов 1
Метки (Все метки)

Необходимо задать движение для данного изображения..вправо по траектории
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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
uses graph;
var
   driver,mode:integer;
   i:string;
begin
     driver :=0;
     initgraph(driver,mode,'egavga.bgi');
 
     setbkcolor(3); 
     setcolor(8);
 
     setfillstyle(1,7); 
 
     fillellipse(300,280,50,70); 
     circle(300,165,50);
 
     line(302,165,304,180);
     line(304,180,300,179);
 
     arc(300,175,190,350,25);
     circle(280,160,6);
     circle(320,160,6);  
     fillellipse(270,90,20,45);
     fillellipse(330,90,20,45);
     setfillstyle(1,7);
 
     fillellipse(320,370,18,30); 
     fillellipse(280,370,18,30);
 
     fillellipse(370,240,30,18);     
     fillellipse(230,240,30,18);
 
     floodfill(200,130,8);
     floodfill(300,165,8);
     floodfill(360,165,8);
 
     setfillstyle(1,14);
     line(351,300,251,300);   
     floodfill(300,280,8);
     setfillstyle(1,0);
        setfillstyle(1,15);
       fillellipse(270,90,15,35);
     fillellipse(330,90,15,35);
     setfillstyle(1,1);
     floodfill(280,160,8);
     floodfill(320,160,8);
     floodfill(405,165,8);
     floodfill(195,165,8);
     line(0,400,700,400);
     setfillstyle(1,2);
     floodfill(20,450,8);
     outtextxy(285,150,'krolik');
     readln;
     readln(i);
     setfillstyle(1,14);
     floodfill(340,160,1);
     readln;
     closegraph;
end.


Вернуться к обсуждению:
Задать движение для изображения по траектории
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.04.2011, 22:07
Готовые ответы и решения:

Графика (движение по траектории)
Здравствуйте. Вот, опять обращаюсь к Вам за помощью. По Паскалю решила все...

Движение буквы по траектории
мне нужно написать программу движение траектории, надо чтобы на экран вывело...

движение по траектории (графика)
всем доброго времени суток. задание такое-надо сделать чтобы заданная фигура...

Движение объектов по заданной траектории
У меня вопрос по поводу графики в паскале. У меня не получается, чтобы объект...

Движение шарика по заданной траектории

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