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

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

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

Восстановить пароль
Повторная активизация e-mail

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

Ответ
 
Опции темы Поиск в этой теме
Старый 31.03.2009, 11:51   #1
QEEN
 
Регистрация: 30.03.2009
Сообщений: 4
Печаль Одномерные массивы

до меня не доходит как решить такую задачку на массивы: в одномерном массиве,состоящем из 35 вещественных элементов вычислить: а)произведение элементов массива с четными номерами.
б)сумму элементов массива расположенных между первым и последними нулевыми элементами. кто-нибудь может мне с этим помочь,пожалуйста?
QEEN вне форума Ответить с цитированием
Старый 31.03.2009, 11:55   #2
alex_fcsm
Участник клуба
 
Аватар для alex_fcsm
 
Регистрация: 10.11.2008
Сообщений: 1,502
По умолчанию

1) В цикле проверяете если номер элемента четный, то перемножаете
2) Находите 2 индекса и производите суммирование

Это в общих чертах. Что уже сделали, от чего можно оттолкнуться?
Нормальное состояние техники - нерабочее, все остальное частный случай.
alex_fcsm вне форума Ответить с цитированием
Старый 31.03.2009, 12:03   #3
QEEN
 
Регистрация: 30.03.2009
Сообщений: 4
По умолчанию

Если честно ничего. вообще эту тему не понимаю!
QEEN вне форума Ответить с цитированием
Старый 31.03.2009, 12:31   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Ну вот смотри:
Есть массив:
Код:
a:array[1..35] of real;
И пересенка:
Код:
Sum:real;i:integer
В цикле:
Код:
for i:=1 to 35 do...
Проверяеш на четность
Код:
If i mod 2 =0 then // a[i] стоит на четной позици и его нужно прибавить к суме.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 31.03.2009, 15:23   #5
Gongled
Пользователь
 
Регистрация: 17.02.2009
Сообщений: 78
По умолчанию

Напишу готовое. Но с пояснениями.
Код:
program z1;
{ Подключаем модуль для очистки экрана }
uses CRT;
const
{ Число элементов }
n = 35;

var
{ Объявляем массив }
a : array[1..n] of real;
{ Счётчики цикла }
i, j, k : integer;
{ Переменные для произведения и суммы }
pr, sum : real;

begin
{ Очищаем экран }
clrscr;

{ Начальные присваивания }
pr := 1;
sum := 0;

for i:=1 to n do
begin
{ Считываем элементы}
read(a[i]);

   { Если i чётное, то умножаем }
   if (i mod 2 = 0) then
      pr := pr * a[i];

{ Поиск позиции последнего нуля }
if (a[i] = 0) then j:=i;
end;

for i:=n downto 1 do
begin
     { Поиск позиции первого нуля }
     if (a[i] = 0) then k:=i;
end;

{ Подсчёт суммы }
for i:=k+1 to j-1 do
begin
     sum := sum + a[i];
end;

{ Вывод полученных значений }
writeln('sum = ', sum);
writeln('pr = ', pr);

end.
P.S. Искать позиции нулей можно и иначе. Бежим цикл, и сверяем с нулём. Если нашли, то break.
Пишу глупости.
Gongled вне форума Ответить с цитированием
Старый 03.04.2009, 12:25   #6
QEEN
 
Регистрация: 30.03.2009
Сообщений: 4
По умолчанию

Большое спасибо!!!
QEEN вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Даны одномерные массивы А и В. Сформировать массивы, состоящие из элемент LyaLya Помощь студентам 15 20.12.2009 14:12
C++/ Одномерные массивы BennyBenassy Общие вопросы C/C++ 6 23.02.2009 14:27
Одномерные Массивы ТРОЯН=) Помощь студентам 4 03.02.2009 00:11
C++ Одномерные массивы. rus_rock_no_dead Помощь студентам 1 20.01.2009 15:31
Одномерные массивы Дашуня Помощь студентам 1 06.12.2008 11:20