VPF::[Pascal] Одномерный массив - Форум программистов

supergiperlamer

Дата 26.11.2006, 23:16 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Написать программу в паскале для задачи:

В одномерном массиве, состоящем из N вещественных элементов, вычислить:
1) сумму положительных элементов массива;
2) произведение элементов массива, расположенных между максимальным по модулю и минималь-ным по модулю элементами.
Упорядочить элементы массива по убыванию.

AligatorV

Дата 27.11.2006, 02:52 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Здраствуйте supergiperlamer, вот код к первому пункту. Прошу обяснить второй пункт, для того чтобы я смог помочь вам.

Код


const n=?; (число элементов)
var a:array[1..n] of real;
    i:integer;
    s:real;
begin
s:=0;
 for i:=1 to n do
 begin
  writeln('введите число');
  readln(a[i]);
  if a[i]>=0 then s:=s+a[i];
 end;
 writeln('сума пол. ел.=',s);
end.

Добавлено @ 03:01
Вот метод сортировки

Код


REPEAT ind:=true;    {предположим, что массив уже отсортирован} 
FOR i:=l TO [n-1] DO   {цикл для организации просмотра}
if m[i]<m[i+l] then  {сравнение двух соседних элементов} 
begin buf:=m[i];     {меняем соседние элементы местами} 
m[i]:=m[i+l]; m[i+l]:=buf;
ind:=false;    {как оказалось, массив неотсортирован} end; 
UNTIL ind; {выполняем просмотры пока ind=false}

M
alexeis1

Модератор: когда же в конце концов будет подсветка кода?

Это не рекомендация, а требование обязательное к выполнению.

Это сообщение отредактировал(а) alexeis1 - 27.11.2006, 13:26

volvo877

Дата 27.11.2006, 09:04 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

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

Цитата(supergiperlamer @ 26.11.2006, 22:16

)

произведение элементов массива, расположенных между максимальным по модулю и минималь-ным по модулю элементами.

"Между" - значит, НЕ включая самих минимального и максимального по модулю?

Тогда вот так:

Код

const
  n = 10;
  arr: array[1 .. n] of real = (
    2.2, 4.8, -2.8, -0.7, -4.9,
    3.4, -3.3, 2.6, -1.9, -0.2
  );

var
  i_min, i_max, i: integer;
  p: real;

begin
  i_min := 1; i_max := 1;
  for i := 2 to n do begin
    if abs(arr[i]) > abs(arr[i_max]) then i_max := i;
    if abs(arr[i]) < abs(arr[i_min]) then i_min := i;
  end;

  p := 1;
  for i := ((i_min + i_max - abs(i_min - i_max)) div 2) + 1 to
           ((i_min + i_max + abs(i_min - i_max)) div 2) - 1 do p := p * arr[i];
  writeln('p = ', p:10:5);
end.

(данные заменишь на свои)

Это сообщение отредактировал(а) volvo877 - 27.11.2006, 09:04

supergiperlamer

Дата 27.11.2006, 13:09 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Цитата(AligatorV @ 27.11.2006, 02:52

)

Здраствуйте supergiperlamer, вот код к первому пункту. Прошу обяснить второй пункт, для того чтобы я смог помочь вам.

2)вычислить произведение элементов массива, расположенных между максимальным по модулю и минимальным по модулю элементами. Т.е. нужно найти макс. и мин. по модулю элементы, определить какие элементы массива находятся между ними и найти их произведение...

Добавлено @ 13:10

Цитата(volvo877 @ 27.11.2006, 09:04

)

"Между" - значит, НЕ включая самих минимального и максимального по модулю?

НЕ включая самих мин. и макс. по модулю элементов. .

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »