//Pascal var a, b, c, d, x1, x2: real; begin write('Введите a = '); readln(a); write('Введите b = '); readln(b); write('Введите c = '); readln(c); if ((a = 0) and (b = 0) and (c = 0)) then writeln('X любое') else if a <> 0 then begin d := sqr(b) - 4 * a * c; if (d > 0) then begin x1 := (-b+sqrt(d))/(2*a); x2 := (-b-sqrt(d))/(2*a); writeln('x1 = ', x1); writeln('x2 = ', x2); end else if d = 0 then begin x1:=-b/(2*a); x2:=x1; writeln('x1 = ', x1); //writeln('x2 = ', x2); end else if d < 0 then writeln('Корней нет.'); end else if (a = 0) and (b = 0) then writeln('Решений нет.') else if (a = 0) then begin x1 := (-c)/b; writeln('x = ', x1); end; end.
Var A: array [1..255] of integer; N, i, j, k, min, max: integer; begin //Ввод количества элементов в массиве write('Введите четное количество элементов: '); readln(N);
//Ввод двух чисел для диапазона случайных чисел write('Введите диапазон случайных чисел: '); readln(min, max);
//Заполнение массива for i := 1 to N do begin A[i] := random(max-min+1)+min; write(A[i]:4); end; writeln;
//Сортировка первой половины по убыванию for i := 1 to ((N div 2)-1) do for j := 1 to (N div 2)-i do if A[j] > A[j+1] then begin k := A[j]; A[j] := A[j+1]; A[j+1] := k; end;
//Сортировка второй половины по убыванию for i:=(N div 2) to N-1 do for j:=i+1 to N do if A[i]<A[j] then begin k:=a[i]; A[i]:=A[j]; A[j]:=k; end;
//Вывод массива for i := 1 to N do write(A[i]:4); writeln; readln; end.
var
a, b, c, d, x1, x2: real;
begin
write('Введите a = '); readln(a);
write('Введите b = '); readln(b);
write('Введите c = '); readln(c);
if ((a = 0) and (b = 0) and (c = 0)) then
writeln('X любое')
else
if a <> 0 then
begin
d := sqr(b) - 4 * a * c;
if (d > 0) then
begin
x1 := (-b+sqrt(d))/(2*a);
x2 := (-b-sqrt(d))/(2*a);
writeln('x1 = ', x1);
writeln('x2 = ', x2);
end
else
if d = 0 then
begin
x1:=-b/(2*a);
x2:=x1;
writeln('x1 = ', x1);
//writeln('x2 = ', x2);
end
else
if d < 0 then
writeln('Корней нет.');
end
else
if (a = 0) and (b = 0) then
writeln('Решений нет.')
else
if (a = 0) then
begin
x1 := (-c)/b;
writeln('x = ', x1);
end;
end.