Форум программистов, компьютерный форум CyberForum.ru

В одномерном массиве,состоящем из... - C++

Восстановить пароль Регистрация
 
cent
Сообщений: n/a
06.05.2010, 22:00     В одномерном массиве,состоящем из... #1
Всем привет!Кому не сложно,помогите выполнить задание,буду очень благодарен
В одномерном массиве,состоящем из n вещественных элементов,вычислить:
1)Количество элементов массива,больших "с";
2)Произведение элементов массива,расположенных после максимального по модулю элемента;
3)Преобразовать массив таким образом,чтобы сначала располагались все отрицательные элементы,а потом - все положительные (элементы,равные 0,считать положительными);
4)Определение позиции максимального по модулю элемента оформить через функцию;
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
winelove
 Аватар для winelove
1 / 1 / 0
Регистрация: 10.05.2010
Сообщений: 71
10.05.2010, 22:08     В одномерном массиве,состоящем из... #2
да, помогите пожалуйста решить эту задачу, мне она тоже нужна
Sn1pper
5 / 5 / 0
Регистрация: 10.05.2010
Сообщений: 18
10.05.2010, 23:09     В одномерном массиве,состоящем из... #3
C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
void form(float *a,int n, int i)
{
for(i=0;i<n;i++)
*(a+i)=0.01*rand();
void fmax(float *a, int n, int i, float *max)
{
max=-10000;
for(i=0;i<n;i++)
if(a[i]>max) max=a[i];
}
void kol(float *a, int n, int i, float *kol=0)
{
for(i=0;i<n;i++)
if(a[i]>max) kol++;
}
void main()
{
float x[20],max,kol;
int i,n;
clrscr();
form(x,20)
fmax(x,20,&max)
kol(x,20,&kol)
printf("%6.1f", kol);
getch();
}
думаю должна работать
winelove
 Аватар для winelove
1 / 1 / 0
Регистрация: 10.05.2010
Сообщений: 71
10.05.2010, 23:18     В одномерном массиве,состоящем из... #4
мне только 4 пункт задачи не нужен
пишет ошибку не хватает точки с запятой, фигурной скобки
еще
call to undefined function 'rand'
declaration syntax error

Добавлено через 2 минуты
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
uses crt;
const NMax=100;
Type MyArr=array[1..NMax] of integer;
 
procedure InputMassive(var ar:myarr; var n:byte);
var i:byte;
   { ch:char; }
begin
Randomize;
repeat
Write('n=');
Readln(n);
until n in [1..NMax];
for i:=1 to n do
 ar[i]:=random(20)-10;  {
i:=0;
repeat
i:=i+1;
Writeln('Vvedite a[',i,'] element');
Readln(ar[i]);
Writeln('Prodolzhat? enter\n');
ch:=ReadKey;
until ch in ['n','N'];  }
end;
 
procedure OutputMassive(var ar:myarr; n:byte);
var i:byte;
begin
 for i:=1 to n do
  Write(ar[i],'  ');
Writeln;
end;
 
procedure MinCMassive(var a:myarr; n:byte);
var c,k,i:integer;
begin
Writeln('Vvedite C ');
Readln(c);
k:=0;
 for i:=1 to n do
  if a[i]<c then
   k:=k+1;
Writeln('K= ',k);
end;
 
procedure ProizMaxMassive(var a:myarr; n:byte);
var p:longint;
    max,imax:integer;
    i:byte;
begin
p:=1;
max:=1;
 for i:=1 to n do
  if abs(a[i])>max then
   begin
    max:=abs(a[i]);
    imax:=i;
   end;
 for i:=imax+1 to n do
  p:=p*a[i];
Writeln('P= ',p);
end;
 
procedure SortMassive(var a:myarr; n:byte);
var x,k:integer;
    i,j:byte;
begin
Writeln;
for i:=1 to n do
 for j:=i to n do
  if a[i]>=0 then
   begin
    x:=a[i];
    a[i]:=a[j];
    a[j]:=x;
   end;
for i:=1 to n do
 Write(a[i],'  ');
end;
 
var a:myarr;
    i,x:byte;
begin
ClrScr;
InputMassive(a,x);
OutputMassive(a,x);
MinCMassive(a,x);
ProizMaxMassive(a,x);
SortMassive(a,x);
ReadKey;
end.
вот эта задача в Паскале, а мне надо в с++
Yandex
Объявления
10.05.2010, 23:18     В одномерном массиве,состоящем из...
Ответ Создать тему
Опции темы

Текущее время: 06:58. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru