Programa para la solución a ecuaciones de 2do. grado
El programa anterior esta estructurado en el lenguaje de programación llamado "pascal", y puede traducirse en:
Program formula_general;
uses crt;
var
a,b,c,raiz,valor1,valor2:real;
begin
clrscr;
repeat
writeln(‘dame el valor de ax’);
readln(a);
writeln(‘dame el valor de bx’);
readln(b);
writeln(‘dame el valor de c’);
readln(c);
raiz:=b*b-(4*a*c);
if raiz>=0 then
begin
valor1:=(-b+sqrt(raiz))/(2*a);
valor2:=(-b-sqrt(raiz))/(2*a);
writeln(‘x1:’,valor1:0:2);
readln;
writeln(‘x2:’,valor2:0:2);
readln;
end
else
writeln(‘la ecuación no tiene solucion’);
readln;
writeln(‘¿desea calcular otra vez?’);
readln(respuesta);
until (respuesta=’n’) or (respuesta=’N’);
end.
uses crt;
var
a,b,c,raiz,valor1,valor2:real;
begin
clrscr;
repeat
writeln(‘dame el valor de ax’);
readln(a);
writeln(‘dame el valor de bx’);
readln(b);
writeln(‘dame el valor de c’);
readln(c);
raiz:=b*b-(4*a*c);
if raiz>=0 then
begin
valor1:=(-b+sqrt(raiz))/(2*a);
valor2:=(-b-sqrt(raiz))/(2*a);
writeln(‘x1:’,valor1:0:2);
readln;
writeln(‘x2:’,valor2:0:2);
readln;
end
else
writeln(‘la ecuación no tiene solucion’);
readln;
writeln(‘¿desea calcular otra vez?’);
readln(respuesta);
until (respuesta=’n’) or (respuesta=’N’);
end.
1. ¿Qué es un programa?
2. Define brevemente programación
3. ¿Qué tipos de lenguajes de programación hay?
4. ¿A que se le denomina algoritmo?
5. ¿Para que sirve un diagrama de flujo?
6. ¿Qué función tienen los operadores?
7. ¿Cuántos tipos de datos hay?

No hay comentarios:
Publicar un comentario