Меню сайта
Для студента
SEO & SMO
Категории раздела
| Delphi [2] |
| Assembler [5] |
| Курсовые проекты [4] |
| Разное [1] |
| Pascal [16] |
| Невероятно, но факт [1] |
| Заказать курсовую [1] |
| SEO [1] |
| С/C++ [10] |
| Дипломные работы [1] |
| Бизнес-цитатник [2] |
Опросник
Поддержать проект
Благодарность выразило,чел: 7
Статистика
Полная статистика
Онлайн всего: 1
Гостей: 1
Пользователей: 0
| Главная » Статьи » Pascal |
Найти действительные корни квадратного уравнения вида ax2+bx+c=0 . (если действительных корней нет, то выдать соответствующее сообщение)
| Program zad7; Var x1,x2,d,a,b,c:real ; Begin writeln('введите a'); readln (a); writeln ('введите b'); readln (b); writeln('введите c'); readln (c); d:=(b*b)-(4*a*c); if d>0 then begin x1:=(-b+(sqrt(d))/(2*a)); x2:=(-b-(sqrt(d))/(2*a)); else writeln ('действительных корней нет'); writeln (x1:0:3); writeln(x2:0:3); end. | |
| Просмотров: 2498 | Теги: | Рейтинг: 1.0/1 |
| Всего комментариев: 0 | |
