Результаты исследования в проекте Решение логических задач в 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
Form1: TForm1;
implementation
{$R *.dfm} 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 является оправданным в решении математической модели, потому что модель представляется наглядно
