Найти длину вектора - Pascal ABC

@fedot199614 · Регистрация: 20.10.2012

вот прога

Pascal

Program Pro;
type vector=array[1..100] of real;
var k:byte;
dl:real;
x:vector;
procedure wod(var y:vector);
var i:byte;
begin
writeln('Vvedite koordinati vektarov');
for i:1 to k do
readln(y[i]);
end;
function dlvec(y:vector):real;
var i:byte;
s:real;
begin
for i: 1 to k do
s: s+sqr(y[i]);
dlvec:=sqrt(s);
end;
begin
write('Vvedite razmernosti vektornogo proctranstva k=');
readln(k);
wod(x);
dl:=dlvec(x);
writeln('Dlina vectora x =', dl:8:2);
end.

не могу отыскать ошибки если найдёте подскажите где и какие плиз

@BlindLa2 · 05.10.2013, 15:42

Pascal

Program Pro;
type vector=array[1..100] of real;
var k:byte;
dl:real;
x:vector;
procedure wod(var y:vector);
var i:byte;
begin
writeln('Vvedite koordinati vektarov');
for i:=1 to k do
readln(y[i]);
end;
function dlvec(y:vector):real;
var i:byte;
s:real;
begin
for i:=1 to k do
s:= s+sqr(y[i]);
dlvec:=sqrt(s);
end;
begin
write('Vvedite razmernosti vektornogo proctranstva k=');
readln(k);
wod(x);
dl:=dlvec(x);
writeln('Dlina vectora x =', dl:8:2);
end.

Вот исправленная

@fedot199614 · 05.10.2013, 15:55 **[ТС]**

спс ща проверю

Добавлено через 3 минуты
ага спс получилось = не ставил вот дурак

@fedot199614 1 / 1 / 0 Регистрация: 20.10.2012 Сообщений: 56
	05.10.2013, 15:55 [ТС]	#3
	спс ща проверю Добавлено через 3 минуты ага спс получилось = не ставил вот дурак 0

Опции темы