Anónimo
Como poner la ecuacon ax+b=0 en pascal.
Tengo un ejercicio en el q tengo que resolver una ecuacion ax+b=0
Y tengo que pasarla a pascal para que funcone con cualquier numero...
Como única condición que A sea distinta de 0
Uno de los errores que me tira es al poner = 0
Y tengo que pasarla a pascal para que funcone con cualquier numero...
Como única condición que A sea distinta de 0
Uno de los errores que me tira es al poner = 0
1 respuesta
Respuesta de currupipi999
1
Antes de ir al ejercicio, veamos el aspecto matemático de la cuestión:a x = -b
X = -b/a
si a = 0,. no hay solución
si a = 0 y b=0 hay infinitas sluciones. Ecuación indeterminada
si a distinta de 0 hay solucion
No se entiende muy bien como pones el enunciado pero entiendo que a, b deben ser ingresados por el usuario. El código quedaría como sigue
Uses CRT;
Var
a, b : Integer;
x : real;
Begin
Clrscr;
GOTOXY(20,1);
Writeln('RESOLUCIàN DE ECUACIONES LINEALES (aX+B = 0)');
Repeat
GotoXY(20, 10); Writeln('A: ');
GotoXY(24,10); ClrEol; Readln(A)
Until A<>0;
GotoXY(20, 12); Writeln('B: ');
GotoXY(24, 12); ClrEol; Readln(B);
x:=(b/a)*(-1);
Writeln('La soluci¢n es: ',X:2:1);
readln;
end.
X = -b/a
si a = 0,. no hay solución
si a = 0 y b=0 hay infinitas sluciones. Ecuación indeterminada
si a distinta de 0 hay solucion
No se entiende muy bien como pones el enunciado pero entiendo que a, b deben ser ingresados por el usuario. El código quedaría como sigue
Uses CRT;
Var
a, b : Integer;
x : real;
Begin
Clrscr;
GOTOXY(20,1);
Writeln('RESOLUCIàN DE ECUACIONES LINEALES (aX+B = 0)');
Repeat
GotoXY(20, 10); Writeln('A: ');
GotoXY(24,10); ClrEol; Readln(A)
Until A<>0;
GotoXY(20, 12); Writeln('B: ');
GotoXY(24, 12); ClrEol; Readln(B);
x:=(b/a)*(-1);
Writeln('La soluci¢n es: ',X:2:1);
readln;
end.