Programas de pascal

Solo disponible en BuenasTareas
  • Páginas : 2 (471 palabras )
  • Descarga(s) : 0
  • Publicado : 15 de agosto de 2012
Leer documento completo
Vista previa del texto
program ecuaciones_cuadraticas;
uses crt;
var
a,b,c:integer;
resul,raiz:real;
begin
writeln ('introduzca el valor de A');
readln (a);
writeln ('introduzca el valor de B');
readln (b);writeln ('introduzca el valor de C');
readln (c);
if ((a<=c) and (b<=c)) or ((a>=c) and (a>=b)) then
begin
writeln;
writeln ('la raiz es imaginaria');
end;
if (b>a) and (b>c) thenbegin
raiz:=sqrt ((b*b)-(4*a*c)); {esto es lo q se encuentra dentro de la raiz, es lo q estoy sacando...osea el b²-4ac)
resul:=(-b+raiz)/(2*a); {con esto saco la raiz positiva al sumar el resultadode la raiz a la "-b" y lo divido entre 2a}
writeln;
writeln ('la raiz positiva es: ',resul:0:3);
resul:=(-b-raiz)/(2*a); {y aqui es lo mismo q arriba solo q para la raiz negativa por eso lo estoyrestando}
writeln ('la raiz negativa es: ',resul:0:3);
end;
readln;
end.

lo q estoy haciendo es aplicar la resolvente....la unica funcion extraña es la sqrt....esa es una funcion q ya traepascal q se utiliza para sacar las raices cuadradas de cualquier numero

tambien utilizo las mismas varibles de la formula....ademas para q sea mas entendible, al programar es mas facil porq uno sabe qes cada variable y en donde debe ir.....es como para no confundirse
…………………………………………………………………………………………………………………

PROGRAM EJER71;
USES CRT;

VAR a,b,c,d:REAL;
VARproducto,suma,media:REAL;
BEGIN
ClrScr;

WRITELN('Introduzca 4 datos para calcular las soluciones:');
WRITELN ('');
WRITE ('a: '); READLN (a);
WRITE ('b: '); READLN(b);
WRITE ('c: '); READLN (c);
WRITE ('d: '); READLN (d);
WRITELN ('');

producto:= a * b * c * d;
suma:= a + b + c + d;
media:= suma / 2;

WRITELN('El valor del producto de los numeros es: ',
producto:10:2);
WRITELN ('El valor de la suma de los numeros es: ',
suma:10:2);
WRITELN ('El valor de la media de los numero ses: ',...
tracking img