Я только 2 часа назад начал изучать паскаль. Вот моя прога.
Оцените плз норм для начала?
Ps. Админы сор если открыл тему не в том разделе, но это все таки к математики относится:D

Круто. Если она, при том, что в ней ни одного оператора, еще и считает - это просто шедевр!

В разделе Математика программирования не должно быть совсем. Впрочем, его и нету пока)).

Вот все исправил - ссылка на скачивание <ссылка на EXE удалена>

var
a:integer ;
b:integer  ;
c:integer   ;
D:real       ;
x1:real       ;
x2:real        ;
y:integer       ;
begin
write('a=')       ;
readln(a)          ;
write('b=')         ;
readln(b)            ;
write('c=')           ;
readln©              ;
d:=b*b-4*a*c ;
d:=y ;
x1:=(-b+y)/2*a ;
x2:=(-b-y)/2*a  ;
writeln(D)       ;
writeln('x1=',x1) ;
writeln('x2=',x2)  ;
end.

М

Просьба заключать код в соответствующие тэги

Значит, так: либо ты выкладываешь код, либо иди со своими художествами к кому-нибудь еще. Ты пришел на форум программистов, а не дизайнеров.

Добавлено через 2 мин.
И, кстати, прочти Правила Форума.

Доволен?????

Несколько лучше. Но советом прочесть Правила ты, похоже, пренебрег..

М

Тема переносится в раздел Задачи

WERW()LF, хоть при каких-то входных данных у тебя будут получаться разные корни? Формулу нахождения корней квадратного уравнения вообще знаешь?

Для начала неплохо было бы проверить программу на работоспособность (т.е., прогнать ее на нескольких тестах, и сравнить полученный результат с ожидаемым). И только потом, если результаты правильны, спрашивать, нормально это написано или нет.