Регистрация
ilinet
28.01.2021 09:32
Информатика
Есть ответ 👍

Дано квадратное уравнение вида a*x^2+b*x+c=0 коэффициенты заданы a= 4.00 b= -52.00 c= 144.00 a> 0, d> 0. формулы для : d=b^2 - 4*a*c; x1,2=(-b +- sqrt(d))/(2*a) вывести вначале меньший корень, затем больший. нужно написать программу в pascal'e.

224
481
Посмотреть ответы 2

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

ruzhovaelizave
ruzhovaelizave
4,8(52 оценок)
Как-то так крч=) program z1; var a,b,c,d,x1,x2: real; begin a: =4.00; b: =-52.00; c: =144.00; d: =b*b - 4*a*c; x1: =(-b+ sqrt(d))/(2*a); x2: =(-b- sqrt(d))/(2*a); if x1> x2 then begin writeln('меньший корень',x2,'больший корень',x1) end else writeln('меньший корень  ',x1,'больший корень  ',x2); end.
VelievaAyka18
VelievaAyka18
4,4(85 оценок)
Const   n = 30; var   a: array [1..n] of integer;   i, j, k: integer; begin for i : = 1 to n do   readln(a[i]); for i: =1 to n-1 do   if (a[i] mod 13=0) or (a[i+1] mod 13=0) then k: =k+1; writeln('k=',k) end.  

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