0 / 0 / 0
Регистрация: 30.11.2014
Сообщений: 20
1

Вычислить длину векторов по заданной формуле (с использованием массивов и процедур)

30.03.2015, 18:31. Показов 1167. Ответов 1
Метки нет (Все метки)

Заданы векторы A,B,C,D. Вычислить длину векторов по формуле:

https://www.cyberforum.ru/cgi-bin/latex.cgi?L=\sqrt{{x}^{2}_1+{x}^{2}_2+...+{x}^{2}_n}
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.03.2015, 18:31
Ответы с готовыми решениями:

Вычислить сумму для трех одномерных массивов по заданной формуле
a = { 0, 6, 7.3, 2.5 } b = {4.2, 5.6, 0.7 } c = {1.2, 3.1, 4.6 } Вычислить S по заданной формуле...

Массив: Организовать ввод и вывод на экран массивов с использованием процедур программиста.
1)Заданы три двумерных квадратных массива одинаковой размерности. Организовать ввод и вывод на...

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

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

1
Почетный модератор
64271 / 47570 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
30.03.2015, 19:17 2
Лучший ответ Сообщение было отмечено 4ibis как решение

Решение

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
const nmax=100;
type vec=array[1..nmax] of real;
procedure vector(var a:vec;var n:byte;c:char);
var i:byte;
begin
repeat
write('Размер массива ',c,' от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Массив A');
for i:=1 to n do
 begin
  a[i]:=-5+10*random;
  write(a[i]:5:1)
 end;
writeln;
end;
function dlina(a:vec;n:byte):real;
var i:byte;
    d:real;
begin
d:=0;
for i:=1 to n do
d:=d+sqr(a[i]);
dlina:=sqrt(d);
end;
var a,b,c,d:vec;
    na,nb,nc,nd:byte;
begin
randomize;
vector(a,na,'A');
writeln('длина=',dlina(a,na):0:2);
vector(b,nb,'B');
writeln('длина=',dlina(b,nb):0:2);
vector(c,nc,'C');
writeln('длина=',dlina(c,nc):0:2);
vector(d,nd,'D');
writeln('длина=',dlina(d,nd):0:2);
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.03.2015, 19:17
Помогаю со студенческими работами здесь

Необходимо составить несколько простых программ с использованием функций, процедур, одно/двумерных массивов.
Необходимо составить несколько простых* программ на Паскаль: 1) Две программы с использованием...

Формирование массивов по заданной формуле
Помогите, пожайлуйста, с задачей. 15. Ввести двумерные массивы X1(NxN) ,X2(NxN) . Получить...

Даны векторы А(5), В(5), С(5). Вычислить длину этих векторов
Даны векторы А(5), В(5), С(5). Вычислить длину этих векторов. Применить процедуры для ввода и...

Для векторов a и b размерностью n вычислить значение y по формуле
для векторов a и b размерностью n вычислить значение y по формуле


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru