Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
dis_23
0 / 0 / 0
Регистрация: 05.02.2013
Сообщений: 2
#1

Листинг на delphi - Delphi

08.02.2013, 22:35. Просмотров 759. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Листинг на delphi (Delphi):

Поясните листинг - Delphi
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,...

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

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

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

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

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

2
Germanant
107 / 107 / 40
Регистрация: 28.02.2011
Сообщений: 963
Завершенные тесты: 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
Привет! Вот еще темы с ответами:

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

Нужен листинг программки,которая будет брать значения из Edit или других компонентов,производить вычисления умножения,деления,сложения и вычитания - Delphi
Нужен листинг программки,которая будет брать значения из Edit или других компонентов,производить вычисления умножения,деления,сложения и...

Какие отличия Delphi 5, Delphi 6 и Delphi 7 - Delphi
Кто-нибудь юзал Delphi 6? Если да, то напишите, плиз, его отличия от 5-ой версии (плюсы и минусы) Кстати, никто не слышал ничего о Delphi...

ZipForge для Delphi Xe - интерфейс стал выглядеть как в Delphi 2007 - Delphi
Народ!!! Помоготи!!! Установил компонент ZipForge для Delphi Xe и после этого интерфейс моей программы стал таким, как будто я его в delphi...


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

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

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