паскаль(графика)

@Александр94 · Регистрация: 10.05.2011

Студворк — интернет-сервис помощи студентам

подскажите пожалуста как сделать так чтобы машины стартовали только тогда когда будет нажата клавиша ENTER и можно ли какнибуть сделать чтобы машина на определённом месте остановилась
(никак не могу понять как сделать это)

вот код

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
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
uses
 crt,graph;  {podklu4aem moduli grafiki}
var
 a,b,f,m,c:integer; {obivliaem peremenie}
begin
 c:=detect;         {opredelenie tipa}
 initgraph(b,c,''); {zapuskaem grafi4eski reschim}
IF GRAPHRESULT<>0 then halt (1);
 setviewport(0,0,getmaxx,getmaxy,true);  {ystanavlivaem okno obzora}
 setbkcolor(lightgray); {svet fona}
 setcolor(brown); {svet linii dorogi}
 setlinestyle(0,0,3);
 
 line(1,121,700,121); {risuem dorogy}
 line(1,355,700,355); {risuem dorogy}
 setlinestyle(3,0,3);
 
 line(1,230,700,230); {risuem dorogy}
 line(1,246,700,246); {risuem dorogy}
 setfillstyle(1,green);
 bar(1,1,700,118); {fon za dorogoi}
 bar(1,700,700,357); {fon za dorogoi}
 
 setfillstyle(10,blue);
 bar(1,353,60,122); {start trasi}
 setfillstyle(10,blue);
 bar(660,123,570,354); {finisch trasi}
 
 a:=1;
 b:=1;
 f:=1;
 m:=1;
 
while a<=600 do begin
 
 setcolor(darkgray);
 
 
 setfillstyle(1,blue);
 bar(1+a,130,45+a,160); {kuzov maschini nomer1}
 setfillstyle(1,green);
 bar(45+a,137,65+a,160);{kabina maschini nomer1}
 setfillstyle(1,red);
 pieslice(15+a,160,0,360,7); {kolesa maschini nomer1}
 pieslice(55+a,160,0,360,7); {kolesa maschini nomer1}
 
 setcolor(darkgray);
 
 setfillstyle(1,red);
 bar(1+b,200,60+b,170);   {korpus maschini nomer2}
 setfillstyle(1,yellow);  {steklo maschini nomer2}
 bar(10 +b,185,50+b,175);
 setfillstyle(1,blue);
 pieslice(15+b,200,0,360,7);  {kolesa maschini nomer 2}
 pieslice(50+b,200,0,360,7);  {kolesa maschini nomer 2}
 
 setcolor(darkgray);
 setfillstyle(1,magenta);
 bar(1+f,280,60+f,263);  {korpus mashini nomer3}
 setfillstyle(1,yellow);
 pieslice(50+f,260,0,360,10); {kabina masini nomer3}
 setfillstyle(1,green);
 pieslice(12+f,282,0,360,10); {kolesa masini nomer3}
 pieslice(50+f,284,0,360,7);
 
 setcolor(darkgray);
 setfillstyle(1,blue);
 bar(1+m,340,60+m,320);
 bar(20+m,335,50+m,307);
 setfillstyle(1,yellow);
 bar(23+m,320,47+m,310);
 pieslice(10+m,342,0,360,7);
 pieslice(50+m,342,0,360,7);
 
 delay(50); {priastonovka}
 
 setfillstyle(1,lightgray);
 bar(1+a,130,45+a,160);
 bar(45+a,137,65+a,160);      {o4istka mesta raspoloschenia maschini}
 setfillstyle(1,lightgray);
 pieslice(15+a,160,0,360,7); {o4istka mesta raspoloschenia koles}
 pieslice(55+a,160,0,360,7); {o4istka mesta raspoloschenia lokes}
 
 
 
 setfillstyle(1,lightgray);
 bar(1+b,200,60+b,170);
 bar(10 +b,185,50+b,175);       {o4istim mesto respoloschenia korpesa}
 pieslice(15+b,200,0,360,7);  {o4istim mesto raspoloschenia koles}
 pieslice(50+b,200,0,360,7);  {o4istim mesto raspoloschenia koles}
 
 setfillstyle(1,lightgray);
 bar(1+f,280,60+f,263);
 pieslice(50+f,260,0,360,10);
 pieslice(12+f,282,0,360,10);
 pieslice(50+f,284,0,360,7);
 
 setfillstyle(1,lightgray);
 
 setcolor(darkgray);
 bar(1+m,340,60+m,320);
 bar(20+m,335,50+m,307);
 bar(23+m,320,47,310);
 pieslice(10+m,342,0,360,7);
 pieslice(50+m,342,0,360,7);
 
 
 a:=a+2;
 b:=b+3;
 f:=f+4;
 m:=m+5;
 
 end;
 
 readln;
 closegraph
 end.

@MaiLoJ · 10.05.2011, 22:05

попробуй цикл с перемещением взять в такой цикл.

Pascal
1
2
3
4
5
6
7
c:=readkey;
while c = #13 do
begin
.........
{цикл перемещения}
.........
end;

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .