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

Обозначение данных в программе

23.12.2016, 14:40. Просмотров 810. Ответов 6
Метки нет (Все метки)

Здравствуйте.
Есть программа, вычисляет касательные. Нужно обозначить угол Фи как в геометрии, т.е. нарисовать дугу от одного луча, к другому и подписать точки касания(M, N) и токча(P) из которой выходят касательные(нарисую красным маркером)
Прикрпелю скрины и сам проект
0
Миниатюры
Обозначение данных в программе  
Вложения
Тип файла: rar ЛБ.rar (2.18 Мб, 1 просмотров)
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.12.2016, 14:40
Ответы с готовыми решениями:

Цифровое обозначение клавиш
Добрый день. Не могли бы вы дать ссылку на страничку в интернете или просто...

Передача данных сторонней программе
Доброго времени суток!!! Мне надо написать программу, которая будет передавать...

Передача данных другой программе
Привет, всем хотел начать делать свой небольшой мп3 плеер, и столкулся с одной...

Строковые типы данных(ошибка в программе)
Здравствуйте,вот программка осуществляющая нахождение минимального ничетного...

Добавление таблицы данных к программе расчета
Доброго времени суток. Я в Delphi плохо рублю, но надо сделать программу...

6
avstantso
72 / 71 / 43
Регистрация: 17.11.2016
Сообщений: 211
23.12.2016, 14:45 2
BogdanKu, а в чем, собственно, вопрос?
0
BogdanKu
0 / 0 / 1
Регистрация: 16.11.2015
Сообщений: 51
23.12.2016, 16:58  [ТС] 3
не знаю как дорисовать все то, что обозначено красным

Добавлено через 1 час 45 минут
я знаю насколько звучит глупо моя просьба, но обратиться могу только сюда
0
DenNik
Непрофессионал
2014 / 1500 / 308
Регистрация: 26.07.2011
Сообщений: 8,138
23.12.2016, 17:05 4
буквы рисуешь обычно, шрифтом каким тебе нравится
дугу. вычисляешь угол между лучами. потом рисуешь часть окружности с центром в точке Р (есть метод)
стрелки - это треугольники
0
BogdanKu
0 / 0 / 1
Регистрация: 16.11.2015
Сообщений: 51
23.12.2016, 17:32  [ТС] 5
Я понимаю все это, я не могу воплотить программным языком

Добавлено через 16 минут
или вот часть кода
Delphi
1
2
3
4
//êîîðäèГ*Г*ГІГ» òî÷åê ГЄГ*Г±Г*Г*ГЁГї
x3:=x-(y-y2)*h/b;
y3:=y+(x-x2)*h/b;
textout(x3,y3,'P')
пишет incompatible types hdc and double

Добавлено через 50 секунд
Эт осам код процедуры
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
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
unit Unit1;           //ГЈГ«.ôîðìГ*
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, jpeg, Menus;
 
type
  TMainForm = class(TForm)
    X: TEdit;
    Podpis: TLabel;
    Y: TEdit;
    Podpis2: TLabel;
    KnVychsl: TButton;
    KnGraph: TButton;
    Podpis3: TLabel;
    Radiany: TEdit;
    Gradusy: TEdit;
    Grady: TEdit;
    Edit6: TEdit;
    PaintBox1: TPaintBox;
    Podpis4: TLabel;
    Podpis5: TLabel;
    Podpis6: TLabel;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3211: TMenuItem;
    Fon2: TImage;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    procedure KnVychslClick(Sender: TObject);
    procedure KnGraphClick(Sender: TObject);
    procedure N3211Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure XKeyPress(Sender: TObject; var Key: Char);
    procedure YKeyPress(Sender: TObject; var Key: Char);
    procedure RadianyKeyPress(Sender: TObject; var Key: Char);
    procedure N3Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  MainForm: TMainForm;
  px,py,r,op,v:double;
implementation
 
{$R *.dfm}
uses Math, Unit3, Unit4, Unit5;//ìîäóäü äëÿ âû÷èñëåГ*ГЁГї arcsin
procedure dxdy(x1,y1,x2,y2,r:double;var dx,dy:double);
var a:double;
begin
if x1=x2 then
 begin
  dx:=0;
  dy:=r;
 end
else if y1=y2 then
 begin
  dx:=r;
  dy:=0;
 end
else
 begin
  a:=arctan(abs(y1-y2)/abs(x1-x2));
  dx:=r*cos(a);
  dy:=r*sin(a);
 end;
end;
procedure TMainForm.KnVychslClick(Sender: TObject);
var k:integer;
    f:double;
begin
val(X.Text,px,k);
if(k<>0)or(px<-16)or(px>10)then
 begin
  ShowMessage('ГЌГҐГўГҐГ°Г*Г® ââåäåГ*Г* êîîðäèГ*Г*ГІГ* Г•');
  X.Clear;
  X.SetFocus;
  exit;
 end;
val(Y.Text,py,k);
if(k<>0)or(py<-16)or(py>10)then
 begin
  ShowMessage('ГЌГҐГўГҐГ°Г*Г® ââåäåГ*Г* êîîðäèГ*Г*ГІГ* Y');
  Y.Clear;
  Y.SetFocus;
  exit;
 end;
op:=sqrt(px*px+py*py);
v:=1;
if op<=r then
 begin
  ShowMessage('Òî÷êГ* Г*ГҐ äîëæГ*Г* áûòü Гў êðóãå, ââåäèòå äðóãèå êîîðäèГ*Г*ГІГ»');
  X.Clear;
  X.SetFocus;
  Y.Clear;
  exit;
 end; 
r:=sqrt(15);
f:=2*arcsin(r/op);
Radiany.Text:=format('%.2f',[f]);
Gradusy.Text:=format('%.2f',[radtodeg(f)]);
Grady.Text:=format('%.2f',[radtodeg(f)/0.9]);
end;
 
procedure TMainForm.KnGraphClick(Sender: TObject);
var xc,yc,i:integer;
    x1,y1,x2,y2,x3,y3,x4,y4,r1,r2,a,b,h,d,x,y,m:double;
    d1,dx1,dy1,dx2,dy2:double;
    begin
      Repaint;
begin
if v=0 then
 begin
  showmessage('ГЌГҐ âûïîëГ*ГҐГ*Г» âû÷èñëåГ*ГЁГї');
  exit;
 end; 
//Г*Г*éäåì êîîðäèГ*Г*ГІГ» òî÷åê ГЄГ*Г±Г*Г*ГЁГї
x1:=0;
y1:=0;
x2:=px/2;
y2:=py/2;
r1:=r;
r2:=op/2;//ïîëîâèГ*Г* OP
d:=sqrt(sqr(x1-x2)+sqr(y1-y2));//Г°Г*ññòîÿГ*ГЁГҐ ìåæäó öåГ*ГІГ°Г*ìè îêðóæГ*îñòåé
b:=(sqr(r2)-sqr(r1)+sqr(d))/(2*d);
a:=d-b;
h:=sqrt(sqr(r2)-sqr(b));
x:=x1+(x2-x1)/(d/a);
y:=y1+(y2-y1)/(d/a);
//êîîðäèГ*Г*ГІГ» òî÷åê ГЄГ*Г±Г*Г*ГЁГї
x3:=x-(y-y2)*h/b;
y3:=y+(x-x2)*h/b;
textout(x3,y3,'P')
x4:=x+(y-y2)*h/b;
y4:=y-(x-x2)*h/b;
//âû÷èñëèì êîîðäèГ*Г*ГІГ» ГЄГ®Г*öîâ ГЄГ*Г±Г*òåëüГ*ûõ
d1:=sqrt(sqr(x3-px)+sqr(y3-py))+r1;//äëèГ*Г* ГЄГ*Г±Г*òåëüГ*îé Г± Г§Г*ГЇГ*ñîì
dxdy(x3,y3,px,py,2*r,dx1,dy1);
dxdy(x4,y4,px,py,2*r,dx2,dy2);
if x3<px then x3:=x3-dx1
else x3:=x3+dx1;
if y3<py then y3:=y3-dy1
else y3:=y3+dy1;
if x4<px then x4:=x4-dx2
else x4:=x4+dx2;
if y4<py then y4:=y4-dy2
else y4:=y4+dy2;
xc:=16*PaintBox1.Width div 26;
yc:=10*PaintBox1.Height div 26;
m:=(xc-30)/16; //Г¬Г*Г±ГёГІГ*ГЎ äëÿ ïåðåâîäГ* ðåГ*ëüГ*ûõ êîîðäèГ*Г*ГІ  Гў ГЅГЄГ°Г*Г*Г*ûå
with PaintBox1.Canvas do
 begin
 Pen.Width:=2;
  moveto(0,yc);lineto(PaintBox1.Width-2,yc); //îñè
  moveto(xc,0);lineto(xc,PaintBox1.Height-10);
  textout(PaintBox1.Width-15,yc-20,'X');
  textout(xc+10,10,'Y');
  for i:=1 to 16 do  //Г°Г*çãðГ*ГґГЄГ*
   begin
     Pen.Width:=2;
     Pen.Color:=clblack;
    moveto(xc+round(i*m),yc+3);
    lineto(xc+round(i*m),yc-3);
    moveto(xc-round(i*m),yc+3);
    lineto(xc-round(i*m),yc+3);
    lineto(xc-round(i*m),yc-3);
    moveto(xc-3,yc-round(i*m));
    lineto(xc+3,yc-round(i*m));
    moveto(xc-3,yc+round(i*m));
    lineto(xc+3,yc+round(i*m));
    if i mod 2=0 then
     begin
       Pen.Color:=clblack;
      brush.Style:=bsClear;
      textout(xc+round(i*m),yc+10,IntToStr(i));
      textout(xc-round(i*m),yc+10,IntToStr(-i));
      textout(xc-20,yc-round(i*m),IntToStr(i));
      textout(xc-20,yc+round(i*m),IntToStr(-i));
     end;
   end;
  brush.Style:=bsClear;
  ellipse(xc-round(r*m),yc-round(r*m),xc+round(r*m),yc+round(r*m));
  brush.Color:=clBlue;
  brush.Style:=bsSolid;
  ellipse(xc+round(px*m)-2,yc-round(py*m)-2,xc+round(px*m)+2,yc-round(py*m)+2);
  moveto(xc+round(x3*m),yc-round(y3*m));
  lineto(xc+round(px*m),yc-round(py*m));  
  moveto(xc+round(x4*m),yc-round(y4*m));
  lineto(xc+round(px*m),yc-round(py*m));
 end;
end;
end;
 
procedure TMainForm.N3211Click(Sender: TObject);
begin
 close;
end;
 
procedure TMainForm.N1Click(Sender: TObject);
begin
about.Show;
end;
 
procedure TMainForm.XKeyPress(Sender: TObject; var Key: Char);
begin
If not (Key in ['0'..'9','-', #8]) then
Key:=#0;
end;
 
procedure TMainForm.YKeyPress(Sender: TObject; var Key: Char);
begin
If not (Key in ['0'..'9', '-', #8]) then
Key:=#0;
end;
 
procedure TMainForm.RadianyKeyPress(Sender: TObject; var Key: Char);
const digit:set of char= ['0'..'9'];
begin
 
if not (key in Digit) then
key:=#0;
end;
 
procedure TMainForm.N3Click(Sender: TObject);
begin
Solution.Show;
Solution.formstyle:=fsStayOnTop;
end;
 
procedure TMainForm.N5Click(Sender: TObject);
begin
 instr.Show;
end;
 
procedure TMainForm.N6Click(Sender: TObject);
begin
about.Show;
end;
 
end.
0
DenNik
23.12.2016, 18:05
  #6

Не по теме:

Цитата Сообщение от BogdanKu Посмотреть сообщение
Эт осам код процедуры
зачем осам код процедуры? лучше пчелам покажи :D

0
Puporev
Модератор
55506 / 42595 / 29443
Регистрация: 18.05.2008
Сообщений: 100,754
24.12.2016, 06:57 7
Лучший ответ Сообщение было отмечено BogdanKu как решение

Решение

Цитата Сообщение от BogdanKu Посмотреть сообщение
не знаю как дорисовать все то, что обозначено красным
Видно раз уж я начал,
Программа для вычисления касательных
мне и продолжать. Я доделал ту программу, В Ваш код не лез.
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
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Image1: TImage;
    Edit1: TEdit;
    Label1: TLabel;
    Edit2: TEdit;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    Label3: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
  px,py,r,op,v:double;
implementation
 
{$R *.dfm}
uses Math;//модудь для вычисления arcsin
procedure dxdy(x1,y1,x2,y2,r:double;var dx,dy:double);
var a:double;
begin
if x1=x2 then
 begin
  dx:=0;
  dy:=r;
 end
else if y1=y2 then
 begin
  dx:=r;
  dy:=0;
 end
else
 begin
  a:=arctan(abs(y1-y2)/abs(x1-x2));
  dx:=r*cos(a);
  dy:=r*sin(a);
 end;
end;
//процедура рисрвания букв P,M,N
procedure bukva(xc,yc:Integer;x,y,m:Double;c:Char;cv:TCanvas);
begin
  with cv do
   begin
    brush.Style:=bsClear;
    Font.Size:=10;
    Font.Style:=[fsBold];
    Font.Color:=clBlue;
    if y>=0 then
     begin
      if x<0 then TextOut(xc+round(x*m)-15,yc-round(y*m)-20,c)
      else if x=0 then TextOut(xc+round(x*m),yc-round(y*m)-20,c)
      else TextOut(xc+round(x*m)+5,yc-round(y*m)-20,c);
     end
    else
     begin
      if x<0 then TextOut(xc+round(x*m)-15,yc-round(y*m)+5,c)
      else if x=0 then TextOut(xc+round(x*m),yc-round(y*m)+5,c)
      else TextOut(xc+round(x*m)+5,yc-round(y*m)+5,c);
     end;
   end;
end;
//процедура рисования дуги угла
procedure duga(xc,yc:Integer;px,py,mx,my,nx,ny,m:double;cv:TCanvas);
var x1,y1,x2,y2,x3,y3,x4,y4:Integer;
    r:Double;
begin
//радиус окружности
r:=Sqrt(Sqr(px-mx)+sqr(py-my))/4;
//кординаты углов прямоугольника под эллипс
x1:=xc+round((px-r)*m);
y1:=yc-round((py-r)*m);
x2:=xc+round((px+r)*m);
y2:=yc-round((py+r)*m);
//точки дуги
x3:=xc+round((px+mx)*m/2);
y3:=yc-round((py+my)*m/2);
x4:=xc+round((px+nx)*m/2);
y4:=yc-round((py+ny)*m/2);
with cv do
 begin
   Pen.Color:=clRed;  //можно и тоже синий
   Arc(x1,y1,x2,y2,x4,y4,x3,y3);
 end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var k:integer;
    f:double;
begin
val(Edit1.Text,px,k);
if(k<>0)or(px<-16)or(px>10)then
 begin
  ShowMessage('Неверно введена координата Х');
  Edit1.Clear;
  Edit1.SetFocus;
  exit;
 end;
val(Edit2.Text,py,k);
if(k<>0)or(py<-16)or(py>10)then
 begin
  ShowMessage('Неверно введена координата Y');
  Edit2.Clear;
  Edit2.SetFocus;
  exit;
 end;
op:=sqrt(px*px+py*py);
v:=1;
if op<=r then
 begin
  ShowMessage('Точка не должна быть в круге, введите другие координаты');
  Edit1.Clear;
  Edit1.SetFocus;
  Edit2.Clear;
  exit;
 end; 
r:=sqrt(15);
f:=2*arcsin(r/op);
Edit3.Text:='Угол в радианах='+format('%.2f',[f]);
Edit4.Text:='Угол в ='+format('%.2f',[radtodeg(f)]);
Edit5.Text:='Угол в градах='+format('%.2f',[radtodeg(f)/0.9]);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var xc,yc,i:integer;
    x1,y1,x2,y2,x3,y3,x4,y4,x5,y5,x6,y6,r1,r2,a,b,h,d,x,y,m:double;
    d1,dx1,dy1,dx2,dy2:double;
begin
if v=0 then
 begin
  showmessage('Не выполнены вычисления');
  exit;
 end;
//найдем координаты точек касания
x1:=0;
y1:=0;
x2:=px/2;
y2:=py/2;
r1:=r;
r2:=op/2;//половина OP
d:=sqrt(sqr(x1-x2)+sqr(y1-y2));//расстояние между центрами окружностей
b:=(sqr(r2)-sqr(r1)+sqr(d))/(2*d);
a:=d-b;
h:=sqrt(sqr(r2)-sqr(b));
x:=x1+(x2-x1)/(d/a);
y:=y1+(y2-y1)/(d/a);
//координаты точек касания
x3:=x-(y-y2)*h/b;
y3:=y+(x-x2)*h/b;
x4:=x+(y-y2)*h/b;
y4:=y-(x-x2)*h/b;
//вычислим координаты концов касательных
d1:=sqrt(sqr(x3-px)+sqr(y3-py))+r1;//длина касательной с запасом
dxdy(x3,y3,px,py,2*r,dx1,dy1);
dxdy(x4,y4,px,py,2*r,dx2,dy2);
if x3<px then x5:=x3-dx1
else x5:=x3+dx1;
if y3<py then y5:=y3-dy1
else y5:=y3+dy1;
if x4<px then x6:=x4-dx2
else x6:=x4+dx2;
if y4<py then y6:=y4-dy2
else y6:=y4+dy2;
xc:=16*Image1.Width div 26;
yc:=10*Image1.Height div 26+50;
m:=(xc-30)/16; //масштаб для перевода реальных координат  в экранные
with Image1.Canvas do
 begin
  moveto(xc-round(16*m),yc);lineto(xc+round(10*m),yc); //оси
  MoveTo(xc+round(10*m)+10,yc);
  LineTo(xc+round(10*m),yc-5);
  LineTo(xc+round(10*m),yc+5);
  LineTo(xc+round(10*m)+10,yc);
  Brush.Color:=clBlack;
  Brush.Style:=bsSolid;
  FloodFill(xc+round(10*m)+5,yc,clBlack,fsBorder);
  moveto(xc,yc-round(10*m));lineto(xc,yc+round(10*m));
  moveto(xc,yc-round(10*m)-10);
  Lineto(xc-5,yc-round(10*m));
  Lineto(xc+5,yc-round(10*m));
  Lineto(xc,yc-round(10*m)-10);
  FloodFill(xc,yc-round(10*m)-5,clBlack,fsBorder);
  Brush.Style:=bsClear;
  textout(Image1.Width-15,yc-20,'X');
  textout(xc+10,5,'Y');
  for i:=1 to 16 do  //разграфка
   begin
    moveto(xc-round(i*m),yc+3);
    lineto(xc-round(i*m),yc-3);
    if i<=10 then
     begin
      moveto(xc+round(i*m),yc+3);
      lineto(xc+round(i*m),yc-3);
      moveto(xc-3,yc-round(i*m));
      lineto(xc+3,yc-round(i*m));
      moveto(xc-3,yc+round(i*m));
      lineto(xc+3,yc+round(i*m));
     end;
    if i mod 2=0 then
     begin
      textout(xc-round(i*m),yc+10,IntToStr(i));
      if i<=10 then
       begin
        textout(xc+round(i*m),yc+10,IntToStr(-i));
        textout(xc-20,yc-round(i*m),IntToStr(i));
        textout(xc-20,yc+round(i*m),IntToStr(-i));
       end;
     end;
   end;
  brush.Style:=bsClear;
  ellipse(xc-round(r*m),yc-round(r*m),xc+round(r*m),yc+round(r*m));
  Pen.Color:=clBlue;
  brush.Color:=clBlue;
  brush.Style:=bsSolid;
  ellipse(xc+round(px*m)-3,yc-round(py*m)-3,xc+round(px*m)+3,yc-round(py*m)+3);
  ellipse(xc+round(x3*m)-3,yc-round(y3*m)-3,xc+round(x3*m)+3,yc-round(y3*m)+3);
  ellipse(xc+round(x4*m)-3,yc-round(y4*m)-3,xc+round(x4*m)+3,yc-round(y4*m)+3);
  moveto(xc+round(x5*m),yc-round(y5*m));
  lineto(xc+round(px*m),yc-round(py*m));
  moveto(xc+round(x6*m),yc-round(y6*m));
  lineto(xc+round(px*m),yc-round(py*m));
  bukva(xc,yc,px,py,m,'P',Image1.Canvas);
  bukva(xc,yc,x3,y3,m,'M',Image1.Canvas);
  bukva(xc,yc,x4,y4,m,'N',Image1.Canvas);
  duga(xc,yc,px,py,x3,y3,x4,y4,m,Image1.Canvas);
 end;
end;
end.
1
Вложения
Тип файла: rar Касательные к окружности_2.rar (171.9 Кб, 1 просмотров)
24.12.2016, 06:57
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.12.2016, 06:57

В программе предусмотреть сохранение вводимых данных в файле и возможность чтения из ранее сохраненного файла
Ведомость абитуриентов, сдавших вступительные экзамены в университет, содержит:...

Используя условия вариантов записать все вычисления , проводимые ранее в основной программе , в виде процедуры. В основной программе предусмотреть т
Используя условия вариантов записать все вычисления , проводимые ранее в...

Сохранение данных в программе без создания/подключения к внешнему источнику данных
Насколько я знаю сделать это можно. Хочу чтобы данные в определенных TextBox,...


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

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

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