<LI class="code-row code-row-first">Program FormulaResolvente; <LI class=code-row>uses <LI class=code-row>crt; <LI class=code-row>var <LI class=code-row>A : real; <LI class=code-row>B : real; <LI class=code-row>C : real; <LI class=code-row>D : real; {o k ta dentro da raiz kuadrada da formula resolvente} <LI class=code-row>X : real; {coordenada X do vertice} <LI class=code-row>raiz1 : real; <LI class=code-row>raiz2 : real; <LI class=code-row>Begin <LI class=code-row>clrscr; <LI class=code-row>writeln( 'Introduz o valor de A:' ); <LI class=code-row>readln( A ); <LI class=code-row>writeln( 'Introduz o valor de B:' ); <LI class=code-row>readln( B ); <LI class=code-row>writeln( 'Introduz o valor de C:' ); <LI class=code-row>readln( C ); <LI class=code-row>d:= (b*b)-(4*a*c); <LI class=code-row>if d < 0 then <LI class=code-row>writeln('Raizes de nºs negativos nao existem Razz') <LI class=code-row>else <LI class=code-row>raiz1:= (-b+sqrt(d))/(2*a); <LI class=code-row>raiz2:= (-b-sqrt(d))/(2*a); <LI class=code-row>BEGIN <LI class=code-row>writeln('1ª Raiz = ',raiz1); <LI class=code-row>writeln('2ª Raiz = ',raiz2); <LI class=code-row>END; <LI class=code-row>X:= (raiz1+raiz2)/2; <LI class=code-row>Begin <LI class=code-row>writeln('Coordenada X do vertice : ',X); <LI class=code-row>writeln('Coordenada Y do vertice : ',(A*sqr(x))+(B*X)+C); <LI class=code-row>while not keypressed do; <LI class=code-row>end;
end.