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

Материал из НГПУ им. К.Минина
Перейти к: навигация, поиск
(→‎Авторы и участники проекта)
(→‎Результаты проведённого исследования)
 
(не показано 17 промежуточных версий этого же участника)
Строка 10: Строка 10:
  
 
== Гипотеза исследования ==
 
== Гипотеза исследования ==
 +
Чтобы составить математическую модель необходимо выполнить формализацию задачи(представить её в виде математических соотношений)
  
 
==Цели исследования==
 
==Цели исследования==
 +
 +
1.Познакомится с логическими функциями в Delphi.
 +
 +
2.Подобрать задачу, выполнить постановку задачи.
 +
 +
3.Разработать алгоритм и программы решения задачи.
 +
 +
4.Проанализировать результаты.
  
 
==Результаты проведённого исследования==
 
==Результаты проведённого исследования==
 +
Логическая величина может принимать одно из двух значений 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го столбца.

Скрин программы Торопов Булахов1.JPG Скрин программы Торопов Булахов2.JPG

Код программы.

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 является оправданным в решении математической модели, потому что модель представляется наглядно

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

delphisources.ru

ru.wikibooks.org

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

Источник — «https://wiki.mininuniver.ru/index.php?title=Результаты_исследования_в_проекте_Решение_логических_задач_в_Delphi&oldid=36457»