Как сделать задание! очень нужно :wall:

@Arti1244 · Регистрация: 07.04.2016

Студворк — интернет-сервис помощи студентам

Всем привет. Помогите пожалуйста сделать лабу по АЯП, 1 и 2 задание, кто чем поможет. Завтра уже сдавать

Внизу скрин лабы.

@unifikator · 08.04.2016, 01:29

Первое задание.
Значения в таблице могут редактироваться. Углы задаются в градусах.
Код:

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
unit MainU;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls, math;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    StringGrid1: TStringGrid;
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
function qgetc(a,b,k:extended):extended;
begin
result:=sqrt(sqr(a)+sqr(b)-2*a*b*cos(degtorad(k)));
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var
i:integer;
begin
randomize;
with stringgrid1 do
begin
colwidths[0]:=20;
for i:=1 to 4 do
colwidths[i]:=70;
cells[0,0]:='i';
cells[1,0]:='Сторона C';
cells[2,0]:='Сторона A';
cells[3,0]:='Сторона B';
cells[4,0]:='Угол';
for i:=1 to 3 do
begin
cells[0,i]:=inttostr(i);
cells[2,i]:=inttostr(random(100)+10);
cells[3,i]:=inttostr(random(100)+10);
cells[4,i]:=inttostr(random(90)+10);
end;
end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
a,b,c,k:array[1..3]of extended;
begin
with stringgrid1 do
begin
for i:=1 to 3 do
begin
try
a[i]:=strtofloat(cells[2,i]);
except
showmessage('Сторона A в строке '+inttostr(i)+' должна быть числом!');
exit;
end;
try
b[i]:=strtofloat(cells[3,i]);
except
showmessage('Сторона B в строке '+inttostr(i)+' должна быть числом!');
exit;
end;
try
k[i]:=strtofloat(cells[4,i]);
except
showmessage('Угол в строке '+inttostr(i)+' должен быть числом!');
exit;
end;
end;
for i:=1 to 3 do
c[i]:=qgetc(a[i],b[i],k[i]);
for i:=1 to 3 do
cells[1,i]:=format('%.2n',[c[i]]);
end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
 
end.

Прилагаю проект на Delphi.

@Arti1244 · 08.04.2016, 01:45 **[ТС]**

unifikator, Спасибо за первое очень помог, Второе у тебя не получится сделать?

@unifikator · 08.04.2016, 03:03

Второе задание.
Может быть вычисляет не правильно.
Код:

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
unit MainU;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    StringGrid1: TStringGrid;
    Label2: TLabel;
    StringGrid2: TStringGrid;
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  tqpoint=record
  x,y,z:extended;
  end;
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
function qcreatevector(A,B:tqpoint):tqpoint;
begin
result.x:=B.x-A.x;
result.y:=B.y-A.y;
result.z:=B.z-A.z;
end;
 
function qvectorproduct(A,B:tqpoint):tqpoint;
begin
result.x:=A.y*B.z-B.y*A.z;
result.y:=A.z*B.x-B.z*A.x;
result.z:=A.x*B.y-B.x*A.y;
end;
 
function qdotproduct(A,B:tqpoint):extended;
begin
result:=A.x*B.x+A.y*B.y+A.z*B.z;
end;
 
procedure qnormalize(var A:tqpoint);
var m:extended;
begin
m:=sqrt(sqr(A.x)+sqr(A.y)+sqr(A.z));
A.x:=A.x/m;
A.y:=A.y/m;
A.z:=A.z/m;
end;
 
function qpoint(A,B,C,X,Y:tqpoint;var R:tqpoint):boolean;
var
N,V,W:tqpoint;
e,d:extended;
begin
result:=false;
N:=qvectorproduct(qcreatevector(A,B),qcreatevector(A,C));
qnormalize(N);
V:=qcreateVector(X,A);
d:=qdotproduct(N,V);
W:=qcreatevector(X,Y);
e:=qdotproduct(N,W);
if e<>0 then
begin
r.x:=X.x+W.x*d/e;
r.y:=X.y+W.y*d/e;
r.z:=X.z+W.z*d/e;
result:=true;
end;
end;
 
function qintersect(a1,b1,c1,d,a2,b2,c2:extended;var x,y,z:extended):boolean;
var
a,b,c,x1,y1,r:tqpoint;
begin
a.x:=1;
a.y:=2;
a.z:=(d-a.x*a1-a.y*b1)/c1;
b.x:=2;
b.y:=4;
b.z:=(d-b.x*a1-b.y*b1)/c1;
c.x:=3;
c.y:=1;
c.z:=(d-c.x*a1-c.y*b1)/c1;
x1.x:=1;
x1.y:=(x1.x*a2)/b2;
x1.z:=(x1.x*a2)/c2;
y1.x:=2;
y1.y:=(y1.x*a2)/b2;
y1.z:=(y1.x*a2)/c2;
if qpoint(a,b,c,x1,y1,r) then
begin
x:=r.x;
y:=r.y;
z:=r.z;
result:=true;
end
else
begin
x:=0;
y:=0;
z:=0;
result:=false;
end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var
i,j:integer;
begin
randomize;
with stringgrid1 do
begin
for i:=0 to 3 do
colwidths[i]:=80;
cells[0,0]:='A';
cells[1,0]:='B';
cells[2,0]:='C';
cells[3,0]:='D';
for i:=0 to 3 do
cells[i,1]:=inttostr(random(100)+10);
end;
with stringgrid2 do
begin
colwidths[0]:=30;
for i:=1 to 3 do
cells[0,i]:=inttostr(i);
for i:=1 to 6 do
colwidths[i]:=80;
cells[0,0]:='i';
cells[1,0]:='X';
cells[2,0]:='Y';
cells[3,0]:='Z';
cells[4,0]:='A';
cells[5,0]:='B';
cells[6,0]:='C';
for i:=4 to 6 do
for j:=1 to 3 do
cells[i,j]:=inttostr(random(100)+10);
end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
x,y,z:extended;
p:array[1..4]of extended;
l:array[1..3,1..3]of extended;
begin
for i:=1 to 4 do
begin
try
p[i]:=strtofloat(stringgrid1.Cells[i-1,1]);
except
showmessage('Значение плоскости в столбце '+inttostr(i)+' должно быть числом!');
exit;
end;
end;
for i:=1 to 3 do
for j:=1 to 3 do
begin
try
l[i,j]:=strtofloat(stringgrid2.Cells[3+j,i]);
except
showmessage('Значение прямых в строке '+inttostr(i)+' и в столбце '+inttostr(4+j)+' должно быть числом!');
exit;
end;
end;
for i:=1 to 3 do
if qintersect(p[1],p[2],p[3],p[4],l[i,1],l[i,2],l[i,3],x,y,z) then
begin
with stringgrid2 do
begin
cells[1,i]:=format('%.2n',[x]);
cells[2,i]:=format('%.2n',[y]);
cells[3,i]:=format('%.2n',[z]);
end;
end
else
begin
with stringgrid2 do
begin
cells[1,i]:='нет';
cells[2,i]:='нет';
cells[3,i]:='нет';
end;
end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
 
end.

Прилагаю проект на Delphi.

Новые блоги и статьи Все статьи Все блоги /
Как использовать Bluetooth-модуль HC-05 с Arduino Wired 08.07.2025 Bluetooth - это технология, созданная чтобы заменить кабельные соединения. Обычно ее используют для связи небольших устройств: мобильных телефонов, ноутбуков, наушников и т. д. Работает она на частоте. . .	Руководство по структурам данных Python AI_Generated 08.07.2025 Я отчетливо помню свои первые серьезные проекты на Python - я писал код, он работал, заказчики были относительно довольны. Но однажды мой наставник, взглянув на мою реализацию поиска по огромному. . .	Тестирование энергоэффективности и скорости вычислений видеокарт в BOINC проектах Programma_Boinc 08.07.2025 Тестирование энергоэффективности и скорости вычислений видеокарт в BOINC проектах Опубликовано: 07. 07. 2025 Рубрика: Uncategorized Автор: AlexA Статья размещается на сайте с разрешения. . .	Раскрываем внутренние механики Android с помощью контекста и манифеста mobDevWorks 07.07.2025 Каждый Android-разработчик сталкивается с Context и манифестом буквально в первый день работы. Но много ли мы задумываемся о том, что скрывается за этими обыденными элементами? Я, честно говоря,. . .	API на базе FastAPI с Python за пару минут AI_Generated 07.07.2025 FastAPI - это относительно молодой фреймворк для создания веб-API, который за короткое время заработал бешеную популярность в Python-сообществе. И не зря. Я помню, как впервые запустил приложение на. . .
Основы WebGL. Раскрашивание вершин с помощью VBO 8Observer8 05.07.2025 На русском https:/ / vkvideo. ru/ video-231374465_456239020 На английском https:/ / www. youtube. com/ watch?v=oskqtCrWns0 Исходники примера:	Мониторинг микросервисов с OpenTelemetry в Kubernetes Mr. Docker 04.07.2025 Проблема наблюдаемости (observability) в Kubernetes - это не просто вопрос сбора логов или метрик. Это целый комплекс вызовов, которые возникают из-за самой природы контейнеризации и оркестрации. К. . .	Проблемы с Kotlin и Wasm при создании игры GameUnited 03.07.2025 В современном мире разработки игр выбор технологии - это зачастую балансирование между удобством разработки, переносимостью и производительностью. Когда я решил создать свою первую веб-игру, мой. . .	Создаем микросервисы с Go и Kubernetes golander 02.07.2025 Когда я только начинал с микросервисами, все спорили о том, какой язык юзать. Сейчас Go (или Golang) фактически захватил эту нишу. И вот почему этот язык настолько заходит для этих задач: . . .	C++23, квантовые вычисления и взаимодействие с Q# bytestream 02.07.2025 Я всегда с некоторым скептицизмом относился к громким заявлениям о революциях в IT, но квантовые вычисления - это тот случай, когда революция действительно происходит прямо у нас на глазах. Последние. . .

@Arti1244 0 / 0 / 0 Регистрация: 07.04.2016 Сообщений: 2

	Как сделать задание! очень нужно :wall: 07.04.2016, 23:11. Показов 551. Ответов 3 Метки нет (Все метки) Всем привет. Помогите пожалуйста сделать лабу по АЯП, 1 и 2 задание, кто чем поможет. Завтра уже сдавать Внизу скрин лабы. Миниатюры 0

@Arti1244 0 / 0 / 0 Регистрация: 07.04.2016 Сообщений: 2
	08.04.2016, 01:45 [ТС]
	unifikator, Спасибо за первое очень помог, Второе у тебя не получится сделать? 0

Опции темы