0 / 0 / 0
Регистрация: 07.04.2015
Сообщений: 3
1

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

07.04.2015, 20:20. Показов 570. Ответов 5
Метки нет (Все метки)

При запуске скомпиллированного 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.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.04.2015, 20:20
Ответы с готовыми решениями:

При копировании exe файла с другого компа на котором он работает, на моём при его запуске открывается cmd на несколько секунд и сам exe файл удаляется
Помогите очень надо!!! Дело в следующем: в автошколе на компах установлены программы для...

При запуске компьютера открывается cmd.exe и после этого открывается браузер с рекламной страницей
Установил 2 дня назад меч и магию 8, и патч к ней, скачал из большой группы вк, посвященной героям....

Не открывается файл при запуске программы через .exe
Программа должна открывать файл и, при запуске программы через ctrl+f5 (программирую в Visual...

При запуске системы открывается cmd.exe, затем браузер
Здравствуйте. При запуске системы(Windows 7) моментально открывается командная строка. затем...

5
49 / 1 / 3
Регистрация: 26.03.2015
Сообщений: 21
07.04.2015, 20:21 2
Не в тему: Не заметил код программы... Простите.
0
0 / 0 / 0
Регистрация: 07.04.2015
Сообщений: 3
07.04.2015, 20:27  [ТС] 3
Главное - подскажите в чем проблема)

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

Все что могу посоветовать, это переустанови Pascal
0
0 / 0 / 0
Регистрация: 07.04.2015
Сообщений: 3
07.04.2015, 20:46  [ТС] 5
Формулы нет -данные табличные. Когда вставил то что написано выше- в среде после ввода данных выдало - выдало Программа.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
49 / 1 / 3
Регистрация: 26.03.2015
Сообщений: 21
08.04.2015, 01:03 6
Нет, это не может быть связано с многоядерностью. Это скорей всего происходит из-за некорректной работы среды программирования или операционной системы. Больше сказать не могу так как Я не разбираюсь в этом, достаточно чтобы сказать в чем ошибка.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.04.2015, 01:03

Как присоединить к exe файлу произвольный файл, а при запуске exe файла открыть его
Есть файл, который представляет из себя набор других файлов ) и есть exe файл, который открывает...

При запуске Windows открывается окно cmd и ошибка gangnamgame.org, не запускается AutoLogger.exe, ccliner
Здравствуйте! Нужна помощь, перечитал кучу тем на форуме, но как понял все рекомендации...

Различное поведение программы при запуске из-под VisualStudio и exe файла при Debug параметре
Столкнулся с непонятной для меня вещью: при запуске этого кода using (var fs = new...

Ошибка CLR20r3 при запуске .exe файла
При запуске программы (MW3 FoV Changer) вылетает окно с ошибкой о прекращении работы. Описание:...


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

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

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