|
Модераторы: volvo877, Snowy, MetalFan |
|
BlooDSikeR |
|
|||
Новичок Профиль Группа: Участник Сообщений: 7 Регистрация: 27.5.2009 Репутация: нет Всего: нет |
Вот задача которую задал препод
Дано рівняння виду x*x*a+x*b+c=0 .Знайти корені x1 ,та x2 Вот как я её зделал. program kv; var a,b,c,D,x1,x2:real; begin Write('a= '); ReadLn(a); Write('b= '); ReadLn(b); Write('c= '); ReadLn©; D:=b*b-4*a*c; if d<0 then writeln('НЕТУ КОРЕНЕЙ') else if d=0 then writeln('ОДИН КОРЕНЬ= ',-b/2*a) else begin d:=sqrt(d); x1:=(-b+d)/(2*a); x2:=(-b-d)/(2*a); WriteLn('x1=',x1); WriteLn('x2=',x2); end; end. Но препод сказал что она зделана не полностю,только для 3 випадков когда 1)D>0 2)D<0 3)D=0 А вот нужно написать ищо когда 4)а=0 5)b=0 6)c=0 7)a,b=0 8)a,c=0 9)b,c=0 10)a,b,c=0 Как написать програму на ету хрень... |
|||
|
||||
Keeper89 |
|
|||
Эксперт Профиль Группа: Завсегдатай Сообщений: 2580 Регистрация: 26.2.2009 Репутация: нет Всего: 58 |
Вот мой вариант:
P.S. Пиши по-русски. Это сообщение отредактировал(а) Keeper89 - 5.6.2009, 23:30 |
|||
|
||||
bems |
|
|||
Эксперт Профиль Группа: Комодератор Сообщений: 3400 Регистрация: 5.1.2006 Репутация: нет Всего: 88 |
Keeper89, со скобками фигня какая-то
-------------------- Обижено школьников: 8 |
|||
|
||||
Keeper89 |
|
|||
Эксперт Профиль Группа: Завсегдатай Сообщений: 2580 Регистрация: 26.2.2009 Репутация: нет Всего: 58 |
bems, подправил.
Это сообщение отредактировал(а) Keeper89 - 5.6.2009, 23:30 |
|||
|
||||
BlooDSikeR |
|
|||
Новичок Профиль Группа: Участник Сообщений: 7 Регистрация: 27.5.2009 Репутация: нет Всего: нет |
Keeper89ну я в таком плане и думал,но нужно всьо правильно оргинизовать
|
|||
|
||||
Keeper89 |
|
|||
Эксперт Профиль Группа: Завсегдатай Сообщений: 2580 Регистрация: 26.2.2009 Репутация: нет Всего: 58 |
Вот, все правильно организовано:
|
|||
|
||||
BlooDSikeR |
|
|||
Новичок Профиль Группа: Участник Сообщений: 7 Регистрация: 27.5.2009 Репутация: нет Всего: нет |
Keeper89 спасиб,работает на всех случаях
Это сообщение отредактировал(а) BlooDSikeR - 6.6.2009, 13:45 |
|||
|
||||
Правила форума "Delphi" | |
|
Запрещается! 1. Обсуждать и делится взломанными компонентами или программным обеспечением 2. Публиковать ссылки на варез 3. Оффтопить
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, THandle, Rrader, volvo877. |
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | Object Pascal: кроссплатформенные технологии | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |