Прога для решения квадратных уравнений, Норм прога?:D Опции

[WERW()LF]

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


Сообщение отредактировано: WERW()LF - 29.06.2009 15:18

[Lapp]

Вот моя прога.

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

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

[WERW()LF]

Вот все исправил - ссылка на скачивание <ссылка на 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.

М

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

Сообщение отредактировано: Lapp - 29.06.2009 18:33

[Lapp]

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

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

[WERW()LF]

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

[Lapp]

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

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

М

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

[volvo]

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

Оцените плз норм для начала?

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