Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 27.03.2017, 17:24   #1
NAN_13
 
Регистрация: 27.03.2017
Сообщений: 5
По умолчанию После ошибки окно консоли закрывается и я не могу посмотреть, что за ошибка.

Помогите. Пожалуйста.

Текст программы.

Var A,B,C,D,E,X1,X2:Single;
begin
WriteLn('Input A, B, C:');
ReadLn(A,B,C);
D:= Sqr(B)- 4*A*C;
if D>=0 then
begin
E:=2*A;
X1:= (-B+Sqrt(D))/E;
X2:= (-B-Sqrt(D))/E;
WriteLn('X1=', X1:6:1, ' X2=', X2:6:1)
end
else WriteLn('No result');
ReadLn;
end.

При вводе данный 0 1 3 и 1 1 3 консоль закрывается без указания ошибки. Как мне посмотреть эту ошибку?
NAN_13 вне форума Ответить с цитированием
Старый 27.03.2017, 18:53   #2
ZX Spectrum-128
Участник клуба
 
Регистрация: 05.11.2013
Сообщений: 1,602
По умолчанию

Код:
var
  A, B, C, D, E, X1, X2: Single;

begin
  WriteLn('Input A, B, C:');
  ReadLn(A, B, C);
  D := Sqr(B) - 4 * A * C;
  if D >= 0 then
  begin
    E := 2 * A;
    if e = 0 then
    begin
      WriteLn('Деление на 0');
      exit;
    end;
    X1 := (-B + Sqrt(D)) / E;
    X2 := (-B - Sqrt(D)) / E;
    WriteLn('X1=', X1:6:1, ' X2=', X2:6:1)
  end
  else 
    WriteLn('Нет действительных корней');
  ReadLn;
end.
ZX Spectrum-128 вне форума Ответить с цитированием
Старый 27.03.2017, 19:12   #3
NAN_13
 
Регистрация: 27.03.2017
Сообщений: 5
По умолчанию

Спасибо, но проблема ни в этом.

Я знаю, что должна быть ошибка. Т.е. у меня задача проанализировать ошибку. Но я не могу увидеть какая именно, так окно консоли, закрывается ничего не спрашивая.

Последний раз редактировалось NAN_13; 27.03.2017 в 23:20.
NAN_13 вне форума Ответить с цитированием
Старый 27.03.2017, 19:55   #4
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

try ... except
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 27.03.2017, 19:56   #5
p51x
Старожил
 
Регистрация: 15.02.2010
Сообщений: 15,695
По умолчанию

Ну вставьте ридлн перед екзитом... проблема в чем? Или вы не знаете, где у вас обработка ошибки и выход из программы?
p51x на форуме Ответить с цитированием
Старый 27.03.2017, 21:05   #6
NAN_13
 
Регистрация: 27.03.2017
Сообщений: 5
По умолчанию

Как узнать причину ошибки, номер и т.п. На сдадим компиляции в окне ошибок написано. А на стадии работы программы - нет . Как понять, что у меня введенные данные не соотв условию.

Последний раз редактировалось NAN_13; 27.03.2017 в 23:19.
NAN_13 вне форума Ответить с цитированием
Старый 27.03.2017, 21:58   #7
p51x
Старожил
 
Регистрация: 15.02.2010
Сообщений: 15,695
По умолчанию

ОДЗ в школе уже не проходят?
p51x на форуме Ответить с цитированием
Старый 27.03.2017, 23:16   #8
NAN_13
 
Регистрация: 27.03.2017
Сообщений: 5
По умолчанию

Ха-ха, очень смешно.

У меня не было информатики в школе с 6-ого класса (Это СС).

Как я понимаю, если делать в win XP то там всплывает окно с ошибкой, и видимо, там этот номер. Но у меня 10-ка и при этой ошибке, если запускать .exe, то появляется просто окно "Программа не работает". Ни номера, ни какой-либо доп. информации. В этом и есть вопрос. Можно ли где-то посмотреть код(номер) этой ошибки?

И буду очень признателен за рекомендацию какого нибудь учебника по паскалю в среде делфи, а то и меня теперь вообще ни чего не работает.

И кстати да, где обработка ошибок?

Последний раз редактировалось NAN_13; 28.03.2017 в 00:04.
NAN_13 вне форума Ответить с цитированием
Старый 28.03.2017, 12:13   #9
NAN_13
 
Регистрация: 27.03.2017
Сообщений: 5
По умолчанию

Вот я пень. Все разобрался. Всем спасибо. Это была моя первая прога.
NAN_13 вне форума Ответить с цитированием
Старый 29.03.2017, 15:08   #10
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,537
По умолчанию

Цитата:
Сообщение от p51x Посмотреть сообщение
ОДЗ в школе уже не проходят?
а что это такое - "ошибки домашних заданий", да ? я - точно не проходил, но это было давно, еще при сталине

Последний раз редактировалось digitalis; 29.03.2017 в 15:11. Причина: поправка
digitalis вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Что значит такая ошибка в консоли? Luara JavaScript, Ajax 5 21.05.2015 12:53
Не закрывается диалоговое окно Jopses JavaScript, Ajax 1 23.02.2013 14:23
Закрывается окно DOS zlo_999 Общие вопросы C/C++ 10 16.03.2011 01:30
Закрывается окно Никита_П Общие вопросы C/C++ 2 27.02.2010 17:22