Результаты исследования в проекте Математические здачи в Delphi
Материал из Wiki Mininuniver
Версия от 09:13, 13 декабря 2011; Александр Гусев (обсуждение | вклад) (→Авторы и участники проекта)
Содержание
Авторы и участники проекта
Тема исследования группы
Учебный проект Математические задачи в 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.
Ошибка создания миниатюры: Данный тип изображения не поддерживается
Вывод
1)Проанализированы методы решения задач в Delphi и привён пример решения задачи.
2)В них реализованы такие методы,как:
-решение задач при помощи программ;
-ввод функций;
-вывод результатов на экран.
3)Использование языка Delphi является оправданным в решении математической модели, потому что модель представляется наглядно.