ДОМОЙ		ПАСКАЛЬ	О САЙТЕ
		Общие сведения Учебные материалы Практические задания Примеры программ	От автора Используемые материалы Карта Благодарности

ТЕМЫ
Картинка Квадратное уравнение	Примеры программ uses crt; Var a,b,c,d,x1,x1,x:real; begin write('a='); readln(a); writeln('b=); readln(b); writeln('c='); d:=(b*b)-4*a*c; if d < 0 then writeln ('kornei net'); if d = o then begin x:=(-b)/(2*a); writeln('x= ',x); end; else begin x1:=(-b+sqrt(d);)/(2*a); x2:=(-b-sqrt(d);)/(2*a); writeln('x1= ',x1); writeln('x2= ',x2); readln; end.

---

Полезные сайты:

Электронный учебник по Турбо Паскалю       Пишу программы на Turbo Pascal