clear; clc; mprintf("\n ====== Equação de 2º grau ====== \n ");

a=input("valor diferente de 0 para a:");

if a == 0 then mprintf("\n Valor de a tem ser diferente de 0. \n Fim do programa. "); else b=input("entre com o valor de b:"); c=input("entre com o valor de c:");

delta = b^2 - 4 * a * c; mprintf("\n delta eh = %g", delta); if delta < 0 then mprintf("\n Delta menor que 0 não tem ponto com eixo Ox "); Vx = -b/2 * a Vy = - delta / 4 * a mprintf("\n \nVertice da parabola ");

mprintf("\n Vx= %g", Vx); mprintf("\n Vy= %g", Vy); else

x1 = (-b + sqrt(delta)) / (2*a); x2 = (-b - sqrt(delta)) / (2*a);

Vx = -b/2 * a Vy = - delta / 4 * a mprintf("\n\nValor(es) de x "); mprintf("\n x1= %g" ,x1); mprintf("\n x2= %g" ,x2);

mprintf("\n \n Vertice da parabola");

mprintf("\n Vx= %g", Vx); mprintf("\n Vy= %g", Vy);

end end //Daqui para baixo serao outros programas

clc; clear; //
// Prof. Leônidas
// 2002
// como quebrar uma janela gráfica em várias

// Uso do comando "xsetech" para dividir uma janela gráfica (jg) em 4 xbasc(); // limpar área de desenho

// 1. primeiro usamos xsetech para dividir jg em duas partes
// xsetech é usado para arrumar primeira "sub-janela" e a escala xsetech([0,0,1.0,0.5],[-5,-3,5,3]); //