Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
fedot199614
1 / 1 / 0
Регистрация: 20.10.2012
Сообщений: 55
#1

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

05.10.2013, 15:37. Просмотров 357. Ответов 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
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.10.2013, 15:37
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Найти длину вектора (Pascal ABC):

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

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

Найти длину вектора - Pascal
програмирование с использованием процедур найти длину вектора X=(X1, X2, X3),где Х есть сумма элементов матрицы A. X2-сумма элементов...

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

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

найти среднюю длину - Pascal
В двоичной последовательности (состоящей из нулей и единиц) найти среднюю длину связной группы нулей. Добавлено через 2 часа 49 минут ...

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
Сообщений: 55
05.10.2013, 15:55  [ТС] #3
спс ща проверю

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

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

Найти длину наибольшего отрезка - Pascal
Помогите решить пожалуйста на Паскале: С помощью ij] i=1,2, j=1,….,n-действительной матрицы на плоскости задано n точек так,что X1j, X2j...

Найти длину наибольшего отрезка - Pascal ABC
Помогите написать программу С помощью действительной матрицы х=(х11..х1n ...

Найти скалярное произведение вектора - Pascal
Помогите найти в массиве: r – скалярное произведение вектора , соствленного из минимальных элементов строк матрицы А, на тот вектор , но...


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

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

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