|
vershina17.PAS |
|
{* Задача 17 *}Unit VERSHINA17; InterfaceImplementationBegin writeln( 'Определить координаты вершины параболы y=ax2(x в квадрате)+bx+c(a≠0), коэффициенты a, b, c считать известными. '); End. Program vershina;
Uses vershina17.pas; {* Эту строку можно удалить *}
Var {* В работе нам потребуются переменные: *}
a : real;
b : real;
c : real;
x : real;
y : real;
Begin
read(a, b, c);
x := - b / (2 * a);
y := a * x * x + b * x + c;
writeln( 'x=', x);
writeln( 'y=', y);
End.
|