Четверг, 09.01.2025
Pascal 4 All
[ · Новые сообщения · Участники · Правила форума · Поиск · RSS ]

 

  • Страница 1 из 1
  • 1
Модератор форума: Seqular, Pavel  

Процедуры (Procedure)
CocaineTashДата: Среда, 26.03.2008, 04:15 | Сообщение # 1
Новичок
Группа: Пользователи
Сообщений: 1
Репутация: 0
Замечания: 0%
Статус: Offline
Прошу помочь решить вот такую задачу.
Найти полусумму длин векторов B и С c помощью Procedure.

Заранее спасибо тем, кто поможет.
Cocaine

 
PavelДата: Среда, 09.04.2008, 14:34 | Сообщение # 2
Приближенный
Группа: Модераторы
Сообщений: 210
Репутация: 17
Замечания: 0%
Статус: Offline
Запросто. Для декартовой системы координат. И если вектор задан таким образом: B = {10, 11}
Code
procedure(x1, y1: real; var Sd2: real);
begin
sd2 := sqrt(sqr(x1) + sqr(y1)) / 2;
end;

А вообще правильно ли я понял условия? Сразу двух векторов или по одному? Я сделал по одному! biggrin biggrin biggrin
 
  • Страница 1 из 1
  • 1
Поиск:

Copyright MyCorp © 2025
Используются технологии uCoz
javascript:;" rel="nofollow" onclick="loginPopupForm(); return false;