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

Материал из НГПУ им. К.Минина
Перейти к: навигация, поиск
(Вывод)
(Вывод)
Строка 62: Строка 62:
  
 
-решение задач при помощи программ;
 
-решение задач при помощи программ;
 +
 
-ввод функций;
 
-ввод функций;
 +
 
-вывод результатов на экран.
 
-вывод результатов на экран.
  

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

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

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

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

Учебный проект Математические задачи в 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)Наша гипотеза подтверждена.

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

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