Результаты исследования в проекте Математические здачи в Delphi
Материал из Wiki Mininuniver
Версия от 11:02, 22 ноября 2011; Александр Гусев (обсуждение | вклад) (→Результаты проведённого исследования)
Содержание
Авторы и участники проекта
Тема исследования группы
Учебный проект Математические задачи в 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.
Вывод
Наша гипотеза подтверждена.