![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Регистрация: 11.06.2013
Сообщений: 3
|
![]()
Даны три квадратных уравнения (ax^2+bx+c=0 , bx^2+ax+c=0 , cx^2+ax+b=0). Определить процедуру, позволяющую распознавать наличие вещественных корней в квадратном уравнении.
procedure kvad(a, b, c: real); var D: real; begin D:=sqr(b) - 4*a*c; if D > 0 then . . . . . . writeln (' Первое ур') kvad(a,b,c) (b,a,c) (c,a,b) Вот набросок, оформите полностью программу. |
![]() |
![]() |
![]() |
#2 |
Made In USSR!
Старожил
Регистрация: 01.09.2010
Сообщений: 3,657
|
![]() Код:
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой" Последний раз редактировалось Mad_Cat; 17.09.2013 в 11:14. |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Даны три фамилии и три имени | SmokeScreen | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 17.06.2013 21:18 |
Даны три квадратных уравнения | Genius94 | Помощь студентам | 0 | 14.06.2012 07:15 |
Три квадратных уравнения. Найти минимальное значение среди действительных корней этих уравнений. Паскаль. | GE076 | Помощь студентам | 2 | 17.12.2007 20:41 |