Долгое компилирование программы

@Nachalnika · Регистрация: 25.11.2012

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

Проблема в том,что слишком долго компилируется программа.

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
program Figther;
uses Crt;
var
q,w,e,r,t,y,u,i,o,p,a,s,d,f,g,h,j,l :integer;
 
begin
r:=250;//Жизнь kot
w:=300;//Жизнь den
 
writeln('den выберите оружие(указывать цифру):');
writeln('1-меч');
writeln('2-двуручный топор');
writeln('3-лук');
writeln('4-драться на кулаках');
 
readln(o);//выбор оружия ниже
 
repeat
 randomize;
//Раздел оружия;
p:= random (9)+8;//меч den
u:= random (19)+2;//двуручный топор den
i:= random (3)+10;//лук den
q:= Random(7)+5; //урон кулака den
e:= random(5)+2 ;//воскрешение  den
t:= Random(8)+7; //урон кулака  kot
y:= random(4)+2 ;//воскрешение  kot
 if o=1 then l:=p;//урон den (выбираем себе оружие)
 if o=2 then l:=u;
 if o=3 then l:=i;
 if o=4 then l:=q;
 
 
writeln('player den');//Имя игрока 1
writeln('вы ударили на ',l);
writeln('вы воскресли на ',e);
 
writeln('Player kot');// Имя игрока 2
writeln('вы ударили на ',t);
writeln('вы воскресли на ',y);
     w:=w-t+e;//формула вычисления остатка хп den
     r:=r-l+y;//формула вычисления остатка хп kot
writeln('У игрока den стало',' ',w,' жизней');
writeln('У игрока kot стало ',r,' жизней');
readln;
   until (w<=0) or (r<=0);// Программа будет выполняться,пока кто-то из игроков не умрет.
 
 
 if  (r<=0) and (w>=0) then writeln('Игрок den победил!')
 else if (w<=0) and (r>=0) then writeln('Игрок kot победил!')
 else if (w<=0) and (r<=0) then writeln('Ничья!');
 
 
end.

Что же будет,после того как я добавлю оружие коту и еще игроков?Чувствую у меня она минуты две запускаться будет..
Прошу проанализировать программу и по возможности устранить задержку,возможно где-то begin end; поставить,возможно еще что то
Заранее благодарен

Добавлено через 19 минут
Извиняюсь,после второго запуска,все запустилось быстро...хотя после быстрых нажатий на enter (что бы раунд следующий начался),зависло.. после этого вышел с паскаля ,зашел ,запустил прогу пришлось подождать 5сек.. ну и было все хорошо уже дальше,даже после быстрых нажатий на интер.. скорее всего то было из-за моего ~~мощнейшего~~ пк

@Ded_Vasilij · 07.09.2013, 21:22

Сообщение от Nachalnika

if o=1 then l:=p;//урон den (выбираем себе оружие)
*if o=2 then l:=u;
*if o=3 then l:=i;
*if o=4 then l:=q;

вот это на case попробуй заменить

@Nachalnika · 07.09.2013, 21:44 **[ТС]**

Попробую,читал об нем давненько..уже и забыл как пользоваться,щас в книжке найду.
Еще одна проблемка маленькая возникла, может вы знаете как сделать так,что бы в окне CRT был скроллинг? раньше был..теперь исчез..

Добавлено через 16 минут
+ еще как сделать так, что бы в случае неправильной введенной цифры при выборе оружия,она завершалась?
примерно так

Pascal
1
2
3
4
5
6
7
case o of
 1:l:=p;//урон den (выбираем себе оружие)
 2:l:=u;
 3:l:=i;
 4:l:=q
 else writeln('такого оружия не существует',exit);//возможно сделал тупость тут,ну не судите строго..это для примера..
 end;

только что бы без ошибки..

@Ded_Vasilij · 07.09.2013, 21:50

Pascal
1
2
3
4
5
6
7
8
9
10
case o of
 1:l:=p;//урон den (выбираем себе оружие)
 2:l:=u;
 3:l:=i;
 4:l:=q
 else begin 
                 writeln('такого оружия не существует',exit);//возможно сделал тупость тут,ну не судите строго..это 
                 break;
        end;
 end;

@Nachalnika · 07.09.2013, 22:12 **[ТС]**

теперь все работает как надо,спасибо,только вы exit забыли стереть,ну ничего

@Ded_Vasilij · 07.09.2013, 22:14

Сообщение от Nachalnika

только вы exit забыли стереть

я на него и не смотрел

Добавлено через 41 секунду

Сообщение от Ded_Vasilij

writeln('такого оружия не существует',exit);

а до такого я бы и не додумался

@Nachalnika · 07.09.2013, 23:24 **[ТС]**

Щас возникла проблема в цикле..

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
repeat
 randomize;
//Раздел оружия;
p:= random (9)+8;//меч den
u:= random (19)+2;//двуручный топор den
i:= random (3)+10;//лук den
q:= Random(7)+9; //урон кулака den
e:= random(5)+2 ;//воскрешение  den
 
a:= Random(6)+10;//урон когтей света kot
s:= Random(3)+10;//урон булавы с шипами kot
d:= Random(11)+7;//урон рога справедливости kot
t:= Random(18)+4; //урон когтей тьмы kot
y:= random(4)+2 ;//воскрешение  kot
 
 case o of//урон den (выбираем себе оружие)
 1:l:=p;
 2:l:=u;
 3:l:=i;
 4:l:=q;
 else begin
                 writeln('такого оружия не существует');
             break;
 
 
        end;
     end;
 
  case g of //урон kot (выбираем себе оружие)
 1:g:=a;
 2:g:=s;
 3:g:=d;
 4:g:=t;
 else begin
                 writeln('такого оружия не существует');
         break;
        end;
 end;
 
 
writeln('player den');//Имя игрока 1
writeln('вы ударили на ',l);
writeln('вы воскресли на ',e);
 
writeln('Player kot');// Имя игрока 2
writeln('вы ударили на ',g);
writeln('вы воскресли на ',y);
     w:=w-g+e;//формула вычисления остатка хп den
     r:=r-l+y;//формула вычисления остатка хп kot
writeln('У игрока den стало',' ',w,' жизней');
writeln('У игрока kot стало ',r,' жизней');
readln;
   until (w<=0) or (r<=0);// Программа будет выполняться,пока кто-то из игроков не умрет.

Короче говоря при втором раунде пишет что такого оружия не существует и закрывает программу..
Оно читает второй раз почему-то строку с выбором оружия..
вот весь код если нужно:

Кликните здесь для просмотра всего текста

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
program Figther;
uses Crt;
var
q,w,e,r,t,y,u,i,o,p,a,s,d,f,g,h,j,l :integer;
 
begin
r:=300;//Жизнь kot
w:=300;//Жизнь den
 
writeln('den выберите оружие(указывать цифру):');
writeln('1-Меч');
writeln('2-Двуручный топор');
writeln('3-Лук');
writeln('4-Драться на кулаках');
 
 
 
readln(o);//выбор оружия ниже
writeln('Kot выберите оружие(указывать цифру):');
writeln('1-Коготь света');
writeln('2-Булава с шипами');
writeln('3-Рог cправедливости');
writeln('4-Когти тьмы');
readln(g);// выбор оружия ниже
 
 
 
repeat
 randomize;
//Раздел оружия;
p:= random (9)+8;//меч den
u:= random (19)+2;//двуручный топор den
i:= random (3)+10;//лук den
q:= Random(7)+9; //урон кулака den
e:= random(5)+2 ;//воскрешение  den
 
a:= Random(6)+10;//урон когтей света kot
s:= Random(3)+10;//урон булавы с шипами kot
d:= Random(11)+7;//урон рога справедливости kot
t:= Random(18)+4; //урон когтей тьмы kot
y:= random(4)+2 ;//воскрешение  kot
 
 case o of//урон den (выбираем себе оружие)
 1:l:=p;
 2:l:=u;
 3:l:=i;
 4:l:=q;
 else begin
                 writeln('такого оружия не существует');
          break;
 
 
        end;
     end;
 
  case g of //урон kot (выбираем себе оружие)
 1:g:=a;
 2:g:=s;
 3:g:=d;
 4:g:=t;
 else begin
                 writeln('такого оружия не существует');
         break;
        end;
 end;
 
 
writeln('player den');//Имя игрока 1
writeln('вы ударили на ',l);
writeln('вы воскресли на ',e);
 
writeln('Player kot');// Имя игрока 2
writeln('вы ударили на ',g);
writeln('вы воскресли на ',y);
     w:=w-g+e;//формула вычисления остатка хп den
     r:=r-l+y;//формула вычисления остатка хп kot
writeln('У игрока den стало',' ',w,' жизней');
writeln('У игрока kot стало ',r,' жизней');
readln;
   until (w<=0) or (r<=0);// Программа будет выполняться,пока кто-то из игроков не умрет.
 
 
 if  (r<=0) and (w>=0) then writeln('Игрок den победил!')
 else if (w<=0) and (r>=0) then writeln('Игрок kot победил!')
 else if (w<=0) and (r<=0) then writeln('Ничья!');
 
 
end.

Как исправить ошибку?

Новые блоги и статьи Все статьи Все блоги /
Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .
Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .

@Nachalnika 4 / 4 / 0 Регистрация: 25.11.2012 Сообщений: 80
	07.09.2013, 22:12 [ТС]
	теперь все работает как надо,спасибо,только вы exit забыли стереть,ну ничего 0