Главная
Ссылки
Главное меню
Главная
Скачать
О языке Паскаль
Что нового
Скриншоты
Web-среда разработки
Описание языка
Школьнику - задачи ЕГЭ
Статьи
Доклады и публикации
Примеры программ
Разработчики
Ссылки
Wiki
Форум
Гостевая книга
Случайная программа
// Корни квадратного
// уравнения
var
a,b,c:
real
;
x1,x2,D:
real
;
begin
readln(a,b,c);
D := b*b -
4
*a*c;
if
D<
0
then
writeln(
'Корней нет'
)
else
if
D=
0
then
begin
x1 := -b/
2
/a;
writeln(
'x1=x2='
,x1);
end
else
begin
x1 := (-b-sqrt(D))/
2
/a;
x2 := (-b+sqrt(D))/
2
/a;
writeln(
'x1='
,x1,
' x2='
,x2);
end
;
end
.
Баннеры
Ссылки
Полезные ссылки на ресурсы в сети
Сайты и Web-страницы с информацией о PascalABC.NET
(1)
Сайты ЮФУ
(3)
Языки программирования и компиляторы
(5)
Разное
(5)
© 2007-2012, PascalABCNET Team Южный федеральный университет (РГУ)