Регистрация
Мусора12233334555
12.12.2020 07:51
Информатика
Есть ответ 👍

Найти ошибку в паскале пишет false program math1; var a,b,c,d,x,x1,x2: real; begin readln(a,b,c); if b=0 then if (c=0) then writeln( 'x=0') else if (-c/a< 0) then writeln('корней нет') else writeln ( x1=sqrt(-c/a), x2=-sqrt(-c/a)) else if (c=0) then writeln ( 'x1=0', x2=-b/a) else d : =b*b-4*a*c; if (d< 0) then writeln( 'корней нет' ) else if (d=0) then writeln ( x= -b/a) else writeln ( x1= -b+sqrt(d)/(2*a) , x2= -b-sqrt(d)/(2*a) ) end.

160
209
Посмотреть ответы 2

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

Kokos5424
Kokos5424
4,4(38 оценок)
{это решение кв. ур, вот немного другой алгоритм: } program math; var d,e,f, a, b, c: real; begin writeln('решение квадратного уравнения(ax^2+bx+c=0).'); write('введите a: '); readln(a); write('введите b: '); readln(b); write('введите c: '); readln(c); d: =sqr(b)-4*a*c; writeln('d=b*b-4*a*c=',d: 6: 2); if (d> 0) then begin e: = (-b/(2*a)); f: = (sqrt(d)/(2*a)); writeln('d> 0, значит 2 корня: '); writeln('x1= ',e-f: 6: 2); writeln('x2= ',e+f: 6: 2); end; if(d=0) then writeln(' d=0, значит 1 корень: ',-b/2*a: 6: 2); if (d< 0) then writeln(' d< 0, значит корней нет '); end.
evstratova05
evstratova05
4,4(14 оценок)

def find_monetka(c1,c2,r):

Tab:if c1<=r and c2<=r:

Tabx2:print('Find something')

Tab:else:

Tabx2:print('Could not find something')

x_m=float(input("Enter x:"))

y_m=float(input("Enter y:"))

r=int(input("Enter r:"))

find_monetka(x,y,r)

Объяснение:

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