При запуске скомпиллированного exe файла он открывается дважды

@pl9jnik · Регистрация: 07.04.2015

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

При запуске скомпиллированного exe файла он открывается дважды. Программа простая - расчет значения по формуле в зависимости от трех введенных переменных. В самом паскале работает без проблем и считает верно. Но при запуске exe файла когда начинаешь вводить данные - окно ДОС закрывается и открывается еще одно такое же. Но когда вводишь данные во второе окно - оно просто закрывается не выдавая результата. Помогите пожалуйста.

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

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
var
a,b,c,O2,N2,Delta:real;
t:integer;
begin
write('Здравствуйте. Вас приветствует программа расчета допустимого значения расхождения Delta. Десятые и сотые следует вводить через точку.','.','  ');
write('Введите значение t (в целых градусов Цельсия)',' ');
read(t);
write('Введите значение объёмной концентрации O2(в процентах)',' ');
 
read(O2);
write('Введите значение объёмной концентрации N2(в процентах)',' ');
read(N2);
if t<18 then begin writeln('в таком холоде даже программа не считает'); exit; end;
if (t>=18) and (t<=24) then a:=0.13;
if (t>=25) and (t<=27) then a:=0.14;
if (t>=28) and (t<=30) then a:=0.15;
if (t>=31) and (t<=32) then a:=0.16;
if (t>=33) and (t<=34) then a:=0.17;
if (t>=35) and (t<=36) then a:=0.18;
if (t>=37) and (t<=39) then a:=0.19;
if (t>=40) and (t<=41) then a:=0.20;
if (t>=42) and (t<=44) then a:=0.21;
if t>44 then begin writeln('Эх! Только веничка не хватает...'); exit; end;
 
if (O2<0.0025)then b:=0.0004;
if (O2>=0.0025) and (O2<0.0035) then b:=0.0006;
if (O2>=0.0035) and (O2<0.0045) then b:=0.0007;
if (O2>=0.0045) and (O2<0.0055) then b:=0.0009;
if (O2>=0.0055) and (O2<0.0065) then b:=0.0011;
if (O2>=0.0065) and (O2<0.0075) then b:=0.0013;
if (O2>=0.0075) and (O2<0.0085) then b:=0.0015;
if (O2>=0.0085) and (O2<0.0095) then b:=0.0017;
if (O2>=0.0095) and (O2<0.011) then b:=0.00183;
if (O2>=0.011) and (O2<0.013) then b:=0.0022;
if (O2>=0.013) and (O2<0.015) then b:=0.0025;
if (O2>=0.015) and (O2<0.017) then b:=0.0029;
if (O2>=0.017) and (O2<0.019) then b:=0.0030;
if (O2>=0.019) and (O2<0.01999) then b:=0.00356;
if (O2>=0.01999) and (O2<0.0225) then b:=0.004;
if (O2>=0.0225) and (O2<0.0275) then b:=0.004;
if (O2>=0.0275) and (O2<0.0325) then b:=0.005;
if (O2>=0.0325) and (O2<0.0375) then b:=0.006;
if (O2>=0.0375) and (O2<0.045) then b:=0.006;
if (O2>=0.045) and (O2<0.055) then b:=0.007;
if (O2>=0.055) and (O2<0.065) then b:=0.009;
if (O2>=0.065) and (O2<0.075) then b:=0.010;
if (O2>=0.075) and (O2<0.085) then b:=0.011;
if (O2>=0.085) and (O2<0.095) then b:=0.013;
if (O2>=0.095) and (O2<0.12) then b:=0.0139;
if (O2>=0.12) and (O2<0.16) then b:=0.016;
if (O2>=0.16) and (O2<0.19) then b:=0.017;
if (O2>=0.19) and (O2<0.21) then b:=0.0181;
if (O2>=0.21) and (O2<0.23) then b:=0.020;
if (O2>=0.23) and (O2<0.25) then b:=0.022;
if (O2>=0.25) and (O2<0.27) then b:=0.024;
if (O2>=0.27) and (O2<0.29) then b:=0.026;
if (O2>=0.29) and (O2<0.325) then b:=0.028;
if (O2>=0.325) and (O2<0.375) then b:=0.03;
if (O2>=0.375) and (O2<0.425) then b:=0.04;
if (O2>=0.425) and (O2<0.475) then b:=0.04;
if (O2>=0.475) and (O2<0.55) then b:=0.05;
if (O2>=0.55) and (O2<0.65) then b:=0.06;
if (O2>=0.65) and (O2<0.75) then b:=0.07;
if (O2>=0.75) and (O2<0.85) then b:=0.08;
if (O2>=0.85) and (O2<0.95) then b:=0.096;
if (O2>=0.95) and (O2<1.1) then b:=0.10;
if (O2>=1.1) and (O2<1.5) then b:=0.12;
if (O2>=1.5) and (O2<1.9) then b:=0.18;
if (O2>=1.9) and (O2<2.05) then b:=0.20;
if (O2>=2.05) and (O2<2.15) then b:=0.21;
if (O2>=2.15) and (O2<2.3) then b:=0.22;
if (O2>=2.3) and (O2<2.5) then b:=0.23;
if (O2>=2.5) and (O2<2.7) then b:=0.25;
if (O2>=2.7) and (O2<2.9) then b:=0.27;
if (O2>=2.9) and (O2<3.25) then b:=0.28;
if (O2>=3.25) and (O2<3.75) then b:=0.30;
if (O2>=3.75) and (O2<5) then b:=0.40;
if (O2>=5) and (O2<7) then b:=0.53;
if (O2>=7) and (O2<9) then b:=0.70;
if (O2>=9) and (O2<15.5) then b:=0.76;
if (O2>=21)then b:=0.88;
 
if (N2<0.11) then c:=0.015;
if (N2>=0.11)and (N2<0.13) then c:=0.018;
if (N2>=0.13)and (N2<0.15) then c:=0.021;
if (N2>=0.15)and (N2<0.17) then c:=0.024;
if (N2>=0.17)and (N2<0.19) then c:=0.027;
if (N2>=0.19)and (N2<0.21) then c:=0.03;
if (N2>=0.21)and (N2<0.23) then c:=0.03;
if (N2>=0.23)and (N2<0.25) then c:=0.04;
if (N2>=0.25)and (N2<0.27) then c:=0.04;
if (N2>=0.27)and (N2<0.29) then c:=0.04;
if (N2>=0.29)and (N2<0.325) then c:=0.05;
if (N2>=0.325)and (N2<0.375) then c:=0.05;
if (N2>=0.375)and (N2<0.425) then c:=0.06;
if (N2>=0.425)and (N2<0.475) then c:=0.07;
if (N2>=0.475)and (N2<0.525) then c:=0.08;
if (N2>=0.525)and (N2<0.575) then c:=0.08;
if (N2>=0.575)and (N2<0.625) then c:=0.09;
if (N2>=0.625)and (N2<0.675) then c:=0.10;
if (N2>=0.675)and (N2<0.725) then c:=0.11;
if (N2>=0.725)and (N2<0.775) then c:=0.12;
if (N2>=0.775)and (N2<0.825) then c:=0.12;
if (N2>=0.825)and (N2<0.875) then c:=0.13;
if (N2>=0.875)and (N2<0.925) then c:=0.14;
if (N2>=0.925)and (N2<0.975) then c:=0.15;
if (N2>=0.975)and (N2<1.1) then c:=0.15;
if (N2>=1.1)and (N2<1.3) then c:=0.18;
if (N2>=1.3)and (N2<1.5) then c:=0.22;
if (N2>=1.5)and (N2<1.65) then c:=0.25;
if (N2>=1.65)and (N2<1.699) then c:=0.262;
if (N2>=1.699)and (N2<1.75) then c:=0.26;
if (N2>=1.75)and (N2<1.85) then c:=0.27;
if (N2>=1.85)and (N2<1.95) then c:=0.28;
if (N2>=1.95)and (N2<2.25) then c:=0.30;
if (N2>=2.25)and (N2<2.75) then c:=0.40;
if (N2>=2.75)and (N2<3.25) then c:=0.40;
if (N2>=3.25)and (N2<3.75) then c:=0.50;
if (N2>=3.75)and (N2<4.25) then c:=0.60;
if (N2>=4.25)and (N2<4.75) then c:=0.70;
if (N2>=4.75)and (N2<5.25) then c:=0.70;
if (N2>=5.25)and (N2<5.75) then c:=0.80;
if (N2>=5.75)and (N2<6.25) then c:=0.90;
if (N2>=6.25)and (N2<6.75) then c:=0.90;
if (N2>=6.75)and (N2<7.25) then c:=1;
if (N2>=7.25)and (N2<7.75) then c:=1.1;
if (N2>=7.75)and (N2<8.25) then c:=1.1;
if (N2>=8.25)and (N2<8.75) then c:=1.2;
if (N2>=8.75)and (N2<9.25) then c:=1.3;
if (N2>=9.25)and (N2<9.75) then c:=1.4;
if (N2>=9.75)and (N2<10.5) then c:=1.4;
if (N2>=10.5)and (N2<10.999) then c:=1.56;
if (N2>=10.999)and (N2<11.5) then c:=1.60;
if (N2>=11.5)and (N2<13) then c:=1.70;
if (N2>=13)and (N2<15) then c:=1.90;
if (N2>=15)and (N2<16.25) then c:=2.20;
if (N2>=16.25)and (N2<17.25) then c:=2.22;
if (N2>=17.25)and (N2<19) then c:=2.30;
if (N2>=19)and (N2<25) then c:=2.30;
if (N2>=25)and (N2<54) then c:=2.70;
if (N2>=54) then c:=4.29;
 
 
Delta:=1.1*(sqrt(exp(ln(a)*2)+exp(ln(b)*2)+exp(ln(c)*2)));
write('Delta = ',' ');
write(Delta);
readln;
end.

@Ili4 · 07.04.2015, 20:21

Не в тему: Не заметил код программы... Простите.

@pl9jnik · 07.04.2015, 20:27 **[ТС]**

Главное - подскажите в чем проблема)

Добавлено через 2 минуты
И насколько я понял проблема не конкретно с этой программой. Потому, что с другой простейшей - то же самое происходит

@Ili4 · 07.04.2015, 20:35

А формулы нет для вывода значений переменных b и c?
Попробуйте добавить в конце перед последним End-ом следующее:
system.Console.ReadKey;
У меня все работает нормально и в среде и exe

Все что могу посоветовать, это переустанови Pascal

@pl9jnik · 07.04.2015, 20:46 **[ТС]**

Формулы нет -данные табличные. Когда вставил то что написано выше- в среде после ввода данных выдало - выдало Программа.pas(148) : Ошибка времени выполнения: Cannot read keys when either application does not have a console or when console input has been redirected from a file. Try Console.Read.
Но exe файл теперь после ввода данных секунд 8 показывает результат, закрывается, открывается второй раз и после ввода данных второй раз результат горит до нажатия клавиши.
Может ли это быть связано с двумя ядрами?

@Ili4 · 08.04.2015, 01:03

Нет, это не может быть связано с многоядерностью. Это скорей всего происходит из-за некорректной работы среды программирования или операционной системы. Больше сказать не могу так как Я не разбираюсь в этом, достаточно чтобы сказать в чем ошибка.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@Ili4 49 / 1 / 3 Регистрация: 26.03.2015 Сообщений: 21
	07.04.2015, 20:21
	Не в тему: Не заметил код программы... Простите. 0

@pl9jnik 0 / 0 / 0 Регистрация: 07.04.2015 Сообщений: 3
	07.04.2015, 20:27 [ТС]
	Главное - подскажите в чем проблема) Добавлено через 2 минуты И насколько я понял проблема не конкретно с этой программой. Потому, что с другой простейшей - то же самое происходит 0

@Ili4 49 / 1 / 3 Регистрация: 26.03.2015 Сообщений: 21
	07.04.2015, 20:35
	А формулы нет для вывода значений переменных b и c? Попробуйте добавить в конце перед последним End-ом следующее: system.Console.ReadKey; У меня все работает нормально и в среде и exe Все что могу посоветовать, это переустанови Pascal 0

@pl9jnik 0 / 0 / 0 Регистрация: 07.04.2015 Сообщений: 3
	07.04.2015, 20:46 [ТС]
	Формулы нет -данные табличные. Когда вставил то что написано выше- в среде после ввода данных выдало - выдало Программа.pas(148) : Ошибка времени выполнения: Cannot read keys when either application does not have a console or when console input has been redirected from a file. Try Console.Read. Но exe файл теперь после ввода данных секунд 8 показывает результат, закрывается, открывается второй раз и после ввода данных второй раз результат горит до нажатия клавиши. Может ли это быть связано с двумя ядрами? 0

@Ili4 49 / 1 / 3 Регистрация: 26.03.2015 Сообщений: 21
	08.04.2015, 01:03
	Нет, это не может быть связано с многоядерностью. Это скорей всего происходит из-за некорректной работы среды программирования или операционной системы. Больше сказать не могу так как Я не разбираюсь в этом, достаточно чтобы сказать в чем ошибка. 0