Два вектора заданы своими координатами. вычислив длины этих векторов и сравнить их

@Vadim050596 · Регистрация: 03.10.2013

два вектора заданы своими координатами. вычислив длины этих векторов и сравнить их. С ПОМОЩЬЮ МАССИВА

Новичок · 28.01.2014, 22:25

И зачем тут массив?

@Vadim050596 · 31.01.2014, 16:34 **[ТС]**

Сообщение от Новичок

И зачем тут массив?

потому что надо через массив!

@ivashka110 · 31.01.2014, 17:34

Pascal

uses crt;
const n=3;
type mas=array[1..n] of integer;
var i:integer;
    a,b:mas;
    dlinA,dlinB:real;
begin
writeln ('Введите вектор А');
for i:=1 to n do read (a[i]);
writeln ('Введите вектор B');
for i:=1 to n do read (b[i]);
clrscr;
write('Вектор A={');
for i:=1 to n do write(a[i]:5);
writeln('    }');
writeln;
write('Вектор B={');
for i:=1 to n do write(b[i]:5);
writeln('    }');
 
dlinA:=sqrt(sqr(a[1])+sqr(a[2])+sqr(a[3]));
dlinB:=sqrt(sqr(b[1])+sqr(b[2])+sqr(b[3]));
writeln;
writeln('Длина вектора А=', dlinA:4:1);
writeln('Длина вектора B=', dlinB:4:1);
if dlinA=dlinB then writeln('Длины равны') else writeln('Длины не равны');
repeat until KeyPressed;
end.

@APALoff · 31.01.2014, 17:41

Два вектора заданы своими координатами.Вычислить длины этих векторов и сравнить их.

@Vadim050596 1 / 1 / 0 Регистрация: 03.10.2013 Сообщений: 34
		1
	Два вектора заданы своими координатами. вычислив длины этих векторов и сравнить их 28.01.2014, 21:39. Показов 2166. Ответов 4 Метки нет (Все метки) два вектора заданы своими координатами. вычислив длины этих векторов и сравнить их. С ПОМОЩЬЮ МАССИВА 0

Новичок 1642 / 1091 / 487 Регистрация: 17.07.2012 Сообщений: 5,345
	28.01.2014, 22:25	2
	И зачем тут массив? 0

@Vadim050596 1 / 1 / 0 Регистрация: 03.10.2013 Сообщений: 34
	31.01.2014, 16:34 [ТС]	3
	Сообщение от Новичок И зачем тут массив? потому что надо через массив! 0

@APALoff 1646 / 1075 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	31.01.2014, 17:41	5
	Два вектора заданы своими координатами.Вычислить длины этих векторов и сравнить их. 0

Опции темы