Показать сообщение отдельно
  (#2 (permalink)) Старый
Винитарх Винитарх вне форума
Специалист
 
Аватар для Винитарх
 
Сообщений: 7,956
Сказал(а) спасибо: 2
Поблагодарили 303 раз(а) в 303 сообщениях
Регистрация: 01.03.2003
Адрес: Краснодар
По умолчанию 11.09.2018, 23:53

Как-то так:
Visual Prolog Код:
run() :-
        A = read(),
        B = read(),
        C = read(),
        D = B ^ 2 - 4 * A * C,
        (D > 0 and ! and X1 = (-B + D ^ 0.5) / (2 * A) and X2 = (-B - D ^ 0.5) / (2 * A) and writef("X1=%, X2=%", X1, X2) and clearInput
            and _ = readchar()
            or D = 0 and ! and X = -B / (2 * A) and writef("X=%", X) and clearInput and _ = readchar()
            or writef("X1=(-% + %i)/(2*%), ", B, -D ^ 0.5, A) and writef("X1=(-% - %i)/(2*%)", B, -D ^ 0.5, A) and clearInput
            and _ = readchar()).
Третье условие D<0 лишнее.
Почему не пользуетесь синтаксическим сахаром? Тогда писать и читать прогу легче.
Ответить с цитированием
Пользователь сказал cпасибо:
Dark Fox (12.09.2018)
Ads