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

Версия 11:12, 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.

Вывод

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

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

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