Результаты исследования в проекте Решение логических задач в Delphi
Содержание
Авторы и участники проекта
Участник:Булахов Максим Участник:Торопов Максим Евгеньевич
Тема исследования группы
Решение логических задач на 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 является оправданным в решении математической модели, потому что модель представляется наглядно
