Результаты исследования студентов в проекте Программирование для математика

Авторы и участники проекта

• Алексеева Алёна
• Захарова Галя

Участники группы "Неизвестные"

Тема исследования группы

Решаем уравнения

Проблемный вопрос (вопрос для исследования)

Как программирование помогает в решении уравнений?

Гипотеза исследования

Изучение языка программирования 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.

Полезные ресурсы

Виды уравнений