Результаты исследования в проекте Решение логических задач в Delphi — различия между версиями

Версия 09:22, 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го столбца.

<math> 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.</math>

Вывод

Использование языка Delphi является оправданным в решении математической модели, потому что модель представляется наглядно

Полезные ресурсы

delphisources.ru

ru.wikibooks.org

Другие документы