Модераторы: volvo877, Snowy, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Процедуры - функции, помогите 
:(
    Опции темы
ANTON12
Дата 23.12.2006, 08:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 22.12.2006

Репутация: нет
Всего: нет

22.    Ввести вектора  a=(a1,a2,a3,a4,a5) b=(b1,b2,b3)  c=(c1,c2,c3,c4,c5,c6,c)Если  x*z*z>(ln x+ln y )/ln z , то V=( x-y)+(x-y)*(x-y)+.....+ и до 10 степени , иначе  , где x, y, z – длины векторов   соответственно. Вычисление длины вектора и значения V оформить в виде процедур-функций. 
PM MAIL   Вверх
Zero
Дата 23.12.2006, 11:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24
ANTON12, если создаёшь тему в разделе паскаль, то позаботься чтобы в ней был вопрос... А то непонятно на что нам нужно отвечать. smile 
Если у тебя просьба о написании программы, то заходи в раздел Центр помощи и создавай тему там.
PM MAIL ICQ   Вверх
PrinceMike
Дата 23.12.2006, 17:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 184
Регистрация: 23.11.2006
Где: Москва

Репутация: нет
Всего: 1
а что за х,у и z? ввод массивов осуществляется вот-так,  а ели пояснишь то что хочешь, то попробую помочь...
Код

program help;
uses crt;
const
m=5;
d=3;
n=7;
var a:array[1..m] of real;
      b:array[1..d] of real;
      c:array[1..n] of real;
begin
clrscr;
for i:=1 to m do
begin
write('a(',i, ')= ');
readln(a[i]);
end;  
for i:=1 to d do
begin
write('b(',i, ')= ');
readln(b[i]);
end;  
for i:=1 to n do
begin
write('c(',i, ')= ');
readln(c[i]);
end;  
...
end.


Это сообщение отредактировал(а) PrinceMike - 23.12.2006, 17:39
--------------------
PM MAIL WWW ICQ   Вверх
Zero
Дата 23.12.2006, 18:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24
Цитата(PrinceMike @  23.12.2006,  17:38 Найти цитируемый пост)
а что за х,у и z?

Количество элементов в массиве, грубо говоря. Длины векторов.
PM MAIL ICQ   Вверх
PrinceMike
Дата 23.12.2006, 18:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 184
Регистрация: 23.11.2006
Где: Москва

Репутация: нет
Всего: 1
 и? как их считать то?smile
--------------------
PM MAIL WWW ICQ   Вверх
Zero
Дата 23.12.2006, 19:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24
x = 5
y = 3
z = 7
PM MAIL ICQ   Вверх
PrinceMike
Дата 23.12.2006, 20:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 184
Регистрация: 23.11.2006
Где: Москва

Репутация: нет
Всего: 1
На первый взгляд не оч сложно, но седня уже думать сил нет : с утра зачет, а потом одногрупнику лабы писал, а то у него совсем хреново...
--------------------
PM MAIL WWW ICQ   Вверх
Beltar
Дата 24.12.2006, 15:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 627
Регистрация: 11.1.2006

Репутация: нет
Всего: 7
А может под длиной вектора следует понимать квадратный корень из суммы квадратов координат, т. е. в мат. терминах. А то какой смысл ее искать, тем более, в Delphi ее можно получить функцией Length, в BP 7 не знаю, но знаю, что даже в Delphi 3 не было динам. массивов. smile


--------------------
Опытный программист на C++ легко решает любые не существующие в Паскале проблемы. smile(с) я, хотя может и нет
Пищущий на C++ мужик. Даже если это мужик сидит в написанном на Delphi и жрущем паскалевскую библиотеку билдере.
PM MAIL   Вверх
PrinceMike
Дата 25.12.2006, 18:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 184
Регистрация: 23.11.2006
Где: Москва

Репутация: нет
Всего: 1
Цитата(Beltar @ 24.12.2006,  15:04)
А может под длиной вектора следует понимать квадратный корень из суммы квадратов координат, т. е. в мат. терминах. А то какой смысл ее искать, тем более, в Delphi ее можно получить функцией Length, в BP 7 не знаю, но знаю, что даже в Delphi 3 не было динам. массивов. smile

Наверно ты прав) а то слишком все просто) а подвох вот он тут как тут =)
--------------------
PM MAIL WWW ICQ   Вверх
Zero
Дата 25.12.2006, 20:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24
Цитата(Beltar @  24.12.2006,  15:04 Найти цитируемый пост)
А может под длиной вектора следует понимать квадратный корень из суммы квадратов координат,

Незнаю, может быть... smile Я пока невижу тут некаких координат. smile И с какой стати он тогда задаётся разным количеством элементов... Короче тут по разному задание можно понимать. Кроме того помоему оно незавершённое. Иначе ... не оговорено. smile 
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi"
THandle
Rrader
volvo877

Запрещается!

1. Обсуждать и делится взломанными компонентами или программным обеспечением

2. Публиковать ссылки на варез

3. Оффтопить

  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, THandle, Rrader, volvo877.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Object Pascal: кроссплатформенные технологии | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0741 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.