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

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Оророш
0 / 0 / 0
Регистрация: 13.10.2012
Сообщений: 25
#1

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

02.12.2012, 01:00. Просмотров 833. Ответов 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
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.12.2012, 01:00
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Создать собственный модуль "Вычисление скалярного произведения векторов в 3-меpном пространстве" (Turbo Pascal):

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

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

Создать модуль "Табулирование функции на заданном отрезке" - Turbo Pascal
Помогите мужики) Реализовать в виде модуля набор подпрограмм для выполне¬ния следующих операций для заданной функции y= cos x/2 + sin x2 ...

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

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

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

1
Puporev
Модератор
52400 / 40247 / 13581
Регистрация: 18.05.2008
Сообщений: 93,037
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
Привет! Вот еще темы с ответами:

Решение заданий типа "Array","Matrix","String","File","Text""" - Pascal
большая просьба помочь решить где-то около 35-40 (из 100) задач (мне не понятных) типа массив и матрица я буду рад (да и если у кого...

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

Вычисление суммы мест, на которых в слове стоят буквы "в" и "п" - Turbo Pascal
Составьте программу, вычисления суммы мест, на которых в слове X стоят буквы "в" и "п".

Составить фразу "письменный стол" из слов "тесненный", "полка", "речь", "миф". - Turbo Pascal
1) Составить фразу "письменный стол" из слов "тесненный", "полка", "речь", "миф". 2) Вывести на экран слово, в котором каждая гласная...


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

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

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