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

Материал из НГПУ им. К.Минина
Перейти к: навигация, поиск
(Авторы и участники проекта)
(Авторы и участники проекта)
 
(не показано 27 промежуточных версий 2 участников)
Строка 1: Строка 1:
 
==Авторы и участники проекта==
 
==Авторы и участники проекта==
Александр Гусев
+
[[Участник:Торопов Максим]]
 +
 
 +
[[Участник:Сурмин Артём]]
 +
 
 +
[[Участник:Icemist|Участник:Воронов Алексей]]
  
 
==Тема исследования группы==
 
==Тема исследования группы==
 +
[[Учебный проект Математические задачи в Delphi]]
  
 
== Проблемный вопрос (вопрос для исследования)==
 
== Проблемный вопрос (вопрос для исследования)==
 +
Как на Delphi составить математическую модель задачи?
  
 
== Гипотеза исследования ==
 
== Гипотеза исследования ==
 +
Изучение языка программирования DELPHI поможет более эффективно решать математические задачи.
  
 
==Цели исследования==
 
==Цели исследования==
 +
#Подобрать примеры математических задач
 +
#Составить алгоритмы решения задач
 +
#Составить программу на языке Delphi
 +
#Выполнить анализ результата
  
 
==Результаты проведённого исследования==
 
==Результаты проведённого исследования==
 +
 +
Решаем уравнение с помощью 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.
 +
 +
[[Изображение:Безымянный568.bmp]]
  
 
==Вывод==
 
==Вывод==
 +
 +
1)Проанализированы методы решения задач в Delphi и привён пример решения задачи.
 +
 +
2)В них реализованы такие методы,как:
 +
 +
-решение задач при помощи программ;
 +
 +
-ввод функций;
 +
 +
-вывод результатов на экран.
 +
 +
3)Использование языка Delphi является оправданным в решении математической модели, потому что модель представляется наглядно.
  
 
==Полезные ресурсы==
 
==Полезные ресурсы==

Текущая версия на 16:31, 29 октября 2013

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

Участник:Торопов Максим

Участник:Сурмин Артём

Участник:Воронов Алексей

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

Учебный проект Математические задачи в Delphi

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

Как на Delphi составить математическую модель задачи?

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

Изучение языка программирования DELPHI поможет более эффективно решать математические задачи.

Цели исследования

  1. Подобрать примеры математических задач
  2. Составить алгоритмы решения задач
  3. Составить программу на языке Delphi
  4. Выполнить анализ результата

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

Решаем уравнение с помощью 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.

Ошибка создания миниатюры: Данный тип изображения не поддерживается

Вывод

1)Проанализированы методы решения задач в Delphi и привён пример решения задачи.

2)В них реализованы такие методы,как:

-решение задач при помощи программ;

-ввод функций;

-вывод результатов на экран.

3)Использование языка Delphi является оправданным в решении математической модели, потому что модель представляется наглядно.

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

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