Форум программистов, компьютерный форум, киберфорум
Delphi
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
0 / 0 / 0
Регистрация: 12.10.2014
Сообщений: 5
1

Закрытие программы Delphi без видимых на то причин

12.10.2014, 19:12. Просмотров 987. Ответов 6
Метки нет (Все метки)

Уважаемые форумчане, возникла проблема. Написал программу (см. код ниже). После запуска спокойно ждет ввода данных и после закрывается. Если вводить небольшой интервал и допустимый шаг ( необходимо до 0.001 ) то на секунду программа выдает ошибку в окне и также закрывается. Компилятор претензий не имеет и не находит ошибки.
Delphi
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
program P413;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  Math;
 
function Rus(S:String):String;
var i:byte;
begin
Result:='';
for i:=1 to Length(S) do
case S[i] of
'А'..'п': Result:=Result+Chr(Ord(S[i])-64);
'р'..'я': Result:=Result+Chr(Ord(S[i])-16);
'Ё': Result:=Result+Chr(240);
'ё': Result:=Result+Chr(241);
else
Result:=Result+S[i];
end;
end;
 
 
var
 
Rs,Ymn1,Ymn2,Xmn1,Xmn2,Xn,Xk,YYY,YY,YYYY,YY1,YYY1,YYYY1,k,n,h:real;
 
 
begin
Write(rus('Введите Xn, Xk и Hx : '));Readln(Xn,Xk,h);
Writeln;
n:=Xn-h;
repeat
n:=n+h;
YYY:=Sqrt(1+9*Sqrt(sin(5*n*pi/180)))*sin(3*n*pi/180);
YYYY:=Sqrt(1+9*Sqrt(sin(5*(n+h)*pi/180)))*sin(3*(n+h)*pi/180);
YY:=Sqrt(1+9*Sqrt(sin(5*(n-h)*pi/180)))*sin(3*(n-h)*pi/180);
until (YYYY>YYY) and (YY>YYY);
 
Ymn1:=YYY;
Xmn1:=n;
Readln;ReadLn;
k:=Xk+h;
repeat
k:=k-h;
YYY1:=Sqrt(1+9*Sqrt(sin(5*(k-h)*pi/180)))*sin(3*(k-h)*pi/180);
YY1:=Sqrt(1+9*Sqrt(sin(5*(k)*pi/180)))*sin(3*(k)*pi/180);
YYYY1:=Sqrt(1+9*Sqrt(sin(5*(k+h)*pi/180)))*sin(3*(k+h)*pi/180);
until (YYYY1>YYY1) and (YY1>YYY1);
 
Ymn2:=YY1;
Xmn2:=k;
Rs:=k-n;
Writeln(rus('Координаты перв. минимума Xmn1 = '),Xmn1:6:3,'  Ymn1 = ',Ymn1:6:3);
Writeln;
Writeln(rus('Координаты посл. минимума Xmn2 = '),Xmn2:6:3,'  Ymn2 = ',Ymn2:6:3);
Writeln;
Writeln(rus('Расстояниен между точками Rs = '),Rs:6:3);
ReadLn(n);
 
end.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.10.2014, 19:12
Ответы с готовыми решениями:

Windows 7 тормозит без видимых причин и без загрузки процессора
Добрый день! Уже неделю бьюсь над проблемой: конфигурация моего компа не самая лучшая, но Семерку...

IIS останавливается без видимых причин
IIS останавливается без видимых причин. Перегрузка IIS не помогает. При попытке стартануть сайт...

Windows XP глючит без видимых причин
Виндовс долго загружается и работает медленно и рывками без видимых на то причин, системный блок...

Зависает ноутбук, без видимых причин
Здравствуйте. Есть ноутбук: ------------------ System Information ------------------ Time of...

6
Модератор
3473 / 2598 / 739
Регистрация: 19.09.2012
Сообщений: 7,964
12.10.2014, 19:48 2
ReadLn(); в конце добавь.
0
0 / 0 / 0
Регистрация: 12.10.2014
Сообщений: 5
12.10.2014, 20:31  [ТС] 3
Не помогло. Если поставить readln; перед первым repeat то он его выполняет, если после то закрывает.
0
2645 / 2268 / 278
Регистрация: 24.12.2010
Сообщений: 13,725
12.10.2014, 20:40 4
Лучший ответ Сообщение было отмечено 10100101 как решение

Решение

А как твоя программа, по-твоему, должна реагировать на, например, попытку извлечения кв.корня из отрицательного значения ?
1
Наблюдатель
457 / 192 / 33
Регистрация: 01.05.2012
Сообщений: 1,028
12.10.2014, 21:06 5
У меня нет дельфы под рукой, но ...
1 какие параметры ты вводишь?

2 кто тебе запрещает поставить в строке 32 точку остановки и дальше выполнить проверку под отладчиком
0
Модератор
3473 / 2598 / 739
Регистрация: 19.09.2012
Сообщений: 7,964
12.10.2014, 21:09 6
Цитата Сообщение от 10100101 Посмотреть сообщение
Не помогло
Значит программа вылетает с ошибкой.
0
0 / 0 / 0
Регистрация: 12.10.2014
Сообщений: 5
12.10.2014, 21:15  [ТС] 7
Спасибо огромное. Я неправильно переписал условие задачи.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.10.2014, 21:15

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

Сайт пессимизирован без видимых причин
У меня проблема. Сайт в личке. Доска объявлений. На Россию и Украину разные домены. С Яшей...

Просадки ФПС без видимых причин
Здравствуйте. Решил протестировать свою система в ГТА 5 пиратке в разрешении 1680х1050. Всё на...

Включается компьютер без видимых причин
стал включаться компьютер без видимых причин. то ночью, то утром, то днем по три раза! обратился к...

Отваливается RDP без видимых причин Windows 7
В общем, начала мучать меня проблема с RDP сервером на Windows 7.( периодически надо подключаться к...


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

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

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