Предмет: Информатика,
автор: olga2014las
10. Используя среду программирования выполнить задание. Вычислить действительные корни уравнения ax(в квадрате)+bx(в квадрате)+c=0
Ответы
Автор ответа:
0
хахахаа, я такую программу сам создавал от нефиг делать)) ток во втором мб не нужно в квадрате???
исходник от java прикрепил,
вот паскаль
var a,b,c,d,x1,x2 :extended;
begin
readln(a,b,c);
d:=(b*b)-(4*a*c);
if d<0 then begin write('Korney net!'); end;
if d=0 then begin
if b<0 then begin b:=b+b+b; x1:=b/(2*a); write(x1); end;
if b>0 then begin b:=b-b-b; x1:=b/(2*a); write(x1); end; end;
if d>0 then begin
if b<0 then begin b:=b+b+b; x1:=(b-sqrt(d))/(2*a); x2:=(b+sqrt(d))/(2*a); write(x1,x2); end;
if b>0 then begin b:=b-b-b; x1:=(b-sqrt(d))/(2*a); x2:=(b+sqrt(d))/(2*a); write(x1,x2); end;
end; end.
исходник от java прикрепил,
вот паскаль
var a,b,c,d,x1,x2 :extended;
begin
readln(a,b,c);
d:=(b*b)-(4*a*c);
if d<0 then begin write('Korney net!'); end;
if d=0 then begin
if b<0 then begin b:=b+b+b; x1:=b/(2*a); write(x1); end;
if b>0 then begin b:=b-b-b; x1:=b/(2*a); write(x1); end; end;
if d>0 then begin
if b<0 then begin b:=b+b+b; x1:=(b-sqrt(d))/(2*a); x2:=(b+sqrt(d))/(2*a); write(x1,x2); end;
if b>0 then begin b:=b-b-b; x1:=(b-sqrt(d))/(2*a); x2:=(b+sqrt(d))/(2*a); write(x1,x2); end;
end; end.
Приложения:
Автор ответа:
0
Спасибо. Точно без квадрата во втором случае..... А для этого ведь нужна специальная программа. Не подскажешь какая? А то нужно еще кое-что по информатике сделать. Я смотрю ты гений.
Автор ответа:
0
спасибо))), вы какой язык программирования изучаете?
Автор ответа:
0
я в этом вообще не понимаю. учусь на 1 курсе. тут задания такие..... сможете помочь мне с информатикой? если да. напишите почту свою.
Похожие вопросы
Предмет: Алгебра,
автор: bektasova91
Предмет: Математика,
автор: marinadik620
Предмет: Қазақ тiлi,
автор: Nefin
Предмет: Геометрия,
автор: sevrum