Одномерный массив, состоящий из n вещественных элементов

[ekb_lbp]

С одномерным массивом, состоящим из n вещественных элементов, произвести следующие операции:
1) вычислить произведение положительных элементов массива;
2) вычислить сумму элементов массива, расположенных до минимального элемента. При наличии нескольких минимальных элементов (равных друг другу) выбирается последний из них;
3) упорядочить по возрастанию отдельно элементы, стоящие на четных местах, и элементы, стоящие на нечетных местах.

Помогите пожалуйста написать программу?
для каждой операции (их 3) выполнить своей функцией

[Bugrimov]

наработки у вас есть?

[-glykaman-]

На делфи тело функции было бы примерно такое:
Предположим что массив называется mass и имеет определение:

function first(n:integer):integer; //n - количество элементов массива 
var
i:integer; //для счетчика
begin
first:=0; //обнуляем результат переменной

for i:=0 to n do
 begin
  if mass[i]>0 then first:=first+mass[i]; //если элемент массива > 0 то прибавляем его к возвращаемому значению.
 end;
end;

Потому в нужном месте вызываешь просто first(n) она вернет сумму.

2)

function two(n:integer):integer; //n - количество элементов массива 
var
i:integer; //для счетчика
id:integer; //id минимального элемента
begin
two:=0;
id:=0;

//ищем минимальный элемент
for i:=0 to n do
 begin
  if mass[i]<mass[id] then id:=i; //если элемент массива меньше чем тот что находится  в mass[id] то присваиваем id значение i
 end;

// считаем сумму до минимального элемента

for i:=0 to id do
 begin
  two:=two+mass[i]; 
 end;
end;

3)

procedure three(n:integer); 
var
i:integer; //для счетчика
a:boolean; //требуется ли еще один прогон по циклу
begin

repeat
a:=true;
for i:=0 to n do
 begin
 
  if (i+2<n) then
  if (mass[i]>mass[i+2]) then begin 
                                     swap(mass[i],mass[i+2]); //меняем местами элементы массива
                                     a:=false;
                                      end



 end;
until a;

end;

В последнем используется сортировка пузырьком.

код не тестировал - может содержать незначительные ошибки. Но общая идея думаю понятна.

Вообще задачки школьного уровня.

PS. если помог - жми на весы слева.

[Serge_Bliznykov]

glykaman, попытка, конечно, хорошая, НО!
недочётов и ошибок очень много!

начиная с того, что обрабатывается массив из N+1 элементов (везде у Вас от 0 до n, а должно быть или от 0 до n-1 или от 1 до n),
далее, зачем-то в first вы ищете сумму, хотя в задании нужно найти произведение.
далее, в задаче two вы включаете в сумму значение минимального элемента, хотя в условии задачи сказано найти сумму ДО минимального элемента.
ваше решение третьей задачи я умозрительно продебажить не смог, похоже, что последний элемент не будет никогда сортироваться.
далее, если массив из вещественных значений, то почему функции first и two возвращают ЦЕЛОЕ число.

Кроме того, меня всегда умиляло, когда одна переменная (в вашем случае это n) передаётся как параметер процедуры/функции, а сам массив обрабатывается глобально! Если уж Вы используйте параметры, так передавайте в качестве параметров и переменную-массив (это было бы логично). Допустим дано несколько (три) массивов и нужно выполнить вышеуказанные действия с каждым из них. Вы будете писать три разные функции first, two и три разные процедуры three ?!

Вообще задачки школьного уровня.

это да.

Мой сайт с видеоуроками по программированию

Ого. Так Вы ещё, оказывается, и других программировать учите?!


p.s. да, а кто Вам сказал, что автору топика нужно решение на Паскаль?

[-glykaman-]

Сообщение от Serge_Bliznykov

glykaman, попытка, конечно, хорошая, НО!
недочётов и ошибок очень много!

начиная с того, что обрабатывается массив из N+1 элементов (везде у Вас от 0 до n, а должно быть или от 0 до n-1 или от 1 до n),
далее, зачем-то в first вы ищете сумму, хотя в задании нужно найти произведение.
далее, в задаче two вы включаете в сумму значение минимального элемента, хотя в условии задачи сказано найти сумму ДО минимального элемента.
ваше решение третьей задачи я умозрительно продебажить не смог, похоже, что последний элемент не будет никогда сортироваться.
далее, если массив из вещественных значений, то почему функции first и two возвращают ЦЕЛОЕ число.

Кроме того, меня всегда умиляло, когда одна переменная (в вашем случае это n) передаётся как параметер процедуры/функции, а сам массив обрабатывается глобально! Если уж Вы используйте параметры, так передавайте в качестве параметров и переменную-массив (это было бы логично). Допустим дано несколько (три) массивов и нужно выполнить вышеуказанные действия с каждым из них. Вы будете писать три разные функции first, two и три разные процедуры three ?!


это да.


Ого. Так Вы ещё, оказывается, и других программировать учите?!


p.s. да, а кто Вам сказал, что автору топика нужно решение на Паскаль?

пффФ я всего лишь дал наводку а не готовое решение. Накидал примерный исходник за 5 мин. Ничего удивительного что столько ошибок ;-) А за исправления автор вам спасибки скажет )

А про язык автор ничего не сказал) Так что волен реализовывать как хочу)))) (Это правда Delphi был по задумке, хотя не уверен что swap есть и в паскале и в делфи.)

[challengerr]

#include <iostream>
#include <cstdlib>
#include <ctime>

using namespace std;

void rand_array(double* a, int an)
{
int i;
int rn;

rn = 0;

srand(time(0));

for(i=0;i<an;i++)
{
while (rn == 0)
{
rn = rand()%1000;
}
a[i] = 1.0 / rn;
rn = 0;
}

}

void print_array(double* a, int an)
{
int i;

for(i=0;i<an;i++)
cout << a[i] << " ";

cout << "\n";

}

void multiplicate(double* a, int an)
{
int i;
double p;

p = 1.0;

for(i=0;i<an;i++)
if(a[i]>0)
p*=a[i];

cout << "multiplicate: " << p <<"\n";

}

int double_compare(double a1, double a2)
{
int result = 0;
// st0 > sti c3:0 c2:0 c0:0
// st0 < sti c3:0 c2:0 c0:1
// st0 = sti c3:1 c2:0 CF:0

// ja  cf = 0 && zf = 0
// jnp pf = 0
// je zf = 1
// jc cf = 1

__asm {
fild a1
fild a2
fcomi st, st(1)
ffree st(0)
ffree st(1)

ja y2
je y3
jc y4
jmp ex

y2:  
mov result, 1
jmp ex

y3:  
mov result, 2
jmp ex

y4:  
mov result, 3

ex:

};

//cout << "double_compare(" << a1 << "," << a2 <<"): " << result << "\n";
// 1 : a1 > a2
// 2 : a1 < a2
// 3 : a1 = a2

return result;
}


int minimal_position(double* a, int an)
{
int i;
double p;
int pos;
int r; 

p = a[0];
pos = 0;

for(i=0;i<an;i++)
{
r = double_compare(p, a[i]);
if (r == 3) // p > a[i]
{
p = a[i];
pos = i;
}
else if (r == 2)
{
pos = i;
}
}

cout << "minimal_position: " << p << " " << pos << "\n";
return pos;
}

void sort(double* a, int an)
{
int i, j;
double tmp;
int r; 

for(i=0;i<an;i+=2)
{
for(j = i+2;j<an; j+=2)
{
r = double_compare(a[i], a[j]);
if (r == 3) 
{
tmp = a[i];
a[i]=a[j];
a[j]=tmp;
}
}
}



for(i=1;i<an;i+=2)
{
for(j = i+2;j<an; j+=2)
{
r = double_compare(a[i], a[j]);
if (r == 3) 
{
tmp = a[i];
a[i] = a[j];
a[j] = tmp;
}
}
}
}


int main(int argc, char* argv[])
{
int n;
double* m;

cin >> n;

m = new double[n];
rand_array(m,n);
print_array(m,n);
multiplicate(m,n);
minimal_position(m,n);
sort(m,n);
print_array(m,n);
delete [] m;
return 0;
}

[Вадим Мошев]

Сергей, посмотрите эту тему http://www.programmersforum.ru/showthread.php?t=214540
Всё встанет на свои места.

[Poma][a]

хотя не уверен что swap есть и в паскале и в делфи

Он есть и там и там, НО Swap меняет местами старший и младший байты!! А не числа.

Сергей, посмотрите эту тему http://www.programmersforum.ru/showthread.php?t=214540
Всё встанет на свои места.

Упорно не хочет открывать..

[-glykaman-]

Сообщение от Poma][a

Он есть и там и там, НО Swap меняет местами старший и младший байты!! А не числа.

Оу точно, это у меня в моих юнитах прописаная процедура, видимо совсем давно ее писал и подумал что она системная. Сорри)

Можно просто приписать вот это

procedure Swap( var X, Y: Integer ); overload;
{$IFDEF F_P}
var Tmp: Integer;
begin
 Tmp := X;
 X := Y;
 Y := Tmp;
end;
{$ELSE DELPHI}
asm
 MOV  ECX, [EDX]
 XCHG ECX, [EAX]
 MOV  [EDX], ECX
end;
//[END Swap]
{$ENDIF F_P/DELPHI}

Простая процедурка, но частенько помогает мне.

[ekb_lbp]

На языке Си(и немного С++), забыл упомянуть, измените.
Я вот попробовал и написал первые две операции но не знаю правильно ли и не могу дописать третью операцию про сортировку.
Задание у меня такого, что нужно сделать проектом где три файла с кодами main, calc и test

my.h

#include <stdio.h>
#include <stdlib.h>
#include <conio.h>

void input1 (int *n);
void create (int n, float *a);
void input2 (int n, float *a);
void output (int n, float *a);
float calc1 (int n, float *a);
float calc2 (int n, float *a);
//void test();  //еще не написал

main.cpp

#include "my.h"
#include <stdio.h>
#include <conio.h>
#include <stdlib.h>

void main()
{
  clrscr();
  //test();
  float a[5];
  int n;
  char x;
  input1(&n);
  printf("Vvod s klaviaturi ili clu4ainie 4isla?\n (y/n)\n");
  x=getch();
  if (x=='y')
  {
    input2 (n,a);
    output (n,a);
  }
  if (x=='n')
  {
    create (n,a);
    output (n,a);
  }
  float pr=calc1 (n,a);
  printf ("Proizvedenie polohitel'nih elementov = %.3f\n", pr);
  float sum=calc2 (n,a);
  printf ("Summa do minimal'nogo elementa = %.3f\n", sum);
  /*
  for (int i=1; i<=n; i++)
  printf ("%0.3f\n", a[i]);
  */
     if (!getch())
	getch();
}

void input1 (int *n)  //вводим размер массива
{
  printf ("Vvedite razmer massiva= \n");
  int res=scanf("%i", n);
  if (res==0 || *n<1 || *n>5)
  {
    printf ("Ochibka vvoda \n");
    if (!getch())
       getch();
    fflush(stdin);
    exit(1);
    }
}

void create (int n, float *a)  //элементы с генератора случайных чисел
{
  for (int i=1; i<=n; i++)
     a[i]=random(30)-10;
}

void input2 (int n, float *a)  //ввод элементов с клавиатуры
{
  for (int i=1; i<=n; i++)
  {
     printf ("\n Vvedite %i element ", i);
     scanf ("%f", &a[i]);
  }
}

void output (int n, float *a)  //вывод массива
{
  printf ("Massiv: \n");
  for (int i=1; i<=n; i++)
     printf ("%.3f\n", a[i]);
}

calc.cpp

#include "my.h"

float calc1 (int n, float *a)
{
  float pr=0;
  for (int i=0; i<=n; i++)
     if (a[i] > 0)
	pr*=a[i];
  return pr;
}

float calc2 (int n, float *a)
{
  float sum=1, max=a[1], min=a[1];
  int nmax=0, nmin=0;
  for (int i=1; i<=n; i++)
  {
     if (a[i] > max)
     {
	nmax=i;
	max=a[i];
     }
     if (a[i] <= min)
     {
	nmin=i;
	min=a[i];
     }
  }
  printf ("max=%.3f\n min=%.3f\n", max, min);
  if (nmax > nmin)
     for (i=nmin+1; i<nmin; i++)
	sum+=a[i];
  if (nmax < nmin)
     for (i=nmax+1; i<nmax; i++)
	sum+=a[i];
  if (nmax == nmin+1 || nmin == nmax+1)
     sum=0;
  return sum;
}
/*
void calc3 (int n, float *a)
{
 
}
*/