Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Оророш
0 / 0 / 0
Регистрация: 13.10.2012
Сообщений: 25
1

Создать собственный модуль "Вычисление скалярного произведения векторов в 3-меpном пространстве"

02.12.2012, 01:00. Просмотров 877. Ответов 1
Метки нет (Все метки)

Создать собственный модуль и программу, использующую этот модуль.

Вычисление скалярного произведения векторов в 3-меpном пространстве. Вычислить значения всех скалярных произведений для векторов w=(1.2,2.5,12.1); s=(5.8,11.3,7.5);
q=(6.4,9.2,0.8).
Pascal
1
2
3
4
program;
...
...
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.12.2012, 01:00
Ответы с готовыми решениями:

Программа для расчета скалярного произведения векторов по заданной формуле, используя массивы
Даны два вектора X и Y состоящие из N компонентов {Xn} и {Yn}, вычислить скалярное произведение по...

Алгоритм определения скалярного произведения векторов
:-!Алгоритм определения скалярного произведения векторов

Создать программу для нахождения скалярного произведения цифр числа
создать программу для нахождения скалярного произведения цифр числа,цифры целые,помогите,пожалуйста

Создать модуль "Табулирование функции на заданном отрезке"
Помогите мужики) Реализовать в виде модуля набор подпрограмм для выполне¬ния следующих операций...

Создать модуль "Табулирование функции на заданном отрезке"
Здравствуйте,помогите сделать модуль и задачку! Наработок нету,в модули не врубаюсь( Реализовать...

1
Puporev
Модератор
55401 / 42537 / 29390
Регистрация: 18.05.2008
Сообщений: 100,603
02.12.2012, 13:22 2
Текст модуля
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
unit modul;
interface
const n=3;
type vec=array[1..n] of real;
function scal(v1,v2:vec):real;
procedure vyvod(v:vec;c:char);
implementation
function scal;
var i:byte;
    s:real;
begin
s:=0;
for i:=1 to n do
s:=s+v1[i]+v2[i];
scal:=s;
end;
procedure vyvod;
var i:byte;
begin
writeln('Вектор ',c);
for i:=1 to n do
write(v[i]:5:1);
writeln
end;
end.
Текст программы.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses crt,modul;
const w:vec=(1.2,2.5,12.1);
      s:vec=(5.8,11.3,7.5);
      q:vec=(6.4,9.2,0.8);
begin
clrscr;
vyvod(w,'W');
vyvod(s,'S');
vyvod(q,'Q');
writeln('Скалярные произведения:');
writeln('w*s=',scal(w,s):0:2);
writeln('w*q=',scal(w,q):0:2);
writeln('s*q=',scal(s,q):0:2);
readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.12.2012, 13:22

Создать модуль по процедурам и функциям из "Алгебры"
Нужно создать модуль по процедурам и функциям из "Алгебры".Если можно то не менее 5.

Разработать модуль, который заменяет в тексте букву "а" на символ "*".
Разработать модуль, который заменяет в тексте букву "а" на символ "*".

Написать программу проверки правильности написания сочетаний "жи", "ши", "ча", "ща", "чу", "щу". Исправить ошибки
дан текст.написать программу проверки правильности написания сочетаний "жи", "ши", "ча", "ща",...


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

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

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