Регистрация
STavctva
03.02.2022 09:48
Информатика
Есть ответ 👍

Решить квадратное уравнение (a ≠ 0) ax2 + bx + c = 0. если d< 0, то вывести сообщение "корней нет".

102
380
Посмотреть ответы 3

Ответы на вопрос:

VortexYT
VortexYT
4,7(14 оценок)

program name;

var

begin

вводишь a,b,c

потом отдельно х

if (a*x*x+b*x+c=0) and (a< > 0) then 

begin

d; =sqr(b)-4a*c;

end;

if d< 0 then begin

writeln('kornyey net');

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Урлатоп
Урлатоп
4,8(57 оценок)

pascal

program korni;

uses crt;

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

begin

write('vvedite koeffecienti uravnenia');

readln(a,b,c);

d: =sqr(b)-4*a*c;

if d> 0 then

begin

x1: =)+sqrt(d))/(2*a);

x2: =)-sqrt(d))/(2*a);

write('x1 = ',x1,'x2 = ',x2);

end;

if d< 0 then write('kornei net')

else

begin

x1: =)/(2*a);

write('x = ',x1);

end;

readln;

end.

sooova123
sooova123
4,8(92 оценок)
Var i,n: integer; a: array[1..1000] of integer; begin   write('write size array: '); readln(n);   for i: =1 to n do   begin     a[i]: =random(30);     write(a[i]: 4,' ');   end;     writeln;   for i: =1 to n do   begin     a[i]: =a[i]*2;     write(a[i]: 4,' ');   end; end.

Популярно: Информатика