Результаты исследования студентов в проекте Программирование для математика
Содержание
Авторы и участники проекта
Участники группы "Неизвестные"
Тема исследования группы
Решаем уравнения
Проблемный вопрос (вопрос для исследования)
Как программирование помогает в решении уравнений?
Гипотеза исследования
Изучение языка программирования DELPHI поможет более эффективно решать математические задачи.
Цели исследования
1. Рассмотреть виды уравнений в математике
2. Выяснить какие имеются встроенные математические функции в среде Delphi
3. Подобрать уравнение, создать для него математическую модель, разработать алгоритм, написать программу на Delphi, выполнить решение.
Результаты проведённого исследования
1.Delphi — язык программирования, который используется в одноимённой среде разработки. Сначала язык назывался Object Pascal.
Виды уравнений:
А) Линейные уравнения
Б) Квадратные уравнения, и уравнения, приводимые к квадратным
В) Уравнения высших степеней
2.Математические функции
Функция Значение
Аbs (n) - Абсолютное значение n
Sqrt (n) - Квадратный корень из n
Sqr (n) - Квадрат n
Sin (n) - Синус n
Cos (n) - Косинус n
Arctan (n) - Арктангенс n
Ехр(n) - Экспонента n
Ln(n) - Натуральный логарифм n
Rardom(n) - Случайное целое число в диапазоне от 0 до n- 1
3.Решаем уравнение с помощью Delphi. Рассмотрим на примере:
procedure TForm1.Button1Click(Sender: TObject); var
a,b,c:real; // коэффициенты уравнения
d:real; // дискриминант
x1,x2:real; // корни уравнения
code:integer; // для преобразования текста в число
st1,st2:string[10];
begin // ввод исходных данных из полей редактирования
val(Edit1.text,a,code); // преобразование текста в число
val(Edit2.text,b,code);
val(Edit3.text,c,code);
if a=0
then Label1.caption:='Коэффициенты при второй степени'+chr(13)+'неизвестного равен нулю!'
else
begin // решение уравнения
d:=b*b-4*a*c;
if d<0
then Label1.caption:='Дискриминант < 0' +chr(13)+'Уравнение не имеет корней'
else
begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
str(x1:10:5,st1); // в переменные str1, str2 помещаются
str(x2:10:5,st2); // строковые изображения корней
Label1.Caption:='Корни уравнения:'+ chr(13)+'x1='+st1+ chr(13)+'x2='+st2;
end;
end;
end; end.
