0 / 0 / 0
Регистрация: 09.10.2013
Сообщений: 17
1

Блок-схема

09.10.2013, 22:43. Показов 375. Ответов 0
Метки нет (Все метки)

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

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
unit John;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Samples.Spin,
  Vcl.ExtCtrls;
 
type
  TForm1 = class(TForm)
    Shape1: TShape;
    Shape2: TShape;
    Shape3: TShape;
    Shape4: TShape;
    Shape5: TShape;
    Shape6: TShape;
    SS: TShape;
    Shape8: TShape;
    Shape9: TShape;
    SE_X: TSpinEdit;
    SE_Y: TSpinEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    LRes: TLabel;
    BExit: TButton;
    BOk: TButton;
    Shape10: TShape;
    Shape11: TShape;
    Shape12: TShape;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    SP: TShape;
    Shape13: TShape;
    Shape7: TShape;
    procedure BExitClick(Sender: TObject);
    procedure BOkClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.BExitClick(Sender: TObject);
begin
  Close;
end;
 
procedure TForm1.BOkClick(Sender: TObject);
Var
  x,y : byte;
  R   : Boolean;
begin
  x := SE_X.Value;
  y := SE_Y.Value;
  SP.Left :=(SS.Left - SS.Width)+X*(SS.Width div 5);
  SP.Top  :=(SS.Top + 2*SS.Height)- Y*(SS.Height div 5);
  if ((((X>=5)AND(x<=20))AND
      ((Y>=5)AND(y<=20)))
     AND NOT
     (((X>5)ANd(X<10))and((Y>10)AND(y<15))
     AND NOT
     ((x>15)and(x<20))and((y>10)and(y<15))))
     THEN R :=True
     ELSE R :=False;
     if R then LRes.Caption:='Попал!'
          else LRes.Caption:='Мимо!';
 
 
end;
 
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.10.2013, 22:43
Ответы с готовыми решениями:

Блок-схема
Добрый день,помогите пожалуйста построить подробную блок-схему метода Гомори

блок-схема
помогите составить блок-схему пожалуйста по программе unit Unit1; interface uses Windows,...

блок-схема
пожалуста сделайте блок-схему по программе unit Unit1; interface uses Windows, Messages,...

Блок-Схема
есть 6 кодов,нужно создать по каждому блок схему,помогите пожалуйста

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.10.2013, 22:43

Блок-схема!
Помогите составить блок-схему!!! Пожалуйста!

Блок-схема
Помогите с блок схемой unit Unit1; interface uses Windows, Messages, SysUtils, Variants,...

Блок схема
Составьте пожалуйста блок-схему для программы...Она печатает номер каждого столбца, сумма элементов...

Блок-схема.
Всем привет. Ребята, помогите сделать блок-схему, на телефон кину денюшку. Собственно, задача...


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

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

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