Вопрос #11574

 #  

 #  

 #  

Оно?
Program Kvadrat;
uses crt;
var
A,B,C: real;
X1, X2: real;
D:real;
begin
clrscr;
writeln ('Wedite koeficient A,B,C');
readln (A,B,C);
if A=0
then if B=0
then writeln ('Uravnenie vyrazhdeno')
else writeln ('Edinstveniy koren x=',-C/B:6:3)
else
begin
D:=B*B-4*A*C;
A:=2*A;
if D

 #  

ну эт дискременант кажись, ты мне реши его так, как в математике, а код без "Б", напишу

 #  

#715667 пишет

Оно?Program Kvadrat;uses crt;varA,B,C: real;X1, X2: real;D:real;beginclrscr;writeln ('Wedite koeficient A,B,C');readln (A,B,C);if A=0then if B=0then writeln ('Uravnenie vyrazhdeno')else writeln ('Edinstveniy koren x=',-C/B:6:3)elsebeginD:=B*B-4*A*C;A:=2*A;if D

Добавлено спустя 34 секунды
Блин! по ВП скину

 #  

Program Sq2;
Var A, B, C, D, X, X1, X2 : Real;
Begin
Writeln ('Введите коэффициенты уравнения (A, B, C) ');
If A=0 Then
If B=0 Then
If C=0 Then Writeln('X - любое число')
Else Writeln('Корней нет! ')
Else Begin X:=-C/B; Writeln('X=',X:8:3) End
Else
Begin
D:=B*B-4*A*C;
If D

Добавлено спустя 01 минуту 22 секунды

rotor87 пишет

Program Sq2;

почему текст обрезался???

 #  

Uses CRT;

Var
a, b, c: real;

Begin
write('a=');
read(a);
writeln;
write('b=');
read(b);
writeln;
write('c=');
read(c);
writeln;
while (true) do
begin
write a;
write 'x*x+';
write b;
write 'x+';
write c;
write 'x+';
end;
End.

 #  

Leningrad00 пишет

Uses CRT;

А зачем?

 #  

#752603 пишет

А зачем?

Чтобы в конце clrscr можно было написать.

 #  

Leningrad00 пишет

Чтобы в конце clrscr можно было написать.

У Вас clrscr; не написано.

Добавлено спустя 49 секунд
К тому же, зачем в конце clrscr;?

 #  

#752603 пишет

У Вас clrscr; не написано

Извини, без него никак, я знаю.

#752603 пишет

зачем в конце clrscr;?

Чтобы хрень предыдущих прогонов стирать.

 #  

Leningrad00 пишет

Чтобы хрень предыдущих прогонов стирать.

Лучше ставьте в начале. Хоть посмотреть на предыдущий прогон можно будет после выполнения.