Версия для печати темы

Автор: WERW()LF 29.06.2009 15:12

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

Автор: Lapp 29.06.2009 15:18

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

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

Автор: WERW()LF 29.06.2009 15:19

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

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

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

Автор: WERW()LF 29.06.2009 15:58

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

Автор: Lapp 29.06.2009 18:36

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

М

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

Автор: volvo 29.06.2009 18:41

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

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