Задача Pascal

[Meak]

С клавиатуры вводятся вещественные числа A, B, C, которые являются коэффициентами квадратного уравнения вида Ax2 + Bx + C = 0 (при A <> 0). Вывести на экран одно из сообщений: "Уравнение имеет два действительных корня", "Уравнение имеет один корень", "Уравнение не имеет действительных корней".

[Вадим Мошев]

d:=b*b - 4*a*c;
if d = 0
 then WhiteLn('1 корень')
 else
 	if d > 0
 		then
 			WhiteLn('2 корня')
 		else
 			WriteLn('Нет корней')

[type_Oleg]

Ну, и что тут непонятно?
Считайте дискриминант и в зависимости от его значения выводите сообщение.
Ветвление - с помощью case или if

[Вадим Мошев]

Можно ещё и так поотжигать:

d:=b*b - 4*a*c;
whilen(ord(d >=0) + ord(d > 0) + ' корней');

А автор даже спасибо не сказал...

[Poma][a]

d:=b*b - 4*a*c;
whilen(ord(d >=0) + ord(d > 0) + ' корней');

Красота
Кстати, whilen доставил

А автор даже спасибо не сказал...

Вадим Мошев
Регистрация: 12.11.2010

Ты за 3 года не привык?

Ветвление - с помощью case или if

case ? а он тут каким боком? Если к кейзу прикрутить D, то тут он нам не помощник..

[Вадим Мошев]

Роман

Кстати, whilen доставил

Ну, это гибрид while и WriteLn
Кстати, там ещё одна ошибочка есть, попробуй найти её.

Ты за 3 года не привык?

эммм... Привык, просто это остаточные явления.

[Poma][a]

writeln(ord(d >=0) + ord(d > 0), ' корней')

эммм... Привык, просто это остаточные явления.

Надежда умирает последней..

[Вадим Мошев]

Правильно. И с надеждой тоже всё верно.

[Meak]

Искренне благодарю за помощь.
просто не было возможности посмотреть ответы.
Еще раз спасибо!)

[Вадим Мошев]

Пожалуйста. Желаю удачи.