Форум АНТИЧАТ - Показать сообщение отдельно - Студентам с лабораторными сюда

Цитата:

Сообщение от Garfi

Код:

Program Sqrt1; 
Var A, B, C, D, X1, X2 : Real; 
Begin 
Writeln ('Введите коэффициенты квадратного уравнения вида '); 
Readln (A,B,C); {имхо тупо!}
D:=B*B-4*A*C; 
if A<>0 then Begin
If D<0 Then Writeln ('Корней нет! ') 
Else 
Begin 
X1:=(-B+SQRT(D))/2/A; 
X2:=(-B-SQRT(D))/2/A; 
If X1<>X2 then
Writeln ('X1=', X1:8:3, ' X2=',X2:8:3)
else  Writeln (' Корень один ',X=',X2:8:3)
End;
End
else 
Writeln('Решений нет');
{в школе учили тут "readln;" ставить!}
End.

у тебя не могло это все компилится!
насчет того, чтобы выделиться, нах оно надо, у меня другого геморроя полно.

Во-первых:
Это не мой код!Мой код самый первый...(В этом не хватает ковычки вот здесь:

Цитата:

else Writeln (' Корень один ',X=',X2:8:3)

должно быть: 'X=')
Это все компилится, проверено 8 раз!
Во-вторых:
/2/a=/(2*a)
Но никак ни

Цитата:

X1:=(-B+SQRT(D))/2*A;

Эта запись неправильна, уравнения он у тебя будет решать не правильно!Потому что
Ты сначала делишь на 2 а потом результат умножаешь на "a" - это неверно!

Со знанием математики у тебя тоже фигово!
И прекрати спорить, признай свои ошибки, успокойся...и учи паскаль+математика, давай не будем превращать топик в мусорку!()

Readln (A,B,C); {имхо тупо!} - я же сказал что код простой, примитив....