А теперь моя прога.

Код

program my; var a, b, c:real;      x1, x2, x:real;      D:real; begin writeln('Решение квадратного уравнения ax^+bx+c'); writeln('Введите a'); readln(a); writeln('Введите b'); readln(b); writeln('Введите с'); readln; D:=sqr(D)-4*a*c; if D>0 then          begin          x1:=(-b-sqrt(D))/(2*a);          x2:=(-b+sqrt(D))/(2*a);          writeln('x1=', x1);          writeln('x2=', x2); end; if D=0 then          begin          x:=-b/(2*a);          writeln('x=', x); end; if D<0 then writeln('Решений нет!'); readln; end.

Это сообщение отредактировал(а) Voventus - 8.12.2004, 06:44

В программе имеется ошибка. Если не найдешь сам - то это ошибка в генах.

PS. Ввод копирайта мне тоже понравился...

Это сообщение отредактировал(а) Akina - 7.12.2004, 14:56

Voventus, а в где вопрос?
Добавлено @ 14:58
Akina, в программе ни одна ошибка...

Цитата(Voventus @ 7.12.2004, 13:42)

D:=sqr(D)-4*a*c;

!!!!
Эта строчка сразу в двух местах - источник бед

Это сообщение отредактировал(а) Morpheus - 7.12.2004, 16:23

Цитата(Morpheus @ 7.12.2004, 16:22)

сразу в двух местах - источник бед

А почему в двух местах, помоему он просто опечатался в одном месте???
D ─> b

Zero
Возникает вопрос - он что, текст в окне темы тюкал? что-то я засомневался. Занчит, копировал. А раз так, и в тексте есть ошибки - то не проверял либо работу программы, либо выдаваемые ею результаты... скорее ляпа таки в генах...

Я уж не говорю о том что если 2 решения совпадают - их можно вывести один раз, ладно, но при наличии комплексных корней говорить что их нет вообще - сакс.

Ну и груда логических и алгоритмических ляпов. Что будет, если а=0? что будет, если b*b не помещается в real?

а интерфейс...

Akina! Да, действительно в окне тюкал тюкал!
Если a=0, то уравнение типа ax^+bx+c=0 - уже НЕ квадратное, а линенйное!!!!!
Я думаю, что никому не придет в голову решать уравнение типа 3x+3=0 через дискриминант.

ну-ну...

Цитата(Voventus @ 7.12.2004, 19:44)

Я думаю, что никому не придет в голову решать уравнение типа 3x+3=0 через дискриминант.

Больше никогда так не думай.

Например: ты сделал алгоритм чего-то и реализовал его программно. В данном случае решение квадратного уравнения. Кто-то берет твой алгоритм и превращает его в процедуру, заменив ввод исходных данных из командной строки на передачу параметров, и использует в своей программе. Все что надо соблюдено, имена-типы... однако в процессе работы часть передаваемых подпрограмме уравнений оказывается вырожденной, в результате у человека программа падает или того хуже - глючит. А кто ему в карман нагадил?

Не хочешь делать хорошо - не делай вообще. Или делай, но никому не рассказывай, пока не сделаешь хорошо. ИМХО.

Цитата(Morpheus @ 7.12.2004, 16:22)

сразу в двух местах - источник бед

Ещё раз, почему в двух местах, я что-то непонял???

Цитата(Akina @ 7.12.2004, 17:37)

но при наличии комплексных корней говорить что их нет вообще - сакс.

между прочем, в средней школе так и делают. Или ты учил комплексные числа в школе?

Цитата(Akina @ 7.12.2004, 17:37)

если b*b не помещается в real? а интерфейс...

Не грузи человека!:) Скорее всего, на этом примере они учат основы Паскаля - операции с действительными числами, условия. А ты интерфейс...

Цитата(Zero @ 7.12.2004, 18:21)

почему в двух местах

в одном, в одном. Я затупил. Забыл формулу дискриминанта. Переучил матанализ...

Цитата(Voventus @ 7.12.2004, 14:42)

-b+sqrt(D)/(2*a)

Если я не ошибаюсь, то должно быть так

Код

(-b+sqrt(D))/(2*a);

А вообще давно уже вручную не считал

Akina, РАЗ УЖ ВЫ НАСТАИВАЕТЕ, то тгда вот:

Код

program Quad; Var A,B,C,D: Double; S: String; Done: Boolean; begin Repeat WriteLn('Программа решения квадратного уравнения A*x^2+B*x+C=0'); Write('Введите A: '); ReadLn(A); Write('Введите B: '); ReadLn(B); Write('Введите C: '); ReadLn(C); WriteLn; WriteLn('Решение:'); If A=0 Then Begin If B=0 Then Begin If C=0 Then Begin WriteLn('x - любое число');   End Else Begin WriteLn('Корней нет'); End; End Else Begin WriteLn('x=',-C/B);   End; End Else Begin D:=B*B-4*A*C; If D=0 Then Begin WriteLn('x=',-B/2/A);   End Else Begin If D>0 Then Begin WriteLn('x1=',(-B+sqrt(D))/2/A);   WriteLn('x2=',(-B-sqrt(D))/2/A); End Else Begin WriteLn('x1=',-B/2/A,'+i*',sqrt(-d)/2/Abs(A));   WriteLn('x2=',-B/2/A,'-i*',sqrt(-d)/2/Abs(A)); End; End; End; WriteLn; Write('Решить ещё одно уравнение? (y/n) '); ReadLn(S); Done:=(S<>'y'); Until Done; end.

Это сообщение отредактировал(а) Voventus - 8.12.2004, 12:03

А я запетил ещё одну ошибку, коментарии в паскале через дробь не разрешены...

Zero да это чтобы вам было понятно!

Да мне то понятно, это я так к слову