Найти косинус угла между векторами

@@anna@ · Регистрация: 14.03.2011

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

Название: 1.JPG
Просмотров: 509

Размер: 4.3 Кб

@Puporev · 14.03.2011, 19:14

Pascal
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
uses crt;
const nmax=20;
var a,b:array[1..nmax] of real;
    n,i:byte;
    sc,da,db,cs:real;
begin
clrscr;
randomize;
repeat
write('Размер векторов до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Вектор А:');
da:=0;
for i:=1 to n do
 begin
  a[i]:=10*random;
  write(a[i]:5:1);
  da:=da+sqr(a[i]);{длина вектора А}
 end;
writeln;
da:=sqrt(da);
writeln('Вектор B:');
db:=0;
for i:=1 to n do
 begin
  b[i]:=10*random;
  write(b[i]:5:1);
  db:=db+sqr(b[i]);{длина вектора В}
 end;
writeln;
db:=sqrt(db);
writeln;
sc:=0;
for i:=1 to n do
sc:=sc+a[i]*b[i];
cs:=sc/(da*db);{скалярное произведение}
write('Косинус=',cs:0:2);
readln
end.

@Negeroy · 10.04.2011, 00:34

Г-н Puporev, а можно ли написать программу для этого задания только с использованием функции? Заранее благодарен!

@Puporev · 10.04.2011, 07:50

Pascal
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
uses crt;
const nmax=20;
type vec=array[1..nmax] of real;
function Dlina(a:vec;n:byte):real;{длина вектора}
var d:real;
    i:byte;
begin
d:=0;
for i:=1 to n do
d:=d+sqr(a[i]);
Dlina:=sqrt(d);
end;
function Scalar(a,b:vec;n:byte):real;{скалярное произведение}
var sc:real;
    i:byte;
begin
sc:=0;
for i:=1 to n do
sc:=sc+a[i]*b[i];
Scalar:=sc;
end;
var a,b:vec;
    n,i:byte;
    cs:real;
begin
clrscr;
randomize;
repeat
write('Размер векторов до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Вектор А:');
for i:=1 to n do
 begin
  a[i]:=10*random;
  write(a[i]:5:1);
 end;
writeln;
writeln('Вектор B:');
for i:=1 to n do
 begin
  b[i]:=10*random;
  write(b[i]:5:1);
 end;
writeln;
cs:=Scalar(a,b,n)/(Dlina(a,n)*Dlina(b,n));
write('Косинус=',cs:0:3);
readln
end.

@Negeroy · 10.04.2011, 10:43

Огромное спасибо!

@Negeroy · 17.04.2011, 13:54

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

Как сказал преподователь, нужно чтобы функция вызывалась от функции и значениие угла считалось именно самой функцией (как-то так). Помогите, уже не 1 занятие с этим бьюсь.

Само задание: "Составить функцию определения косинуса угла между двумя векторами по формуле:

@Puporev · 17.04.2011, 14:11

Pascal
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
uses crt;
const nmax=20;
type vec=array[1..nmax] of real;
     fD=function(a:vec;n:byte):real;
     fS=function(a,b:vec;n:byte):real;
{$F+}
function Dlina(a:vec;n:byte):real;{длина вектора}
var d:real;
    i:byte;
begin
d:=0;
for i:=1 to n do
d:=d+sqr(a[i]);
Dlina:=sqrt(d);
end;
function Scalar(a,b:vec;n:byte):real;{скалярное произведение}
var sc:real;
    i:byte;
begin
sc:=0;
for i:=1 to n do
sc:=sc+a[i]*b[i];
Scalar:=sc;
end;
{F-}
function Cosn(a,b:vec;n:byte;f1:fS;f2:fD):real;
begin
Cosn:=f1(a,b,n)/(f2(a,n)*f2(b,n));
end;
 
var a,b:vec;
    n,i:byte;
    cs:real;
begin
clrscr;
randomize;
repeat
write('Размер векторов до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Вектор А:');
for i:=1 to n do
 begin
  a[i]:=10*random;
  write(a[i]:5:1);
 end;
writeln;
writeln('Вектор B:');
for i:=1 to n do
 begin
  b[i]:=10*random;
  write(b[i]:5:1);
 end;
writeln;
cs:=Cosn(a,b,n,Scalar,Dlina);
write('Косинус=',cs:0:3);
readln
end.

@Negeroy · 17.04.2011, 14:15

Спасибо!

@Puporev · 17.04.2011, 14:17

Почитайте хоть в инете про функциональный(процедурный) тип в Паскале.

@Negeroy · 17.04.2011, 14:27

Программа не компилируется

@Puporev · 17.04.2011, 14:30

Сообщение от Negeroy

Программа не компилируется

Привет. А у меня компилируется. Даже в Паскаль АВС, не говоря уж о Турбо Паскаль.

@Negeroy · 17.04.2011, 15:56

а во фрипаскале нет, вот такая вот дилемма

@Puporev · 17.04.2011, 16:34

Не понимает он эту строку

Pascal
1
cs:=Cosn(a,b,n,Scalar,Dlina);

Видимо не любит функциональный тип...

Добавлено через 9 минут
Напишите по простому, без типов, у преподавателя спросите, почему во Фрее с типами не работает.

Pascal
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
uses crt;
const nmax=20;
type vec=array[1..nmax] of real;
function Dlina(a:vec;n:byte):real;{длина вектора}
var d:real;
    i:byte;
begin
d:=0;
for i:=1 to n do
d:=d+sqr(a[i]);
Dlina:=sqrt(d);
end;
function Scalar(a,b:vec;n:byte):real;{скалярное произведение}
var sc:real;
    i:byte;
begin
sc:=0;
for i:=1 to n do
sc:=sc+a[i]*b[i];
Scalar:=sc;
end;
 
function Cosn(a,b:vec;n:byte):real;
begin
Cosn:=Scalar(a,b,n)/(Dlina(a,n)*Dlina(b,n));
end;
 
var a,b:vec;
    n,i:byte;
    cs:real;
begin
clrscr;
randomize;
repeat
write('Размер векторов до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Вектор А:');
for i:=1 to n do
 begin
  a[i]:=10*random;
  write(a[i]:5:1);
 end;
writeln;
writeln('Вектор B:');
for i:=1 to n do
 begin
  b[i]:=10*random;
  write(b[i]:5:1);
 end;
writeln;
cs:=Cosn(a,b,n );
write('Косинус=',cs:0:3);
readln
end.

@Negeroy · 17.04.2011, 16:56

Спасибо, я все понял

@Negeroy · 20.05.2011, 14:05

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

Pascal
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
Unit Cos_ugla;
Interface
const nmax=20;
type vec=array[1..nmax] of real;
     fD=function(a:vec;n:byte):real;
     fS=function(a,b:vec;n:byte):real;
function Dlina(a:vec;n:byte):real;
function Scalar(a,b:vec;n:byte):real;
function Cosn(a,b:vec;n:byte;f1:fS;f2:fD):real;
implementation
function Dlina;
var d:real;
    i:byte;
begin
d:=0;
for i:=1 to n do
d:=d+sqr(a[i]);
Dlina:=sqrt(d);
end;
function Scalar;
var sc:real;
    i:byte;
begin
sc:=0;
for i:=1 to n do
sc:=sc+a[i]*b[i];
Scalar:=sc;
end;
function Cosn;
begin
Cosn:=f1(a,b,n)/(f2(a,n)*f2(b,n));
end
end.

@Puporev · 20.05.2011, 14:49

Я так понял, у Вас не Турбо Паскаль, тогда нужно так.

Pascal
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
Unit Cos_ugla;
Interface
const nmax=20;
type vec=array[1..nmax] of real;
     fD=function(a:vec;n:byte):real;
     fS=function(a,b:vec;n:byte):real;
function Dlina(a:vec;n:byte):real;
function Scalar(a,b:vec;n:byte):real;
function Cosn(a,b:vec;n:byte;f1:fS;f2:fD):real;
implementation
function Dlina(a:vec;n:byte):real;
var d:real;
    i:byte;
begin
d:=0;
for i:=1 to n do
d:=d+sqr(a[i]);
Dlina:=sqrt(d);
end;
function Scalar(a,b:vec;n:byte):real;
var sc:real;
    i:byte;
begin
sc:=0;
for i:=1 to n do
sc:=sc+a[i]*b[i];
Scalar:=sc;
end;
function Cosn(a,b:vec;n:byte;f1:fS;f2:fD):real;
begin
Cosn:=f1(a,b,n)/(f2(a,n)*f2(b,n));
end;
end.

Добавлено через 2 минуты
А в Турбо Паскаль добавить точку с запятой

Pascal
1
2
3
4
5
function Cosn;
begin
Cosn:=f1(a,b,n)/(f2(a,n)*f2(b,n));
end; //здесь
end.

@Negeroy · 20.05.2011, 15:08

Спасибо!

Новые блоги и статьи Все статьи Все блоги /
Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025

@@anna@ 0 / 0 / 0 Регистрация: 14.03.2011 Сообщений: 7

	Найти косинус угла между векторами 14.03.2011, 19:02. Показов 4256. Ответов 16 Метки нет (Все метки) 0

@Negeroy 0 / 0 / 0 Регистрация: 10.04.2011 Сообщений: 10
	10.04.2011, 00:34
	Г-н Puporev, а можно ли написать программу для этого задания только с использованием функции? Заранее благодарен! 0

@Negeroy 0 / 0 / 0 Регистрация: 10.04.2011 Сообщений: 10
	10.04.2011, 10:43
	Огромное спасибо! 0

@Negeroy 0 / 0 / 0 Регистрация: 10.04.2011 Сообщений: 10
	17.04.2011, 13:54
	Помогите решить эту же задачу только к другой лаб. работе. Сама лабораторная звучит так: "Процедурный тип данных. Использоване процедур и функций в качестве фактических параметров". Как сказал преподователь, нужно чтобы функция вызывалась от функции и значениие угла считалось именно самой функцией (как-то так). Помогите, уже не 1 занятие с этим бьюсь. Само задание: "Составить функцию определения косинуса угла между двумя векторами по формуле: Изображения 0

@Negeroy 0 / 0 / 0 Регистрация: 10.04.2011 Сообщений: 10
	17.04.2011, 14:15
	Спасибо! 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	17.04.2011, 14:17
	Почитайте хоть в инете про функциональный(процедурный) тип в Паскале. 0

@Negeroy 0 / 0 / 0 Регистрация: 10.04.2011 Сообщений: 10
	17.04.2011, 14:27
	Программа не компилируется 0

@Negeroy 0 / 0 / 0 Регистрация: 10.04.2011 Сообщений: 10
	17.04.2011, 15:56
	а во фрипаскале нет, вот такая вот дилемма 0

@Negeroy 0 / 0 / 0 Регистрация: 10.04.2011 Сообщений: 10
	17.04.2011, 16:56
	Спасибо, я все понял 0

@Negeroy 0 / 0 / 0 Регистрация: 10.04.2011 Сообщений: 10
	20.05.2011, 15:08
	Спасибо! 0