Результаты исследования в проекте Решение логических задач в Delphi — различия между версиями
(→Результаты проведённого исследования) |
(→Результаты проведённого исследования) |
||
| Строка 38: | Строка 38: | ||
[[Изображение:Скрин программы Торопов Булахов1.JPG|300px]] | [[Изображение:Скрин программы Торопов Булахов1.JPG|300px]] | ||
[[Изображение:Скрин программы Торопов Булахов2.JPG|300px]] | [[Изображение:Скрин программы Торопов Булахов2.JPG|300px]] | ||
| + | |||
| + | Код: | ||
| + | ''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.'' | ||
==Вывод== | ==Вывод== | ||
Версия 09:19, 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
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 является оправданным в решении математической модели, потому что модель представляется наглядно
