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

Материал из Wiki Mininuniver
Перейти к навигацииПерейти к поиску
(Вывод)
(Проблемный вопрос (вопрос для исследования))
Строка 6: Строка 6:
  
 
== Проблемный вопрос (вопрос для исследования)==
 
== Проблемный вопрос (вопрос для исследования)==
Как составить математическую модель задачи?
+
Как на Delphi составить математическую модель задачи?
  
 
== Гипотеза исследования ==
 
== Гипотеза исследования ==

Версия 11:22, 22 ноября 2011

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

Участник:Александр Гусев

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

Учебный проект Математические задачи в 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 является оправданным в решении математической модели, потому что модель представляется наглядно.

4)Наша гипотеза подтверждена.

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

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