Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Форум программистов и сисадминов Киберфорум > Форум программистов > Delphi > Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Правила Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день  
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
1 / 1 / 1
Регистрация: 09.06.2011
Сообщений: 43
1

Найти количество нечётных чисел,расположенных после минимального элемента.

11.08.2011, 17:29. Показов 654. Ответов 9
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
Delphi
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

program z17;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
const n=10;
type Int=integer;
     index=1..n;
     mas=array[index]of int;
 
procedure vvod(var a:mas);
var i:index;
begin
 for i:=1 to n do
  a[i]:=random(100);
end;
 
procedure vivod(a:mas);
var i:index;
begin
 for i:=1 to n do
  write(a[i],' ');
 writeln;
end;
 
function znach(a:mas;x:integer):Byte;
var i:index;
 
begin
 znach:=0;
 for i:=1 to n do
  if a[i]=x then
  begin
    znach:=i;
    Break;
  end;
 
 
end;
 
 
procedure min(a:mas; var mz:int;var pm:index);
var i:index;
 
    begin
  mz:=a[1];
  for i:=2 to n do
     if a[i]<mz then begin mz:=a[i];
     begin
     end;
     end;
end;
 function nech (a:mas; var mz:int ; var m:int):int  ;
     var i:index;
     begin
     result:=0;
     for i:=1 to n do
     if a[i]mod 2  <> 0 then begin result:=result+1;
                    end;
          end;
var x:mas;
    mz:Int;
    p:index;
 
 
    Begin
  randomize;
  vvod(x);
  vivod(x);
  min(x,mz,p);
  Writeln(mz,' ',p);
  writeln(nech(x));// здесь пишет not actual parametres
    readln;
 
  End.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 11.08.2011, 17:29
Ответы с готовыми решениями:

Найти количество элементов массива, расположенных после минимального элемента.
Найти количество элементов массива, расположенных после минимального элемента. В задании...

Дано N и набор из N чисел. Найти количество элементов, расположенных после последнего максимального элемента
Дано целое число N и набор из N целых чисел. Найти количество элементов, расположенных после...

Найти количество элементов набора из N целых чисел, расположенных после последнего максимального элемента
Дано целое число N и набор из N целых чисел. Найти количество элементов, расположенных после...

В наборе из N целых чисел найти количество элементов, расположенных после последнего максимального элемента
Дано целое число N и набор из N целых чисел. Найти количество элементов, расположенных после...

9
2184 / 1254 / 143
Регистрация: 28.04.2010
Сообщений: 4,592
11.08.2011, 17:52 2
Цитата Сообщение от ARtor Посмотреть сообщение
здесь пишет not actual parametres
и правильно делает
у тебя функция nech принимает 3 параметра, а ты передаешь 1
0
Почетный модератор
64291 / 47589 / 32740
Регистрация: 18.05.2008
Сообщений: 115,181
11.08.2011, 18:04 3
Delphi
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

program z17;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
const n=10;
type Int=integer;
     index=1..n;
     mas=array[index]of int;
 
procedure vvod(var a:mas);
var i:index;
begin
 for i:=1 to n do
  a[i]:=random(100);
end;
 
procedure vivod(a:mas);
var i:index;
begin
 for i:=1 to n do
  write(a[i],' ');
 writeln;
end;
 
function min(a:mas):index;//находим индекс минимального
var i:index;
begin
  result:=1;
  for i:=2 to n do
  if a[i]<a[result] then result:=i;
end;
 
function nech (a:mas; m:int):int;//кол.нечетн. после мин.
var i:index;
begin
if m=n then result:=0
else
 begin
  result:=0;
  for i:=m+1 to n do
  if odd(a[i]) then result:=result+1;
 end;
end;
var x:mas;
    m:int;
Begin
randomize;
vvod(x);
vivod(x);
m:=min(x);
Writeln('Min=',x[m],' index=',m);
writeln('Kol.nech=',nech(x,m));
readln;
End.
1
1 / 1 / 1
Регистрация: 09.06.2011
Сообщений: 43
11.08.2011, 18:50  [ТС] 4
Цитата Сообщение от Puporev Посмотреть сообщение
if odd(a[i]) then result:=result+1;
че такое odd

Добавлено через 1 минуту
зачем m приравнивать n?

Добавлено через 2 минуты
можешь мне мою просто подправить, если это возможно
0
Почетный модератор
64291 / 47589 / 32740
Регистрация: 18.05.2008
Сообщений: 115,181
11.08.2011, 18:54 5
Цитата Сообщение от ARtor Посмотреть сообщение
че такое odd
Функция проверки нечетности, например odd(5)=true, odd(4)=false. То же что и ia a mo2<>0.

Цитата Сообщение от ARtor Посмотреть сообщение
зачем m приравнивать n?
Если минимальный элемент последний, то нет смысла искать что-то за ним, результ=0.

Цитата Сообщение от ARtor Посмотреть сообщение
можешь мне мою просто подправить, если это возможно
Вот от этого избавь, исправляй сам.
0
1 / 1 / 1
Регистрация: 09.06.2011
Сообщений: 43
11.08.2011, 19:09  [ТС] 6
Исправил, ответ выводит, но неточный, подскажите че исправить
Delphi
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

program z17;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
const n=10;
type Int=integer;
     index=1..n;
     mas=array[index]of int;
 
procedure vvod(var a:mas);
var i:index;
begin
 for i:=1 to n do
  a[i]:=random(100);
end;
 
procedure vivod(a:mas);
var i:index;
begin
 for i:=1 to n do
  write(a[i],' ');
 writeln;
end;
 
function znach(a:mas;x:integer):Byte;
var i:index;
 
begin
 znach:=0;
 for i:=1 to n do
  if a[i]=x then
  begin
    znach:=i;
    Break;
  end;
 
end;
 
 
 
 
procedure min(a:mas; var mz:int;var pm:index);
var i:index;
    begin
  mz:=a[1];
  for i:=2 to n do
     if a[i]<mz then begin mz:=a[i];
     begin
     end;
     end;
end;
 function nech (a:mas; var mz:int ):int  ;
     var i:index;
       j:index;
         begin
         result:=0;
     for j:=1 to mz do
     if a[j]mod 2 <> 0 then begin result:=result+1;
                    end;
          end;
var x:mas;
    mz:Int;
    p:index;
    m:mas;
 
        Begin
  randomize;
  vvod(x);
  vivod(x);
  min(x,mz,p);
  Writeln(mz,' ',p);
  writeln(nech(x,mz));
    readln;
 
  End.
0
Почетный модератор
64291 / 47589 / 32740
Регистрация: 18.05.2008
Сообщений: 115,181
11.08.2011, 19:24 7
Delphi
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

 program z17;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
const n=10;
type Int=integer;
     index=1..n;
     mas=array[index]of int;
 
procedure vvod(var a:mas);
var i:index;
begin
 for i:=1 to n do
  a[i]:=random(100);
end;
 
procedure vivod(a:mas);
var i:index;
begin
 for i:=1 to n do
  write(a[i],' ');
 writeln;
end;
 
{function znach(a:mas;x:integer):Byte;//это вообще нафига??
var i:index;
 
begin
 znach:=0;
 for i:=1 to n do
  if a[i]=x then
  begin
    znach:=i;
    Break;
  end;
 
end; }
 
 
 
 
procedure min(a:mas; var mz:int;var pm:index);
var i:index;
begin
mz:=a[1];pm:=1;
for i:=2 to n do
if a[i]<mz then
 begin
  mz:=a[i];
  pm:=i;
 end;
end;
function nech (a:mas; pm:index):int;
var i:index;
    j:index;
begin
 result:=0;
 for j:=pm+1 to n do
 if a[j]mod 2 <> 0 then result:=result+1;
end;
var x:mas;
    mz:Int;
    p:index;
    m:mas;
 
Begin
  randomize;
  vvod(x);
  vivod(x);
  min(x,mz,p);
  Writeln(mz,' ',p);
  writeln(nech(x,p));//не значение мин, а его номер
    readln;
 
  End.
1
1 / 1 / 1
Регистрация: 09.06.2011
Сообщений: 43
11.08.2011, 19:33  [ТС] 8
Puporev, благодарю

Добавлено через 4 минуты
Это же будет то же самое
Delphi
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
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133

program z17;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
const n=10;
type Int=integer;
     index=1..n;
     mas=array[index]of int;
 
procedure vvod(var a:mas);
var i:index;
begin
 for i:=1 to n do
  a[i]:=random(100);
end;
 
procedure vivod(a:mas);
var i:index;
begin
 for i:=1 to n do
  write(a[i],' ');
 writeln;
end;
 
 
 
 
 
procedure min(a:mas; var mz:int;var pm:index);
var i:index;
begin
mz:=a[1];pm:=1;
for i:=2 to n do
if a[i]<mz then
 begin
  mz:=a[i];
  pm:=i;
 end;
end;
function nech (a:mas; pm:index):int;
var i:index;
    j:index;
begin
 result:=0;
 for j:=1 to pm do                                  // здесь исправил
 if a[j]mod 2 <> 0 then result:=result+1;
end;
var x:mas;
    mz:Int;
    p:index;
    m:mas;
 
Begin
  randomize;
  vvod(x);
  vivod(x);
  min(x,mz,p);
  Writeln(mz,' ',p);
  writeln(nech(x,p));//не значение мин, а его номер
    readln;
 
  End.
 
[size="1"][color="grey"][I]Добавлено через 2 минуты[/I][/color][/size]
или так 
 program z17;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
const n=10;
type Int=integer;
     index=1..n;
     mas=array[index]of int;
 
procedure vvod(var a:mas);
var i:index;
begin
 for i:=1 to n do
  a[i]:=random(100);
end;
 
procedure vivod(a:mas);
var i:index;
begin
 for i:=1 to n do
  write(a[i],' ');
 writeln;
end;
 
 
 
 
 
procedure min(a:mas; var mz:int;var pm:index);
var i:index;
begin
mz:=a[1];pm:=1;
for i:=2 to n do
if a[i]<mz then
 begin
  mz:=a[i];
  pm:=i;
 end;
end;
function nech (a:mas; mz:int):int;
var i:index;
    j:index;
begin
 result:=0;
 for j:=1 to mz do                                  // вместо pm mz
 if a[j]mod 2 <> 0 then result:=result+1;
end;
var x:mas;
    mz:Int;
    p:index;
    m:mas;
 
Begin
  randomize;
  vvod(x);
  vivod(x);
  min(x,mz,p);
  Writeln(mz,' ',p);
  writeln(nech(x,p));//не значение мин, а его номер
    readln;
 
  End.
0
Почетный модератор
64291 / 47589 / 32740
Регистрация: 18.05.2008
Сообщений: 115,181
11.08.2011, 19:38 9
Цитата Сообщение от ARtor Посмотреть сообщение
for j:=1 to pm do
Совсем дуб что ли? У тебя какое условие?

Цитата Сообщение от ARtor Посмотреть сообщение
количество нечётных чисел,расположенных после минимального элемента.
0
1 / 1 / 1
Регистрация: 09.06.2011
Сообщений: 43
11.08.2011, 19:48  [ТС] 10
Puporev, а , точно, я уже сам запутался

Добавлено через 57 секунд
Puporev, сори
0
11.08.2011, 19:48
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 11.08.2011, 19:48
Помогаю со студенческими работами здесь

Найти произведение четных отрицательных элементов массива, расположенных после минимального элемента
Помогите пожалуйста a) найти произведение четных отрицательных элементов массива, расположенных...

Найти сумму модулей элементов массива, расположенных после минимального по модулю элемента
решите задачи по делфи пожалуйста 2.Дан одномерный целочисленный массив. Найти сумму модулей...

Вычислить сумму элементов массива, расположенных после минимального элемента
1.Вычислить сумму элементов массива, расположенных после минимального элемента. 2.Преобразовать...

Найти сумму элементов массива, расположенных до предпоследнего минимального элемента
Можно просто объяснить,как находить несколько мин (макс) элементов в одном массиве?Кроме...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
10
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru