proese1

soluzione equazione secondo grado con discussione PASCAL VBA VISUAL EXCEL

PASCAL

program equa2g;
uses crt;
var a,b,c,d,x1,x2,r1,d1:real;
h:integer;

procedure scelta;
begin
clrscr;
writeln('scrivi i coefficienti della equazione di 2øgrado');
writeln('ax^2 + bx + c = 0');
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
d:=b*b-4*a*c;
if d>0 then
begin
writeln('due soluzioni reali distinte');
writeln('discriminante=',d:8:2);
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln('x1=',x1:8:2);
writeln('x2=',x2:8:2);

writeln('altra equazione 1 ,fine 2 ');readln(h);
if h=1 then scelta;
end;
 if d=0 then
begin
writeln('due soluzioni reali coincidenti');
writeln('discriminante=',d:8:2);
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln('x1=',x1:8:2);
writeln('x2=',x2:8:2);
writeln('altra equazione 1 ,fine 2 ');readln(h);
if h=1 then scelta;
end;

 if d<0 then
begin
writeln('soluzioni nel campo complesso');
d:=-(b*b-4*a*c);
writeln('discriminante=',d:8:2);
r1:=(-b/(2*a));
d1:=(sqrt(d)/(2*a)) ;
writeln('x1=',r1:8:2,'+',d1:8:2,' i');
writeln('x2=',r1:8:2,'-',d1:8:2,' i');
writeln('altra equazione 1 ,fine 2 ');readln(h);
if h=1 then scelta;
 end;
end;

begin
clrscr;scelta;clrscr;end.

RUN e visualizza

scrivi i coefficienti della equazione di 2°grado
ax^2 + bx + c = 0
a=2
b=-7
c=6
due soluzioni reali distinte
discriminante=    1.00
x1=    2.00
x2=    1.50
altra equazione 1 ,fine 2


scrivi i coefficienti della equazione di 2°grado
ax^2 + bx + c = 0
a=1
b=6
c=15
soluzioni nel campo complesso
discriminante=   24.00
x1=   -3.00+    2.45 i
x2=   -3.00-    2.45 i
altra equazione 1 ,fine 2


scrivi i coefficienti della equazione di 2°grado
ax^2 + bx + c = 0
a=2
b=4
c=2
due soluzioni reali coincidenti
discriminante=    0.00
x1=   -1.00
x2=   -1.00
altra equazione 1 ,fine 2

VBA per EXCEL creare PULSANTE per istruzioni

Private Sub CommandButton1_Click()
'soluzione equazione secondo grado

Dim a As Double
Dim b As Double
Dim c As Double
Dim delta As Double

a = Cells(4, 4)
b = Cells(5, 4)
c = Cells(6, 4)
delta = b ^ 2 - 4 * a * c
Cells(9, 4) = delta
 If delta >= 0 Then
   Cells(10, 4) = (-b + Sqr(delta)) / 2 * a
   Cells(11, 4) = (-b - Sqr(delta)) / 2 * a
   Else
   Cells(10, 4) = "non radici reali"
   Cells(11, 4) = "non radici reali"
   End If
End Sub

scrivere i coefficienti nelle celle indicate e cliccare PULSANTE

						
			scrivere i dati richiesti				
							
		a	1				
		b	-2				
		c	5				
							
							
			-16				
			non radici reali				
			non radici reali	

VISUAL BASIC	creare PULSANTE per istruzioni e 3 label 2 textbox

Private Sub CommandButton1_Click()
'soluzione equazione secondo grado

Dim a As Double
Dim b As Double
Dim c As Double
Dim delta As Double

a = TextBox1.Text
b = TextBox2.Text
c = TextBox3.Text
delta = b ^ 2 - 4 * a * c
Label1.Caption = delta
 If delta >= 0 Then
   Label2.Caption = (-b + Sqr(delta)) / 2 * a
   Label3.Caption = (-b - Sqr(delta)) / 2 * a
   Else
   Label2.Caption = "non radici reali"
   Label3.Caption = "non radici reali"
   End If
End Sub

inserire a,b,c in textbox  e cliccare PULSANTE

EXCEL

Soluzione equazione secondo grado con radici reali(senza discussione)

Inserire coefficienti della equazione in A5,B5,C5

per avere soluzione E FORMULE in A6,A7

inizio