Компилятор для программ на Pascal

[vindows93]

program z;
Var a,b,d,c,e,f:real;

begin
readln (a);
readln (b);
readln (c);
d:=(b*b)-((4*a)*c);
writeln (d);
e:=((b*b)-(sqrt(d)))/(2*a);
f:=((b*b)+(sqrt(d)))/(2*a);
writeln (e);
writeln (f);
end.

не флоат а реал но всёравно спс
а как условие типа
d>0 то
e:=((b*b)-(sqrt(d)))/(2*a);
f:=((b*b)+(sqrt(d)))/(2*a);
d<0 типа хрен тебе
d=0 то (-b)/(2*a)

плиз срочна чере 12 ч школа и информатика

[Emelman]

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

не флоат а реал

Точно!!! Вот что значит без практики...
По условию:

if (d>0) do begin
e:=((b*b)-(sqrt(d)))/(2*a);
f:=((b*b)+(sqrt(d)))/(2*a);
end;
if (d<0) do writeln ('Хрен тебе в обе руки!');
if (d=0) do [какая-нибудь переменная]:=(-b)/(2*a);

С учётом моих последних ошибок, лучше бы чтобы кто-нибудь ещё проверил.

[albo]

скорее

if d>= 0 then
 begin
 e:=[...]
 writeln(e);
 writeln(f);
 end
else
 Writeln('дискриминант отрицательный');

[vindows93]

Спасибо спасли

добавлено через 4 минуты
Рано обрадовался заболел..
ОШИБКА
if (d>0) do begin неверное выражение

[Emelman]

У меня в голове уже все языки перемешались в кашу. Пишу галиматью и ввожу тебя в заблуждение.

if d>0 then begin
e:=((b*b)-(sqrt(d)))/(2*a);
f:=((b*b)+(sqrt(d)))/(2*a);
end;
if d<0 then writeln ('Хрен тебе в обе руки!');
if d=0 then [какая-нибудь переменная]:=(-b)/(2*a);

Дабы больше не обманывать, наверное, больше советов давать пока не буду, пока не восстановлю познания языков.

[vindows93]

program z;
Var a,b,d,c,e,f:real;

begin
readln (a);
readln (b);
readln (c);
d:=(b*b)-((4*a)*c);
writeln (d);
if d>= 0 then
begin
e:=((b*b)-(sqrt(d)))/(2*a);
f:=((b*b)+(sqrt(d)))/(2*a);
writeln(e);
writeln(f);
Writeln('дискриминант отрицательный').
end.
else

if здесь требует елсе или точка с запятой ставил нихрена таже ошибка.......
d=0 then
begin
e:=(-b)/(2*a);
writeln(e);
Writeln('одно решение');
end
else

if d<=0 then
begin
Writeln('дискриминант отрицательный хрен тебе в руки');
end.

памагите напутал с операторами сказано блин надоело уже!!!!
плиз всё проверьте а то !!!!!!!!

[Emelman]

Вот готовая программа:

program z;
Var a,b,d,c,e,f:real;

begin
readln (a);
readln (b);
readln (c);
d:=(b*b)-((4*a)*c);
writeln (d);
if d>0 then
begin
e:=((b*b)-(sqrt(d)))/(2*a);
f:=((b*b)+(sqrt(d)))/(2*a);
writeln(e);
writeln(f);
Writeln('дискриминант отрицательный');
end;

if d=0 then
begin
e:=(-b)/(2*a);
writeln(e);
Writeln('одно решение');
end;

if d<0 then
Writeln('дискриминант отрицательный хрен тебе в руки');
End.

Только результаты отображаются некрасиво, округлить бы их наверное надо.

[albo]

не надо при условии d>0 писать про отрицательный дискриминант

пробуй выводить результаты так: writeln(e:4:2);

[vindows93]

СПС всем изучать буду ПАСКАЛЬ
ТОКА уже изучил питона и басик !!)

добавлено через 37 минут
в редакторе работает а в екзешнике падает почему???
program z;
Var a,b,d,c,e,f:real;

begin
readln (a);
readln (b);
readln (c);
d:=(b*b)-((4*a)*c);
writeln (d);
if d>0 then
begin
e:=((b*b)-(sqrt(d)))/(2*a);
f:=((b*b)+(sqrt(d)))/(2*a);
writeln(e);
writeln(f);
Writeln('дискриминант отрицательный');
Writeln('дискриминант отрицательный');
end;

if d=0 then
begin
e:=(-b)/(2*a);
writeln(e);
Writeln('одно решение');
Writeln('одно решение');
end;

if d<0 then
Writeln('дискриминант отрицательный !!!!лузер!!!');
Writeln('дискриминант отрицательный !!!!лузер!!!');
End.

[albo]

код ошибки? вообще код неправильный, но падать не должно. разве что при a=0

[vindows93]

ошибки нет просто падает ввёл 666 через ентер и падает
НАПИШИ ПРАВИЛЬНЫЙ КОД ПЛИЗ!!!!!!!

[albo]

var
 a,b,c,d,x1,x2: Real;

begin
 writeln('Решение квадратных уравнений (ax^2+bx+c=0)');
 write('a=');
 readln(a);
 if a=0 then
  begin
   writeln('это уравнение не является квадратным, a но должно быть равно 0');
   Halt;
  end;
 write('b=');
 readln(b);
 write('c=');
 readln(c);

 d:=(b*b)-((4*a)*c);
 writeln('D=', d:0:2);

 if d>=0 then
  begin
   x1:=((b*b)-(sqrt(d)))/(2*a);
   x2:=((b*b)+(sqrt(d)))/(2*a);
   writeln('x1=', x1:0:2);
   writeln('x2=', x2:0:2);
  end
 else
  writeln('дискриминант отрицательный - нет вещественных решений');
end.

[vindows93]

СПС а чё делает 0:2 вот эти в d x1 x2

[Borland]

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

а чё делает 0:2 вот эти в d x1 x2

Форматирование вывода.