Линейное ур-е имеет вид: ax^2+bx+c=0, где a, b, c - кофиценты Чтобы решить кв. ур-е нужно: Определить дискриминант по формуле: D(дискриминант)= b^2 * -4ac 2) Если D<0, то уравнение не имеет корней Если D=0, то один корень Если D>0, то два корня 3) ищем корни по формуле, Если D=0: x=-b/2a Ищем корни по формуле, если D>0: x1=-b+√D/2a x2=-b-√D/2a
по теореме Виета: x1+x2=-b/a x1*x2=c/a И подбираем корни.
По свойству корней. Если a+b+c=0, то x1=1 x2=c/a Если a-b+c=0, то x1=-1 x2=-c/a
Нахождение площади треугольника: S=h*x*1/2, где h- высота треугольника, x - основание, к которому проведена ввсота
1) Program n1; const n=10; var a: array [1..n] of integer; i,sum: integer; begin randomize; sum:=0; for i:=1 to n do a[i]:=random(100)+1; for i:=1 to n do sum:=sum+a[i]; writeln('сумма: ',sum); end. 2) Program n2; const n=10; var a: array [1..n] of integer; i,sum,j,temp: integer; begin randomize; writeln('исходный массив'); for i:=1 to n do begin a[i]:=random(100)+1; write(a[i],' '); end; writeln; writeln('полученный массив: '); for i:=1 to n do for j:=i to n do if a[j]<a[i] then begin temp:=a[i]; a[i]:=a[j]; a[j]:=temp end; for i:=1 to n do write(a[i],' '); end.
3597
3759
3795
3957
3975
5379
5397
5739
5793
5937
5973
7359
7395
7539
7593
7935
7953
9357
9375
9537
9573
9735
9753