Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 01.12.2011, 16:49   #1 (permalink)
Сашkа
Новичок
 
Регистрация: 01.12.2011
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
Post Пожалуйста, помогите написать программу Pascal Free

Ребят, пожалуйста, помогите написать программку, по теме `процедуры и функции`...с использование `procedure` и `function`, очень вас прошу

Пользователь вводит три вещественных числа: a,b,c. Составить функцию для решения уравнения (a–x)/(b–x)=сx, которая получает введенные числа в качестве параметров. Найденные корни уравнения функция возвращает в качестве двух других параметров.
Результат, который возвращает сама функция, должен позволять отслеживать следующие случаи (зависящие от значений введенных чисел): уравнение имеет только один корень, нет вещественных корней, корни одинаковы, деление на нуль.
Миниатюры
2.jpg  
Сашkа вне форума   Ответить с цитированием

Старый 01.12.2011, 16:49
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Ознакомьтесь с данными темами и вы наверняка найдете что то важное

Помогите, пожалуйста, написать программу с массивом
Помогите, пожалуйста, написать программу на C++

Старый 01.12.2011, 18:33   #2 (permalink)
AlexZir
support
 
Аватар для AlexZir
 
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
По умолчанию

Цитата:
Сообщение от Сашkа Посмотреть сообщение
нет вещественных корней
Может быть, имелись в виду действительные корни? Ведь квадратное уравнение обязательно имеет решение в комплексных числах и не так часто - в действительных . Будем считать, что преподаватель ваш имел в виду действительные корни.

Для начала определимся с ОДЗ
Уравнение не имеет решения при x=b, так как знаменатель дроби не должен быть равным 0. Следовательно, мы должны рассматривать этот случай как деление на 0 при выводе результатов.

Дальше избавляемся от знаменателя, для чего обе части уравнения умножаем на (b-x), получаем следующее:
a-x=cxb-cx^2
cx^2-(cb+1)*x+a=0
Находим дискриминант:
d=(cb+1)^2-4*c*a
Анализируем дискриминант, на этом этапе происходит требуемое отслеживание еще 3-х случаев. Для функции можно предусмотреть возврат дополнительного параметра в виде целого числа, содержащего номер случая, который впоследствии можно вывести с соответствующим текстом.
Затем находим корни уравнения, если это возможно. вообще вся задача - это чистая математика уровня 8 класса.

Функцию вам самостоятельно написать особого труда не составит, тем более что в справке среды есть много примеров их реализаций.
AlexZir вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Метки
pascal


Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 17:39.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.