Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
fedot199614
1 / 1 / 0
Регистрация: 20.10.2012
Сообщений: 56
#1

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

05.10.2013, 15:37. Просмотров 397. Ответов 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
26
27
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.
не могу отыскать ошибки если найдёте подскажите где и какие плиз
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.10.2013, 15:37
Ответы с готовыми решениями:

Вычислить длину вектора по формуле
составить прогамму в паскале Вычислить длину вектора Х размером 12. Длина...

Найти длину вектора
Помогите решить задачу. Даны три вектора v1,v2,v3(одномернырные массивы...

Найти длину вектора
Дан вектор A( a_1,\,a_2,\,...,\,a_{30}) Найти его длину S. ...

Найти длину вектора
програмирование с использованием процедур найти длину вектора X=(X1, X2,...

Два вектора, сравнить длину
Заданы два векторы Х(х1,х2,х3) и . Переменной А присвоить значение 1, если...

2
BlindLa2
2 / 2 / 1
Регистрация: 21.12.2012
Сообщений: 8
05.10.2013, 15:42 #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
26
27
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.
Вот исправленная
1
fedot199614
1 / 1 / 0
Регистрация: 20.10.2012
Сообщений: 56
05.10.2013, 15:55  [ТС] #3
спс ща проверю

Добавлено через 3 минуты
ага спс получилось = не ставил вот дурак
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.10.2013, 15:55

Найти длину окружности
№1 дан диаметр окружности d. Найти ее длинну L=p*d. В качестве значения p...

Найти длину окружности с радиусом R
как найти длину окружности с радиусом R?

Найти длину наибольшего отрезка
Помогите решить пожалуйста на Паскале: С помощью ij] i=1,2,...


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

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

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