Солнечная система (с ошибкой)

@Kibo · Регистрация: 25.05.2013

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

Друг принес курсач не могу разобраться выдаешь ошибку( 201 ),буду очень благодарен если поможете с ней разобраться. Буду рад любой помощи

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
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
Program Space;
  Uses Graph, Crt,Dos;
  const centrx=300;
        centry=160;
 
procedure vretrace;
   begin
   repeat until port[$3da] and 8=0;
   repeat until port[$3da] and 8>0;
   end;
 
procedure game;
var ZemX, ZemY,MercX,MercY,MarsX,MarsY,VenerX,VenerY,UpiterX,UpiterY,SatX,SatY:integer;
    VisualPage,i:Integer;
begin
repeat
SetVisualPage(1-VisualPage);
    VisualPage := VisualPage+1;
        SetActivePage(1 -VisualPage);
  vretrace;
    ClearDevice;
 
    For i := 1 to 100 do
      PutPixel(centrx+Round(70*cos((i+VisualPage/9)*Pi/50+0.7)),
      centry+Round(60*sin((i+VisualPage/9)*Pi/50-Pi/500)),1);
 
        For i := 1 to 100 do
      PutPixel(centrx+Round(90*cos((i+visualpage/7)*Pi/50+0.7)),
      centry+Round(83*sin((i+visualpage/7)*Pi/50-Pi/500)),2);
    
      For i := 1 to 100 do
      PutPixel(centrx+Round(110*cos((i+VisualPage/7)*Pi/50+0.65)),
      centry+Round(100*sin((i+VisualPage/7)*Pi/50-Pi/500)),3);
 
      For i := 1 to 100 do
      PutPixel(centrx+Round(131*cos((i+VisualPage/7)*Pi/50+0.65)),
      centry+Round(120*sin((i+VisualPage/7)*Pi/50-Pi/500)),4);
 
      For i := 1 to 100 do
      PutPixel(centrx+Round(173*cos((i+VisualPage/5)*Pi/50+0.70)),
      centry+Round(155*sin((i+VisualPage/5)*Pi/50-Pi/500)),5);
 
      For i := 1 to 100 do
      PutPixel(centrx+Round(212*cos((i+VisualPage/5)*Pi/50+0.65)),
      centry+Round(195*sin((i+VisualPage/5)*Pi/50-Pi/500)),6);
     {--------------------------------------------------------------}
      {mercury}
    MercX :=centrx-Round(70*cos((i-VisualPage/5)*Pi/50+0.7));
    MercY:=centry-Round(60*sin((i-VisualPage/5)*Pi/50-Pi/500));
    setcolor(lightgray);
    circle(MercX,MercY,4);
    SetFillStyle(1,LightGray);
    floodfill(MercX,MercY,lightgray);
    outtextxy(MercX-13,MercY-8,'1');
    {---------------------------------------------------------------}
    {venera}
    VenerX :=centrx-Round(90*cos((i-VisualPage/4)*Pi/50+0.7));
    VenerY:=centry-Round(83*sin((i-VisualPage/4)*Pi/50-Pi/500));
    setcolor(lightred);
    circle(VenerX,VenerY,7);
    SetFillStyle(1,Lightred);
    floodfill(VenerX,VenerY,lightred);
    outtextxy(VenerX-13,VenerY-10,'2');
  {-----------------------------------------------------------------}
     {zemlia}
    ZemX:=centrX+Round(110*cos((i-VisualPage/3)*Pi/50+0.65));
    ZemY:=centrY+Round(100*sin((i-1-VisualPage/3)*Pi/50-Pi/500));
    setcolor(lightblue);
    circle(ZemX,ZemY,7);
    SetFillStyle(1,Lightblue);
    setcolor(2);
    circle(ZemX,ZemY,7);
    SetFillStyle(1,2);
    floodfill(ZemX,ZemY,2);
 setcolor(blue);
    circle(zemx+1,zemy+1,3);
 SetFillStyle(1,blue);
    floodfill(ZemX,ZemY,blue);
    circle(zemx+3,zemy-3,2);
 SetFillStyle(1,blue);
    floodfill(ZemX+3,ZemY-3,blue);
    circle(zemx-4,zemy-4,2);
 SetFillStyle(1,blue);
    floodfill(ZemX-4,ZemY-4,blue);
 setcolor(2);
    outtextxy(ZemX-13,ZemY-10,'3');
  {-----------------------------------------------------------------}
    MarsX:=Centrx+Round(131*cos((i-VisualPage/2)*Pi/50+0.65));
    MarsY:=Centry+Round(120*sin((i-VisualPage/2)*Pi/50-Pi/500));
    setcolor(6);
    circle(MarsX,MarsY,4);
    SetFillStyle(1, 6);
    floodfill(MarsX,MarsY,6);
    outtextxy(Marsx-11,MarsY-1,'4');
{---------------------------------------------------------------------}
{Upiter}
    UpiterX:=Centrx+Round(173*cos((i-VisualPage/1)*Pi/50+0.7));
    UpiterY:=Centry+Round(155*sin((i-VisualPage/1)*Pi/50-Pi/500));
    setcolor(6);
    circle(UpiterX,UpiterY,12);
    SetFillStyle(1, 6);
    floodfill(UpiterX,UpiterY,6);
    outtextxy(Upiterx-15,UpiterY+10,'5');
{---------------------------------------------------------------------}
{Saturn}
    SatX:=Centrx+Round(212*cos((i-VisualPage/5)*Pi/50+0.65));
    SatY:=Centry+Round(195*sin((i-VisualPage/5)*Pi/50-Pi/500));
    setcolor(9);
    circle(SatX,SatY,12);
    setfillstyle(1,9);
    floodfill(SatX,SatY,9);
    setcolor(13);
    ellipse(Satx,Saty-1,29,20,28,5);
    outtextxy(Satx-22,SatY+10,'6');
    setcolor(9);
    line(satx-10,saty-6,satx+10,saty-6);
{---------------------------------------------------------------------}
  {solnce}
  setcolor(yellow);
  circle(300,160,30);
  SetFillStyle(1, yellow);
  floodfill(300,160,yellow);
  For i := 1 to 100 do
  line(300,160,centrx+Round(31*cos((i+VisualPage/2)*Pi/50)),centry+Round(25*sin((i+VisualPage/2)*Pi/50-Pi/500)));
 {----------------------------------------------------------------}
     OutTextXY(centrx+215,centry+20,'Planets');
     OutTextXY(centrx+200,centry+35,'1 - Mercury');
     OutTextXY(centrx+200,centry+50,'2 - Venera');
     OutTextXY(centrx+200,centry+65,'3 - Earth');
     OutTextXY(centrx+200,centry+80,'4 - Mars');
     OutTextXY(centrx+200,centry+95,'5 - Upiter');
     OutTextXY(centrx+200,centry+110,'6 - Saturn');
 
 
until keyPressed
 
end;
Procedure MainMenu;
Const menu:array[1..2] of string[20]=('New game!','Exit');
Var i,y1: integer;
    pos:byte;
    kb:char;
Begin
kb:=#1;
SetTextStyle(4,0,2);
pos:=1; y1:=centry-30;
for i:=1 to 2 do
begin
if i=pos then
begin
     setcolor(1);
     OutTextXY(230,y1,'New game!');
     end
else begin
          setcolor(15);
          OutTextXY(230,y1,'Exit');
     end;
 
y1:=y1+30;
end;
repeat
y1:=centry-30;
kb:=readkey;
case kb of
          #72:if pos>1 then
                           Dec(pos)
                           else pos:=3;
 
          #80:if pos<2 then
                           Inc(pos)
                           else pos:=1;
end;
 
for i:=1 to 2 do
begin
if i=pos then
begin
     setcolor(1);
     OutTextXY(230,y1,menu[i]);
  end
else begin
          setcolor(15);
          OutTextXY(230,y1,menu[i]);
      end;
y1:=y1+30;
end;
until kb=#13;
begin
     if pos=1 then begin  game;
                          cleardevice;
               end;
 
     if pos=2 then
                 halt;
              end;
 
end;
 
procedure grinit;
var GrMode, GrError,GrDriver:Integer;
 
begin
GrDriver := EGA; GrMode := EGAHi;
  InitGraph(GrDriver, GrMode, 'C:\TP\BGI');
  GrError := GraphResult;
end;
  Var
    ch:char;
 {   k:integer;}
 
BEGIN
Grinit;
MainMenu;
 
 
END.

@ZX Spectrum-128 · 01.10.2014, 21:23

Исправил только путь к bgi-драйверу на c:\bp\bgi

Новые блоги и статьи Все статьи Все блоги /
Исследование байт-кода Python: подключаем дизассемблер stackOverflow 19.02.2025 Многие знают, что Python - интерпретируемый язык, но мало кто задумывается о том, что происходит между написанием кода и его выполнением. На самом деле Python использует промежуточное представление. . .	Исследование байт-кода Python: компиляторы против интерпретаторов stackOverflow 19.02.2025 Понимание байт-кода Python - основополагающий аспект для разработчиков, стремящихся глубже понять внутренние механизмы языка и оптимизировать производительность своих программ. Байт-код представляет. . .	Comprehensions в Python - что это такое? stackOverflow 19.02.2025 Когда речь заходит о Python, одной из его самых красивых и мощных возможностей являются списковые включения или comprehensions. Это особые синтаксические конструкции, позволяющие создавать новые. . .	Python правда такой медленный? Развенчиваем миф о медлительности stackOverflow 19.02.2025 Когда речь заходит о выборе языка программирования для нового проекта, вопрос производительности часто становится одним из ключевых факторов. Python, несмотря на свою популярность и простоту. . .	Динамические формы в Flask stackOverflow 19.02.2025 Работа с веб-формами часто требует гибкости в отношении количества полей, которые пользователь может заполнить. Представьте ситуацию, когда вам нужно создать форму для ввода контактных данных, где у. . .
Обнаружение объектов в реальном времени на Raspberry Pi с OpenCV и Movidius NCS stackOverflow 19.02.2025 Технология обнаружения объектов в реальном времени становится все более востребованной в различных областях - от систем безопасности до автономных транспортных средств. Особый интерес представляет. . .	где chromium хранит пароли и как их обнулить в пожарном варианте jigi33 19.02.2025 Where is the chromium browser stores passwords for a sites где chromium-подобный браузер хранит пароли и как их обнулить в пожарном варианте (see screenshot)	howto get access to external internet resources with kinit jigi33 19.02.2025 Решение проблемы с необходимостью доп. авторизации по Керберос для автоотработки аутентификации на прокси-сервер (see screenshot)	Отслеживание автомобилей и определение скорости с OpenCV и Python на Raspberry Pi stackOverflow 19.02.2025 В этой статье мы рассмотрим создание системы отслеживания транспортных средств и определения их скорости с использованием компьютерного зрения и библиотеки OpenCV. Наше решение основано на принципе. . .	ENV (environments) valid paths in linux jigi33 19.02.2025 Environments paths (see screenshot)

@ZX Spectrum-128 6811 / 4568 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	01.10.2014, 21:23	2
	Исправил только путь к bgi-драйверу на c:\bp\bgi Миниатюры 1