С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
TheUnique
0 / 0 / 0
Регистрация: 26.04.2015
Сообщений: 25
1

Блок-схема программы

02.05.2015, 17:57. Просмотров 216. Ответов 0
Метки нет (Все метки)

Помогите пожалуйста составить блок-схемы к программам.

1.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
const
n=2;
var
a:array[0..n,0..n] of integer;
i,j,min,min1,min2:integer;
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
for i:=0 to n do
for j:=0 to n do
begin
a[0,0]:=4;
a[1,0]:=5;
a[2,0]:=3;
a[0,1]:=7;
a[1,1]:=8;
a[2,1]:=1;
a[0,2]:=3;
a[1,2]:=5;
a[2,2]:=2;
StringGrid1.Cells[j,i]:=IntToStr(a[i,j]);
end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
mini,max,maxi,maxi1,mini1:integer;
begin
 max:=a[0,0];
 for i:=0 to n do
 begin
  min:=a[i,0];
  for j:=0 to n do
  begin
   if min>a[i,j] then
   begin
    min:=a[i,j];
   end;
  if min>max then
  begin
  max:=min;
  mini:=i;
  maxi:=j;
  Label2.Caption:='Первая точка: '+IntTostr(max)+ ', '+'Координаты '+IntToStr(mini+1)+ ' '+IntToStr(maxi+1);
  end;
  if min>=max then
  begin
  max:=min;
  mini1:=i;
  maxi1:=j;
  Label2.Caption:='Первая точка: '+IntTostr(max)+ ', '+'Координаты '+IntToStr(mini+1)+ ' '+IntToStr(maxi+1)+ ';  '+ 'Вторая точка: '+IntTostr(max)+ ', '+'Координаты '+IntToStr(mini1+1)+ ' '+IntToStr(maxi1+1);;
  end;
  end;
 end;
end;
end.
2.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
procedure TForm1.FormCreate(Sender: TObject);
begin
 Memo1.Clear;
 Memo2.Clear;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
a:array of string;                  
n,i,j:integer;
ss:string;
begin
n:=Memo1.Lines.Count;
setlength(a,n);
for i:=0 to n-1 do
a[i]:=Memo1.Lines[i];
for i:=0 to n-2 do
for j:=i+1 to n-1 do
if Length(a[i])>Length(a[j]) then
 begin
  ss:=a[i];
  a[i]:=a[j];
  a[j]:=ss;
 end;
for i:=0 to n-1 do
Memo2.Lines.Add(a[i]);
end;
 
end.
3.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
type
 fish=(karp,karas,okun,sazan,shuka,som);
 mnz=set of fish;
const
 n=3;
 naz:array[0..5] of string=('Карп','Карась','Окунь','Сазан','Щука','Сом');
var
 a:array[1..n] of mnz;
 mn:integer;
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Button1.Enabled:=true;
Button2.Enabled:=false;
Button3.Enabled:=false;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
 i:integer;
begin
inc(mn);
for i:=1 to 6 do
TCheckBox(FindComponent('CheckBox'+inttostr(i))).Checked:=false;
Showmessage('Выберите рыб для множества '+inttostr(mn));
Button1.Enabled:=false;
Button2.Enabled:=true;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
 i:integer;
 k:fish;
begin
a[mn]:=[];
for i:=1 to 6 do
if TCheckBox(FindComponent('CheckBox'+IntToStr(i))).Checked then
a[mn]:=a[mn]+[fish(i-1)];
for k:=karp to som do
if k in a[mn] then TMemo(FindComponent('Memo'+IntToStr(mn))).Lines.Add(naz[ord(k)]);
Button1.Enabled:=true;
Button2.Enabled:=false;
if mn=3 then
 begin
  Button1.Enabled:=false;
  Button2.Enabled:=false;
  Button3.Enabled:=true;
 end;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
var
 k:fish;
 f,w,i:integer;
begin
f:=0;
for k:=karp to som do
 begin
  w:=0;
  for i:=1 to n do
  if k in a[i] then w:=w+1;
  if w=3 then
   begin
    Memo4.Lines.Add(naz[ord(k)]);
    f:=1;
   end;
 end;
if f=0 then
Memo4.Lines.Add('Таких видов рыб нет!');
f:=0;
for k:=karp to som do
 begin
  w:=0;
  for i:=1 to n do
  if k in a[i] then
  w:=w+1;
  if w=0 then
   begin
    Memo5.Lines.Add(naz[ord(k)]);
    f:=1;
   end;
 end;
if f=0 then
Memo5.Lines.Add('Таких видов рыб нет!');
end;
 
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.05.2015, 17:57
Ответы с готовыми решениями:

Блок-схема программы
Здавствуйте, помогите пожалуйста построить блок схему для программы. Не важно...

Блок-схема программы
помогите пожалуйста составить блок-схему данной программы))) буду безумно...

Блок-схема до программы
Помогите нарисовать блок-схему к этой программе: unit Unit1; interface ...

Блок-схема для программы
Совсем запуталась с составлением блок схемы, вот программа: procedure...

Блок-схема для программы
Помогите пожалуйста построить блок схемы для этой программы,я уже запуталась :)...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.05.2015, 17:57

Блок схема для программы
unit Unit1; interface uses Windows, Messages, SysUtils, Variants,...

Описание входных и выходных параметров программы, блок-схема
помогите я больше не могу( у меня есть код Var A,B,C,D : TPoint; ...

Блок схема
program Project34; {$APPTYPE CONSOLE} uses SysUtils; var a:array...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru