Автор работы: Пользователь скрыл имя, 04 Ноября 2011 в 12:01, курсовая работа
В последнее время резко возрос интерес к программированию. Это связано с развитием и внедрением в повседневную жизнь информационно-коммуникационных технологий. Если человек имеет дело с компьютером, то рано или поздно у него возникает желание, а иногда и необходимость, программировать. Среди пользователей персональных компьютеров в настоящее время наиболее популярно семейство операционных систем Windows и, естественно, что тот, кто собирается программировать, стремится писать программы, которые будут работать в этих системах.
Введение……………………………………………………………………………………………..4
1.Постановка задачи………………………………………………………………………………...5
1.1 Назначение и функции программы……………………………………………………………5
1.2 Математическая формулировка задачи………………………………………….……….……5
1.3 Информационная база задачи…………………………………………………………………10
1.3.1 Входная информация…………………………………………………………………...……10
1.3.2 Выходная информация………………………………………………………………………10
1.4 Система меню……………………………………………………………………….…….……11
1.5 Контрольные примеры…………………………………………………………………….…..14
2 Описание программы……………………………………………………………………………14
3 Описание применения………………………………………………………………...…………16
Заключение…………………………………………………………………….................................17
Список используемых источников……………………………………………………….……….18
Приложение А (алгоритм программы и подпрограммы)………………………………..………19
Приложение Б (блок – схема)…………………………………………………………....….……..20
Приложение В (листинг программы)………………
Приложение В (листинг программы)
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids;
type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
Button1: TButton;
Edit1: TEdit;
Label1: TLabel;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
Edit3: TEdit;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
n,m:integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
n:=StrToInt(Edit1.Text);
m:=StrToInt(Edit2.Text);
StringGrid1.RowCount:=n;
StringGrid1.ColCount:=m;
end;
procedure TForm1.Button2Click(Sender: TObject);
var i, k, Max, Min, buf1, buf2: integer;
Mas: array[1..100,1..100] of integer;
begin
for i:=1 to n do
for k:=1 to m do
Mas[i,k]:=StrToInt(
buf1:=0;buf2:=0;
for i:=1 to n do
begin
Min:=Mas[i,1];
for k:=1 to m do
if Mas[i,k]<=Min then
begin
Min:=Mas[i,k];
buf1:=k;
end;
Max:=Min;
for k:=1 to n do
if Mas[k,buf1]>=Max then
begin
Max:=Mas[k,buf1];
buf2:=k;
end;
if Max=Min then
Edit3.Text:='mas['+IntToStr(
end;
end;
end.
Информация о работе Определение седловой точки матричной игры