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

@4ibis · Регистрация: 30.11.2014

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

$https://www.cyberforum.ru/cgi-bin/latex.cgi?L=\sqrt{{x}^{2}_1+{x}^{2}_2+...+{x}^{2}_n}$

@Puporev · 30.03.2015, 19:17

Pascal

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.

@4ibis 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

Опции темы

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

Решение