Вычислите значение функций y=3*x^3+5*x для x изменяющегося в интервале от -1 до 1 с шагом 0,2 задание Постройте диаграмму для функции, используя тип диаграммы график
Квадратное алгебраическое уравнение имеет вид:ах^2 + bx + c = 0. (1)Здесь а, b и с – коэффициенты. Сначала надо вычислить дискриминант квадратного уравненияD = (b^2 – 4ac) (2)Если D > 0, то квадратное уравнение имеет два корня х1 и х2. Обозначим С = корень(D). То есть надо вычислить квадратный корень из D. Имеем такие решениях1 = (–b + C)/(2a) и x2 = (–b – C)/(2a). (3)Если дискриминант D = 0, то C = 0 и оба корня одинаковы Х1 = Х2 (хотя в школе обычно говорят, что имеется только одно решение) и вычисляются по формулеХ1 = Х2 = –b/(2a). (4). Эта формула следует из формулы (3) при С = D = 0.Если дискриминант D меньше нуля, то корень из D вычислить нельзя, С будет мнимым числом. Вообще говоря, корни есть (2 штуки), но они будут мнимыми числами. Хотя в школе учат, что в этом случае корней НЕТ. Так и будем считать, что корней нет.Алгоритм решения будет следующийНо только здесь дискриминант D обозначен малой буквой d
1) program cgt; var a:array[1..100,1..100]of integer; s,n,m,i,j:integer; begin read(n,m); s:=0; for i:=1 to n do for j:=1 to m do read(a[i,j]); for i:=1 to n do begin for j:=1 to m do if(i mod 2=1)then s:=s+a[i,j]; end; writeln(s); end. 2) program cgt; var a:array[1..100,1..100]of integer; n,m,i,j:integer; s,p:real; begin read(n,m); s:=0; for i:=1 to n do for j:=1 to m do read(a[i,j]); for i:=1 to n do begin p:=1; if(i mod 2=0)then begin for j:=1 to m do begin p:=p*(sin(a[i,j]*pi/180))/(cos(a[i,j]*pi/180)); end; s:=s+p; end; end; writeln(s); end. 3)
program cgt; var a:array[1..100,1..100]of integer; n,m,i,j,max,x,y:integer; begin read(n,m); for i:=1 to n do for j:=1 to m do read(a[i,j]); max:=a[1,1]; for i:=1 to n do if(i mod 2=1)then begin for j:=1 to m do if(a[i,j]>=max)then begin max:=a[i,j]; x:=i; y:=j; end; end; writeln(x,' ',y); end.
Объяснение:
В приложенном файле и на скриншоте