Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
dis_23
0 / 0 / 0
Регистрация: 05.02.2013
Сообщений: 2
#1

Листинг на delphi

08.02.2013, 22:35. Просмотров 766. Ответов 2
Метки нет (Все метки)

У меня есть только листинг на delphi как его преобразовать в рабочую программу?

вот листинг

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
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
unit Unit3222;
 
interface
 
uses
  Windows,
  Messages,
  SysUtils,
  Variants,
  Classes,
  Graphics,
  Controls,
  Forms,
  Dialogs,
  StdCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Button1: TButton;
    Label6: TLabel;
    Label7: TLabel;
    Edit5: TEdit;
    Label8: TLabel;
    Edit6: TEdit;
    Label9: TLabel;
    Edit7: TEdit;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
uses Math;
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var x1,x2,y1,y2: integer;
 
procedure DrawLine(x1, y1, x2, y2 : Integer);
var
  x11, y11, dx, dy, sx, sy, z, e, i: integer;
  Parity : Boolean;
begin
x11 := x1;
  y11 := y1;
  dx := Abs(x2 - x1);
  dy := Abs(y2 - y1);
  sx := Sign(x2 - x1);
  sy := Sign(y2 - y1);
  if (dx = 0) and (dy = 0) then
  begin
    Canvas.Pixels[x1, y1] := clBlack;
    Exit;
  end;
  if dy > dx then
  begin
    z := dx;
    dx := dy;
    dy := z;
    Parity := True;
  end else Parity := False;
  e := 2*dy - dx;
  i := 1;
  repeat
    Canvas.Pixels[x11, y11] := clBlack;
    while e >= 0 do
    begin
      if Parity then x11 := x11+sx else y11 := y11 + sy;
      e := e - 2*dx;
    end;
    if Parity then y11 := y11 + sy else x11 := x11 + sx;
    e := e + 2*dy;
    inc(i);
  until i > dx;
  Canvas.Pixels[x11, y11] := clBlack;
end;
 
begin
  x1 := StrToIntDef(Edit1.Text, 0);
  y1 := StrToIntDef(Edit2.Text, 0);
  x2 := StrToIntDef(Edit3.Text, 0);
  y2 := StrToIntDef(Edit4.Text, 0);
  DrawLine(x1,y1,x2,x2);
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
  x,y,_x,_y,r,r2: integer;
begin
begin
  x := StrToIntDef(Edit5.Text, 0);
  y := StrToIntDef(Edit6.Text, 0);
  r := StrToIntDef(Edit7.Text, 0);
end;
{x:=100; //x-êîîðäèГ*Г*ГІГ* öåГ*ГІГ°Г*
y:=100; //y-êîîðäèГ*Г*ГІГ* öåГ*ГІГ°Г*
r:=60;  //Г°Г*äèóñ }
r2:=sqr(r);
r :=round(r*3/4);
_x:=0;
_y:=0;
repeat
  _y:=round(sqrt(r2-sqr(_x)));
  SetPixel(Form1.Canvas.Handle,x+_x,y+_y,0);
  SetPixel(Form1.Canvas.Handle,x-_x,y+_y,0);
  SetPixel(Form1.Canvas.Handle,x-_x,y-_y,0);
  SetPixel(Form1.Canvas.Handle,x+_x,y-_y,0);
  SetPixel(Form1.Canvas.Handle,x+_y,y+_x,0);
  SetPixel(Form1.Canvas.Handle,x-_y,y+_x,0);
  SetPixel(Form1.Canvas.Handle,x-_y,y-_x,0);
  SetPixel(Form1.Canvas.Handle,x+_y,y-_x,0);
  inc(_x);
until _x>r;
end;
 
end.
Добавлено через 4 минуты
Кто нить может скинуть сразу работающую программу по этому листингу. завтра показать нужно преподу в 8,30 по Москве

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.02.2013, 22:35
Ответы с готовыми решениями:

Поясните листинг
unit Unit1; interface uses Windows, Messages, SysUtils, Variants,...

Полный листинг программы
ллл

Метрические характеристики. Имеется скриншот и листинг
Нужно сделать проект, чтобы в результате компиляции получилась прога и имела...

Есть листинг, подскажите как запустить
unit UnitMain; interface var Rashod: TRashod; implementation {$R *.dfm}...

Как увидеть полный листинг программы
Как увидеть полный листинг программы?

2
Germanant
107 / 107 / 110
Регистрация: 28.02.2011
Сообщений: 967
Завершенные тесты: 2
08.02.2013, 23:05 #2
Скинь почту или асю перешлю программу
1
dis_23
0 / 0 / 0
Регистрация: 05.02.2013
Сообщений: 2
09.02.2013, 01:01 #3
disww@yandex.ru

Добавлено через 1 минуту
Цитата Сообщение от Germanant Посмотреть сообщение
Скинь почту или асю перешлю программу
disww@yandex.ru
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.02.2013, 01:01

Объясните листинг программы по игре морской бой
(Перенесено из Turbo Pascal) Объясните листинг программы по игре морской...

Есть один листинг программы который нужно запустить и скомпилировать!(код не мой).
Вообщем скачал с inet листинг программы на Delphi и как вы уже догадались не...

Что лучше брать Delphi XE2, Delphi XE, Delphi 7?
Привет форумчане! У меня вопрос: что лучше брать Delphi XE2, Delphi XE, Delphi...


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

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

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