Ifv_a<>0 then

Begin

str(v_a,s_str);

s_form:= s_str + 'X?'

end;

Ifv_b>0 then

Begin

str(v_b,s_str);

s_form:= s_form + '+' + s_str + 'X'

end;

Ifv_b<0 then

Begin

str(v_b,s_str);

s_form:= s_form + s_str + 'X'

end;

Ifv_c>0 then

Begin

str(v_c,s_str);

s_form:= s_form + '+' + s_str

end;

Ifv_c<0 then

Begin

str(v_c,s_str);

s_form:= s_form + s_str

end;

s_form:= s_form + '=0';

Writeln ('Формула ',s_form);

k_d:= sqr(v_b)-4*v_a*v_c;

Writeln ('Дискриминант D= ',k_d);

Ifk_d<0 then

Begin

sqrt_k_d:=sqrt(abs(k_d));

str(-v_b/(2*v_a):7:2,s_dx);

str(sqrt_k_d/(2*v_a):7:2,s_ix);

s_x1:=s_dx + '+' + s_ix + 'i';

s_x2:=s_dx + '-' + s_ix + 'i';

Writeln('Комплексные корни');

Writeln ('x1= ',s_x1);

Writeln ('x2= ',s_x2);

end;

Ifk_d>0 then

Begin

sqrt_k_d:=sqrt(k_d);

k_x1:=(-v_b+sqrt_k_d)/(2*v_a);

k_x2:=(-v_b-sqrt_k_d)/(2*v_a);

Writeln('Действительные корни');

Writeln ('x1= ',k_x1:7:2);

Writeln ('x2= ',k_x2:7:2);

end;

if k_d=0 then

Begin

sqrt_k_d:=sqrt(k_d);

k_x1:=-v_b/(2*v_a);

Writeln('Действительный корень');

Writeln ('x= ',k_x1:7:2);

end;

Writeln;

end.

 

A=2

B=4

C=-8

Формула 2X²+4X-8=0

Дискриминант D= 80

Действительные корни

x1= 1.24

x2= -3.24

 

A=6

B=2

C=10

Формула 6X²+2X+10=0

Дискриминант D= -236

Комплексные корни

x1= -0.17+ 1.28i

x2= -0.17- 1.28i

Задание №3 Смоделировать процесс гадания на ромашке "любит" "не любит" минимум 5 лепестков, максимум 25 лепестков. (Сделать в программаз Паскаль АВС и Эксель)
1 лепесток - любит
2 лепесток - не любит
и т.д.

Количество лепестков (генерируется случайным числом от 5 до 25) =		Ближайшее четное=		Результат сравнения=	ЛОЖЬ
Результат гадания	ЛЮБИТ
Вариант 2
		8.5	ЛОЖЬ
Результат гадания	ЛЮБИТ

Количество лепестков (генерируется случайным числом от 5 до 25) =	=СЛУЧМЕЖДУ(5;25)	Ближайшее четное=	=ЧЁТН(B1)	Результат сравнения=	=СОВПАД(B1;D1)
Результат гадания	=ЕСЛИ(B1=D1;"НЕ ЛЮБИТ";"ЛЮБИТ")
Вариант 2
	=ОКРУГЛ(B1/2;0)	=B1/2	=СОВПАД(B5;C5)
Результат гадания	=ЕСЛИ(B5=C5;"НЕ ЛЮБИТ";"ЛЮБИТ")

Program zadanie_1;

Var

k_rand,k_round: integer;

k_rez: real;

s_start: string;

Begin

Repeat

Begin

Writeln;

Write('Количество лепестков ');

Repeat

k_rand:=random(25);

until k_rand>=5;

Writeln (k_rand);

k_rez:=k_rand/2;

k_round:=round(k_rez);