Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal] Одномерный массив

Автор: supergiperlamer 26.11.2006, 23:16

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

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

Автор: AligatorV 27.11.2006, 02:52

Здраствуйте 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

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

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

Автор: volvo877 27.11.2006, 09:04

Цитата(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.

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

Автор: supergiperlamer 27.11.2006, 13:09

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

)

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

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

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

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

)

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

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