Форум программистов, компьютерный форум CyberForum.ru

Lazarus

Войти
Регистрация
Восстановить пароль
 
symbian767
0 / 0 / 0
Регистрация: 21.10.2016
Сообщений: 9
#1

Дорожный знак "Пешеходный переход" с имитацией ходьбы "человечка" (Graph) - Lazarus

20.12.2016, 21:22. Просмотров 196. Ответов 2
Метки нет (Все метки)

Прошу подмоги с написанием программы. Надо написать программу для высвечивания дорожного знака «Пешеходный переход» с имитацией ходьбы "человечка". У меня совсем не получается, надеюсь на ваши великие умы!
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.12.2016, 21:22     Дорожный знак "Пешеходный переход" с имитацией ходьбы "человечка" (Graph)
Посмотрите здесь:

Из строки исключить все вхождения "работа", а после каждого пробела вставить слово "отдых" - Lazarus
Помогите пожалуйста. Из строки исключить все вхождения <работа>, а после каждого пробела вставить слово <отдых>.

Unit1.pas(248,50) Error: Incompatible types: got "recSurfaceList" expected "recBoxBeginEndY" - Lazarus
вот записи recSurfaceList = record IDsurface: word;//ID контейнера px1, py1, pz1, px2, py2, pz2, px3, py3, pz3: extended; ...

Вставить "Х" в клетку StringGrid по щелчку с условием выбора клетки или как сделать "Ход конем" - Lazarus
Занялся созданием игры "Ход конем" в Лазарусе. Поле - StringGrid. Что нужно: Щелкаем мышкой по клетке - в ней появляется "Х". От нее 8...

Error: Call by var for arg no. 3 has to match exactly: Got "_WIN32_FIND_DATAA" expected "WIN32_FIND_DATAA" - Lazarus
Lazarus отказывается компилировать данный код function GetFileNameFromLink( LinkFileName: string ): string; var ...

Fatal: Syntax error, "BEGIN" expected but "identifier BITMAP" found - Lazarus
Добрый день! пишу программу по методичке, выдает вот такие ошибки: unit1.pas(78,1) Fatal: Syntax error, "BEGIN" expected but "identifier...

Fatal: Syntax error, "BEGIN" expected but "end of file" found - Lazarus
Доброго времени суток! Вот простой код, который, по идее, находит корни квадратного уравнения. Выдает ошибку unit1.pas(69,0) Fatal:...

Error: Incompatible type for arg no. 1: Got "Extended", expected "QWord" - Lazarus
Задача: Написать калькулятор var Form1: TForm1; x1,x2,op:integer; implementation {$R *.lfm} { TForm1 }

Вычисление суммы мест, на которых в слове стоят буквы "в" и "п" - Lazarus
составьте программу вычисления суммы мест, на которых в слове стоят буквы «в» и «п». Lazarus

Ошибка: Incompatible types: got "Double" expected "LongInt" - Lazarus
Всем привет программирую на Лазрусе простая задача выдает ошибку unit1.pas(46,36) Hint: use DIV instead to get an integer result ...

Реализация дерева ключевых слов ("Бор", "Trie") - Lazarus
Помогите реализовать алгоритм дерева ключевых слов(бор) на lazarus


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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Joey
Джоуи Скалолазер
396 / 310 / 87
Регистрация: 05.05.2015
Сообщений: 1,811
Записей в блоге: 2
21.12.2016, 00:28     Дорожный знак "Пешеходный переход" с имитацией ходьбы "человечка" (Graph) #2
Цитата Сообщение от symbian767 Посмотреть сообщение
У меня совсем не получается
А что получается? Наброски есть?
symbian767
0 / 0 / 0
Регистрация: 21.10.2016
Сообщений: 9
22.12.2016, 22:22  [ТС]     Дорожный знак "Пешеходный переход" с имитацией ходьбы "человечка" (Graph) #3
Да,вот
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
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
program gr;
 
uses Graph, Crt;
 
const tr: array [1..3] of pointtype=
((X: 350; Y: 150),
(X: 150; Y: 550),
(X: 550; Y: 550));
 
d1: array [1..4] of pointtype=
((X: 200; Y: 520),
(X: 250; Y: 520),
(X: 300; Y: 450),
(X: 260; Y: 450));
 
d2: array [1..4] of pointtype=
((X: 450; Y: 520),
(X: 500; Y: 520),
(X: 440; Y: 450),
(X: 400; Y: 450));
 
d3: array [1..4] of pointtype=
((X: 325; Y: 520),
(X: 375; Y: 520),
(X: 370; Y: 450),
(X: 330; Y: 450));
 
//man
tors: array [1..4] of pointtype=
((X: 325; Y: 298),
(X: 375; Y: 298),
(X: 370; Y: 400),
(X: 330; Y: 400));
 
hand1: array [1..6] of pointtype=
((X: 330; Y: 300),
(X: 355; Y: 310),
(X: 315; Y: 350),
(X: 355; Y: 400),
(X: 340; Y: 410),
(X: 290; Y: 350));
 
hand2: array [1..3] of pointtype=
((X: 370; Y: 400),
(X: 385; Y: 390),
(X: 371; Y: 380));
 
leg1: array [1..6] of pointtype=
((X: 370; Y: 400),
(X: 330; Y: 400),
(X: 380; Y: 450),
(X: 385; Y: 510),
(X: 410; Y: 505),
(X: 400; Y: 440));
 
leg2: array [1..6] of pointtype=
((X: 330; Y: 400),
(X: 370; Y: 400),
(X: 350; Y: 450),
(X: 310; Y: 510),
(X: 290; Y: 495),
(X: 330; Y: 440));
 
 
type point=record
x, y: smallint;
end;
 
var grd, grh: smallint;
 
p: array [1..10] of point;
 
begin
grd:=detect;
initgraph(grd, grh, '');
 
setfillstyle(solidfill, blue);
bar(100, 100, 600, 600);
 
setfillstyle(solidfill, white);
fillpoly(3, tr);
 
setfillstyle(solidfill, black);
fillpoly(4, d1);
fillpoly(4, d2);
fillpoly(4, d3);
 
fillellipse(350, 275, 23, 23);
 
fillpoly(4, tors);
fillpoly(6, leg2);
fillpoly(6, leg1);
fillpoly(6, hand1);
fillpoly(3, hand2);
 
readln;
end.
Yandex
Объявления
22.12.2016, 22:22     Дорожный знак "Пешеходный переход" с имитацией ходьбы "человечка" (Graph)
Ответ Создать тему
Опции темы

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