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

Материал из НГПУ им. К.Минина
Перейти к: навигация, поиск
(Полезные ресурсы)
(Результаты проведённого исследования)
Строка 69: Строка 69:
  
  
3.
+
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.
  
 
==Вывод==
 
==Вывод==

Версия 11:00, 4 декабря 2010

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

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

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

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

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

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

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

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

Вывод

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

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

Другие документы