Результаты исследования в проекте Решение логических задач в Delphi — различия между версиями
(→Результаты проведённого исследования) |
(→Результаты проведённого исследования) |
||
(не показано 13 промежуточных версий этого же участника) | |||
Строка 10: | Строка 10: | ||
== Гипотеза исследования == | == Гипотеза исследования == | ||
+ | Чтобы составить математическую модель необходимо выполнить формализацию задачи(представить её в виде математических соотношений) | ||
==Цели исследования== | ==Цели исследования== | ||
Строка 22: | Строка 23: | ||
==Результаты проведённого исследования== | ==Результаты проведённого исследования== | ||
− | [[Изображение:Торопов | + | Логическая величина может принимать одно из двух значений True (истина) или False (ложь). В языке Delphi логические величины относят к типу Boolean. |
− | [[Изображение:Торопов | + | |
+ | В Delphi используются следующие логические операции: | ||
+ | |||
+ | Not- не, отрицание | ||
+ | |||
+ | Or-или,дизьюнкция | ||
+ | |||
+ | And-и,коньюнкция | ||
+ | |||
+ | Результаты проведенного исследование мы рассмотрели на примере следующей задачи: | ||
+ | Дан массив A(z,z) сформированый целыми случайными числами в промежутке [9,160] найти сумму элементов выше главной диагонали которые являются кратными 3м и среднеарифмитическое элементов z-2го столбца. | ||
+ | |||
+ | [[Изображение:Скрин программы Торопов Булахов1.JPG|300px]] | ||
+ | [[Изображение:Скрин программы Торопов Булахов2.JPG|300px]] | ||
+ | |||
+ | '''Код программы.''' | ||
+ | |||
+ | var a:array[1..100,1..100] of integer; | ||
+ | |||
+ | z,i,j,s,s1:integer; | ||
+ | |||
+ | b1:real; | ||
+ | |||
+ | procedure TForm1.BitBtn1Click(Sender: TObject); | ||
+ | |||
+ | begin | ||
+ | |||
+ | S1:=0; | ||
+ | |||
+ | s:=0; | ||
+ | |||
+ | b1:=0; | ||
+ | |||
+ | z:=strtoint(Edit1.text); | ||
+ | |||
+ | randomize; | ||
+ | |||
+ | For i:= 1 to z do | ||
+ | |||
+ | begin | ||
+ | |||
+ | For j:=1 to z do | ||
+ | |||
+ | begin | ||
+ | |||
+ | a[i,j]:=random(160-9)+9; | ||
+ | |||
+ | Stringgrid1.Cells[i-1,0]:=inttostr(a[i,j]); | ||
+ | |||
+ | If (j>i) and (a[i,j]mod 3=0) then S:=S+A[i,j]; | ||
+ | |||
+ | If (j=z-2) then S1:=S1+A[i,j]; | ||
+ | |||
+ | end; | ||
+ | |||
+ | end; | ||
+ | |||
+ | b1:=S1/z; | ||
+ | |||
+ | Label1.Caption:='Сумма эл-в выше главной диагонали которые являются кратными 3'+floattostr(S); | ||
+ | |||
+ | end; | ||
+ | |||
+ | end. | ||
==Вывод== | ==Вывод== | ||
+ | Использование языка Delphi является оправданным в решении математической модели, потому что модель представляется наглядно | ||
==Полезные ресурсы== | ==Полезные ресурсы== | ||
+ | |||
+ | [http://www.delphisources.ru delphisources.ru] | ||
+ | |||
+ | [http://ru.wikibooks.org ru.wikibooks.org] | ||
== Другие документы == | == Другие документы == |
Текущая версия на 09:23, 13 декабря 2011
Содержание
Авторы и участники проекта
Участник:Булахов Максим Участник:Торопов Максим Евгеньевич
Тема исследования группы
Решение логических задач на Delphi
Проблемный вопрос (вопрос для исследования)
Как с помощью Delphi решить криминалистическую задачу?
Гипотеза исследования
Чтобы составить математическую модель необходимо выполнить формализацию задачи(представить её в виде математических соотношений)
Цели исследования
1.Познакомится с логическими функциями в Delphi.
2.Подобрать задачу, выполнить постановку задачи.
3.Разработать алгоритм и программы решения задачи.
4.Проанализировать результаты.
Результаты проведённого исследования
Логическая величина может принимать одно из двух значений True (истина) или False (ложь). В языке Delphi логические величины относят к типу Boolean.
В Delphi используются следующие логические операции:
Not- не, отрицание
Or-или,дизьюнкция
And-и,коньюнкция
Результаты проведенного исследование мы рассмотрели на примере следующей задачи: Дан массив A(z,z) сформированый целыми случайными числами в промежутке [9,160] найти сумму элементов выше главной диагонали которые являются кратными 3м и среднеарифмитическое элементов z-2го столбца.
Код программы.
var a:array[1..100,1..100] of integer;
z,i,j,s,s1:integer;
b1:real;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
S1:=0;
s:=0;
b1:=0;
z:=strtoint(Edit1.text);
randomize;
For i:= 1 to z do
begin
For j:=1 to z do
begin
a[i,j]:=random(160-9)+9;
Stringgrid1.Cells[i-1,0]:=inttostr(a[i,j]);
If (j>i) and (a[i,j]mod 3=0) then S:=S+A[i,j];
If (j=z-2) then S1:=S1+A[i,j];
end;
end;
b1:=S1/z;
Label1.Caption:='Сумма эл-в выше главной диагонали которые являются кратными 3'+floattostr(S);
end;
end.
Вывод
Использование языка Delphi является оправданным в решении математической модели, потому что модель представляется наглядно