Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.06.2009, 20:27   #1
Яков Repby
Пользователь
 
Регистрация: 08.06.2009
Сообщений: 12
По умолчанию Массивы

Составьте программу вычисления функции:
z=(c1+x1+x2)*(1+k1+k2)/2;
,где х1--отрицательный элемент заданного массива А,имеющий наименьший индекс.
к1-его индекс (если такого элемента нет,то обе величины равны 0);
х2 и к2-соответствующие элементы массива.
с1-любое число.......
Заранее спасибо!
Яков Repby вне форума Ответить с цитированием
Старый 17.06.2009, 20:42   #2
sheka
Босс
Форумчанин
 
Аватар для sheka
 
Регистрация: 03.06.2009
Сообщений: 125
По умолчанию

где-то я уже видел эту задачу, только не помню где.
что такое
"х2 и к2-соответствующие элементы массива", или вы тоже объяснить не можете:=?

Две одинаковые вложенные ошибки называются четной ошибкой и ошибкой не являются.
Ася 255507394. Отзывы здесь.
sheka вне форума Ответить с цитированием
Старый 17.06.2009, 21:18   #3
Яков Repby
Пользователь
 
Регистрация: 08.06.2009
Сообщений: 12
По умолчанию

Я думаю что это произвольные элементы массива!
Яков Repby вне форума Ответить с цитированием
Старый 17.06.2009, 21:26   #4
sheka
Босс
Форумчанин
 
Аватар для sheka
 
Регистрация: 03.06.2009
Сообщений: 125
По умолчанию

тогда ваши наработки в студию!

Две одинаковые вложенные ошибки называются четной ошибкой и ошибкой не являются.
Ася 255507394. Отзывы здесь.
sheka вне форума Ответить с цитированием
Старый 17.06.2009, 21:44   #5
Яков Repby
Пользователь
 
Регистрация: 08.06.2009
Сообщений: 12
По умолчанию

хммм...Пока пусто...Сможете помочь?
Яков Repby вне форума Ответить с цитированием
Старый 17.06.2009, 21:56   #6
GROWZER
Пользователь
 
Аватар для GROWZER
 
Регистрация: 16.06.2009
Сообщений: 47
По умолчанию

если я доканца правильно понял условие задания то долджно выглдеть гдето так:

Код:
var  MAS: array[1..100] of Real; // масив описуем до 100 например ...
      z,c1,x1,x2,k1,k2:Real;
      counter:integer;

Begin
    // заполняем масив каким-нибудь образом....
    x1=0;
    k2=1; //тут любое число....
    c1=100; //тут любое число....
    x2=MAS[k2];
    for counter:=1 to 100 do // цыкл для поиска первого отрицательного элемента в масиве
        begin
            if (mas[counetr]<0) then
                begin
                    x1:=mas[counter];
                    k1:=counter;
                    break; 
                end;
        end; 
    z:=(c1+x1+x2)*(1+k1+k2)/2;
End.
GROWZER вне форума Ответить с цитированием
Старый 17.06.2009, 22:01   #7
Яков Repby
Пользователь
 
Регистрация: 08.06.2009
Сообщений: 12
По умолчанию

Спасибо!...Большое
Яков Repby вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Даны одномерные массивы А и В. Сформировать массивы, состоящие из элемент LyaLya Помощь студентам 15 20.12.2009 14:12
Массивы [C++] Иван 883 Помощь студентам 0 08.04.2009 20:39
Массивы на C++ Wia Помощь студентам 6 06.12.2008 16:09
Массивы StudentPolitech Помощь студентам 7 05.12.2008 01:30