С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
SKY_NET
1 / 1 / 1
Регистрация: 06.10.2013
Сообщений: 120
1

Найти длины векторов и сравнить их (больше, меньше, равно)

17.02.2014, 20:36. Просмотров 446. Ответов 6
Метки нет (Все метки)

Два вектора А и В заданы координатами a=(xa;ya); b=(xb;yb).
Найти длины этих векторов и сравнить их (больше, меньше, равно).
Исполнить для xa=4.5; ya=2.7; xb=6.8; yb=1.3
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.02.2014, 20:36
Ответы с готовыми решениями:

Найти длины векторов и сравнить их
Два вектора А и В заданы координатами a=(xa;ya); b=(xb;yb). Найти длины этих...

Вычислить длины векторов и сравнить их
Напишите пожалуйста программный код!=((

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

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

Определить, сколько элементов массива больше х, меньше х и равно х
Ввести массив d, d, ..., d вещественного типа и вещественное число х....

6
code-n'-help
Форумчанин Паскаля
76 / 89 / 55
Регистрация: 08.11.2013
Сообщений: 399
Записей в блоге: 2
17.02.2014, 20:42 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
begin
read(xa,ya);
read(xb,yb);
absA=sqrt(xa*xa+ya*ya);
absB=sqrt(xb*xb+yb*yb);
if absA>absB
then writeln('Vektor A bolshe B');
else if absA<abS
      then writeln('Vektor A menshe B');
      else writeln('Oni ravnu');
end.
Добавлено через 18 секунд

Pascal
1
2
3
4
5
6
7
8
9
10
11
begin
read(xa,ya);
read(xb,yb);
absA=sqrt(xa*xa+ya*ya);
absB=sqrt(xb*xb+yb*yb);
if absA>absB
then writeln('Vektor A bolshe B');
else if absA<abS
then writeln('Vektor A menshe B');
else writeln('Oni ravnu');
end.
Вот так

 Комментарий модератора 
Прекращайте цитировать посты
0
SKY_NET
1 / 1 / 1
Регистрация: 06.10.2013
Сообщений: 120
18.02.2014, 09:17  [ТС] 3
у меня тема модульное программирование, а тут как я вижу модулей нету, я их не знаю вообще поэтому сюда и пришел
0
Puporev
Модератор
55494 / 42589 / 29435
Регистрация: 18.05.2008
Сообщений: 100,744
18.02.2014, 11:44 4
Цитата Сообщение от SKY_NET Посмотреть сообщение
у меня тема модульное программирование
И где это написано в первом посте? У нас не форум телепатов.
0
SKY_NET
1 / 1 / 1
Регистрация: 06.10.2013
Сообщений: 120
18.02.2014, 12:41  [ТС] 5
Цитата Сообщение от Puporev Посмотреть сообщение
И где это написано в первом посте? У нас не форум телепатов.
ну забыл я написать
0
Puporev
Модератор
55494 / 42589 / 29435
Регистрация: 18.05.2008
Сообщений: 100,744
18.02.2014, 12:44 6
Цитата Сообщение от SKY_NET Посмотреть сообщение
ну забыл я написать
Тогда и все претензии к себе, нефиг ими форум загаживать.
0
SKY_NET
1 / 1 / 1
Регистрация: 06.10.2013
Сообщений: 120
18.02.2014, 13:21  [ТС] 7
Цитата Сообщение от Puporev Посмотреть сообщение
Тогда и все претензии к себе, нефиг ими форум загаживать.
чо ты бесишься вообще а? не хочешь делать задачу чего ты вообще тогда придолбался ко мне?
0
18.02.2014, 13:21
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.02.2014, 13:21

Определить сколько чисел больше или равно А, но меньше В
Задана матрица М(3,4) Определить сколько чисел больше или равно А, но меньше В...

Определить, сколько чисел последовательности меньше K, равно K и больше K
Задана последовательность из N вещественных чисел. Определить сколько чисел...

Определить, сколько элементов массива больше, меньше и равно заданному числу
Ввести массив d, d, ..., d вещественного типа и вещественное число х....


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

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

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