Вопрос Не могу разобраться в чём проблема в pascal

Саша-123345 · 27 Окт 2021

Program doza;

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

begin

writeln ('a,b,c');

readln (a,b,c);

d:=b*b-4*a*c;

if (d>0) then writeln ('2 корня');

x1:=-b+sqrt (d);

x2:=-b-sqrt (d);

writeln ('x1=',x1);

writeln ('x2=',x2);

end;

begin

if (d=0) then writeln ('1 корень');

x1:=-b/2*a

end.

Leks234 · 27 Окт 2021

begin / end - это основа основ

Tim@ · 27 Окт 2021

Знаю, что не по теме, но зачем вы программируете на паскале?

Willain · 27 Окт 2021

От первого if и до конца кода:

if d>0 then begin
writeln('2 корня');
x1:=(-b-sqrt(d))/(2*a);
x2:=(-b+sqrt(d))/(2*a);
writeln('x1=',x1);
writeln('x2=',x2)
end else if d=0 then begin
writeln('1 корень');
x1:=-b/(2*a);
writeln('x1=',x1)
end else
writeln('корней нет')
end.

P.S. А на уроках математики ты 'sin (' пишешь - с пробелом между именем функции и круглой скобкой?

ebankooo · 27 Окт 2021

И что? Не знаешь формулу для корней квадратного уравнения? И ещё лезешь в программирование!!!

гусен050 · 27 Окт 2021

при Д=0 2 одинаковых корня!
if (d>=0) then writeln ('2 корня');
// x1:=-b+sqrt (d); чушь!!!
// x2:=-b-sqrt (d);
writeln ('x1=',x1);
writeln ('x2=',x2);
end;

Вопрос Не могу разобраться в чём проблема в pascal

Похожие темы

Privacy & Transparency

Privacy & Transparency