Результаты исследования в проекте Математические здачи в Delphi: различия между версиями
Материал из Wiki Mininuniver
Перейти к навигацииПерейти к поиску (→Авторы и участники проекта) |
Icemist (обсуждение | вклад) (→Авторы и участники проекта) |
||
(не показаны 24 промежуточные версии 2 участников) | |||
Строка 1: | Строка 1: | ||
==Авторы и участники проекта== | ==Авторы и участники проекта== | ||
− | [[ | + | [[Участник:Торопов Максим]] |
+ | |||
+ | [[Участник:Сурмин Артём]] | ||
+ | |||
+ | [[Участник:Icemist|Участник:Воронов Алексей]] | ||
==Тема исследования группы== | ==Тема исследования группы== | ||
− | Математические задачи в Delphi | + | [[Учебный проект Математические задачи в 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. | ||
+ | |||
+ | [[Изображение:Безымянный568.bmp]] | ||
==Вывод== | ==Вывод== | ||
+ | |||
+ | 1)Проанализированы методы решения задач в Delphi и привён пример решения задачи. | ||
+ | |||
+ | 2)В них реализованы такие методы,как: | ||
+ | |||
+ | -решение задач при помощи программ; | ||
+ | |||
+ | -ввод функций; | ||
+ | |||
+ | -вывод результатов на экран. | ||
+ | |||
+ | 3)Использование языка Delphi является оправданным в решении математической модели, потому что модель представляется наглядно. | ||
==Полезные ресурсы== | ==Полезные ресурсы== |
Текущая версия на 16:31, 29 октября 2013
Содержание
Авторы и участники проекта
Тема исследования группы
Учебный проект Математические задачи в 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 является оправданным в решении математической модели, потому что модель представляется наглядно.