Pascal/Turbo Pascal - problema con la raíz

   
Vista:

problema con la raíz

Publicado por mery (8 intervenciones) el 07/10/2014 12:47:27
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
begin
  writeln ('operando1');
  read (A);
  writeln ('operando2');
  read (B);
  writeln ('operando3');
  read (C);
  D:=(sqrt(B*B-4*A*C));
  if D<0 then
     writeln ('error')
  else
    begin
         res1:=(-B+D)/(2*A);
         writeln (res1);
         res2:=(-B-D)/(2*A);
         writeln (res2);
         if res1=res2 then
            writeln ('una sola solución')
         else
             writeln ('dos soluciones');
 
 
    end;
     read (tonta);
end.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Pascal/Turbo Pascal
- Código fuente de Pascal/Turbo Pascal
- Cursos de Pascal/Turbo Pascal
- Temas de Pascal/Turbo Pascal
- Chat de Pascal/Turbo Pascal
información
Códigos de Pascal/Turbo Pascal
- Fibonacci
- Triangulo
- Codificar Texto

problema con la raíz

Publicado por ramon (2072 intervenciones) el 07/10/2014 14:52:13
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
{Mira tu programa retocado}
 
uses
   crt;
var
   a, b, c : integer;
   d : real;
   res1, res2 : real;
begin
clrscr;
write('operando1 : ');
read(A);
write('operando2 : ');
read(B);
write('operando3 : ');
read(C);
 
D := sqrt(((B * B) - 4) * (A * C));
if D<0 then
writeln('error')
else
begin
res1 := (-B+D)/(2*A);
writeln('   ',res1:0:3);
res2 := (- B - D) / (2 * A);
writeln('   ',res2:0:3);
if res1 = res2 then
writeln('   una sola solución')
else
writeln('   dos soluciones');
end;
writeln('  Pulse Una Tecla');
readkey;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar