Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.09.2013, 11:03   #1
Allexey
 
Регистрация: 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)

Вот набросок, оформите полностью программу.
Allexey вне форума Ответить с цитированием
Старый 17.09.2013, 11:12   #2
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

Код:
procedure RSqRoot(a, b, c: real;var res:boolean);
var
begin
res:= sqr(b) - 4*a*c>= 0;
end;

var a1,b1,c1:real;f:boolean;
i:byte;
begin
for i:=1 to 3 do
begin
readln(a1,b1,c1);
RSqRoot(a1,b1,c1,f);
writeln(f);
end;
end.
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"

Последний раз редактировалось Mad_Cat; 17.09.2013 в 11:14.
Mad_Cat вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Даны три фамилии и три имени 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