Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
avp2013
0 / 0 / 0
Регистрация: 23.10.2013
Сообщений: 12
1

Массив: Все нечетные элементы целочисленного массива A(n) поместить в начало массива L(n), а нечетные – в массив K(n).

23.10.2013, 19:46. Просмотров 1095. Ответов 12
Метки нет (Все метки)

Все нечетные элементы целочисленного массива A(n) поместить в начало массива L(n), а нечетные – в массив K(n). Подсчитать количество и тех и других.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.10.2013, 19:46
Ответы с готовыми решениями:

Найти все нечетные, меньшие введенного числа,но большие 0 и поместить их в массив
Пользователь вводит число. Найти: Все нечетные, меньшие введенного числа,но...

Сформировать динамический массив А из N целых случайных чисел. Удалить из массива нечетные элементы
Составить программу формирования динамического массива А из N целых случайных...

Увеличить на 3 все нечетные элементы и вывести новый массив
4. Дан массив К(М). Вычислить сумму квадратов положительных элементов и...

Массив: Получить последовательность В(10), которая отличается от исходной тем, что все нечетные элементы удвоены.
Дан массив А(10). Необходимо получить последовательность В(10), которая...

Переписать из массива А в массив В положительные элементы в начало массива, а отрицательные - в конец
Составить программу в среде Delphi (VCL-application) в соответствии со...

12
Cyborg Drone
Модератор
5398 / 3209 / 2450
Регистрация: 17.08.2012
Сообщений: 10,289
24.10.2013, 04:12 2
Цитата Сообщение от avp2013 Посмотреть сообщение
Все нечетные элементы целочисленного массива A(n) поместить в начало массива L(n), а нечетные – в массив K(n).
все НЕЧЁТНЫЕ - в L(n), а вот все НЕЧЁТНЫЕ - в K(n). Ну ладно. пускай все ЧЁТНЫЕ в K(n). Вот Вам целевой фрагмент кода, cl и ck - счётчики для чётных и нечётных соответственно. Остальное сами допишете. Не перпеттуум мобиле.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
  cl := 0;
  ck := 0;
  for i := 1 to n do
    if odd(a[i])
      then
        begin
          cl := cl + 1;
          l[cl] := a[i]
        end
      else
        begin
          ck := ck + 1;
          k[cl] := a[i]
        end;
0
avp2013
0 / 0 / 0
Регистрация: 23.10.2013
Сообщений: 12
24.10.2013, 08:30  [ТС] 3
кто нибудь посмотри листинг и скажите где ошибка
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TForm1.Button3Click(Sender: TObject);
begin
 k1:=0; k2:=0;
 for i:=1 to n do
  if odd(a[i]) then
    begin
    k1:=k1+1;
    l[k1]:=a[i];
    end
  else
    begin
    k2:=k2+1;
    k[k2]:=a[i];
    end;
  for i:=0 to k1-1 do
sg2.Cells[i,0]:=inttostr(a[i]);   label5.Caption:='Êîëè÷åñòâî:='+inttostr(k1);
for i:=0 to k2-1 do
sg3.Cells[i,0]:=inttostr(a[i]); label6.Caption:='Êîëè÷åñòâî:='+inttostr(k2);
end;
0
angstrom
2470 / 1846 / 242
Регистрация: 14.09.2012
Сообщений: 5,981
Записей в блоге: 2
24.10.2013, 08:34 4
Переменные не определены, Cyborg Drone посчитал, что вы сами догадаетесь их добавить.
0
avp2013
0 / 0 / 0
Регистрация: 23.10.2013
Сообщений: 12
24.10.2013, 16:41  [ТС] 5
вот полный листинг
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
var
  Form1: TForm1;
  a,l,k:array of integer;
  i,n,k1,k2:integer;
implementation
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
n:=strtoint(edit1.Text);
setlength(a,n);
sg1.ColCount:=n;
sg2.ColCount:=n;
sg3.ColCount:=n;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
randomize;
for i:=0 to n-1 do begin
a[i]:=random (21)+10;
sg1.Cells[i,0]:=inttostr(a[i]);
end;  end;
procedure TForm1.Button3Click(Sender: TObject);
begin
{for i:=0 to n-1 do
if a[i] mod 2<>0 then
  k1:=k1+1
  else
 k2:=k2+1;}
 k1:=0; k2:=0;
 for i:=1 to n do
  if odd(a[i]) then
    begin
    k1:=k1+1;
    l[k1]:=a[i];
    end
  else
    begin
    k2:=k2+1;
    k[k2]:=a[i];
    end;
  for i:=0 to k1-1 do
sg2.Cells[i,0]:=inttostr(a[i]);   label5.Caption:='Количество:='+inttostr(k1);
for i:=0 to k2-1 do
sg3.Cells[i,0]:=inttostr(a[i]); label6.Caption:='Количество:='+inttostr(k2);
end;
end.
0
angstrom
2470 / 1846 / 242
Регистрация: 14.09.2012
Сообщений: 5,981
Записей в блоге: 2
24.10.2013, 16:49 6
При заполнении массива вы написали верно
Delphi
1
for i:=0 to n-1 do
чего же потом вдруг
Delphi
1
for i:=1 to n
будет ошибка.
0
avp2013
0 / 0 / 0
Регистрация: 23.10.2013
Сообщений: 12
24.10.2013, 18:09  [ТС] 7
я все пробывал у меня именно ошибка происходит
здесь:
l[k1]:=a[i];
и здесь:
k[k2]:=a[i]
0
northener
пофигист широкого профиля
3427 / 2326 / 631
Регистрация: 15.07.2013
Сообщений: 13,778
24.10.2013, 19:55 8
Память под массивы l и k Пушкин выделять будет?
0
avp2013
0 / 0 / 0
Регистрация: 23.10.2013
Сообщений: 12
24.10.2013, 20:14  [ТС] 9
а где именно нужно?
0
northener
пофигист широкого профиля
3427 / 2326 / 631
Регистрация: 15.07.2013
Сообщений: 13,778
24.10.2013, 20:37 10
Цитата Сообщение от avp2013 Посмотреть сообщение
а где именно нужно?
Где-нибудь, но до первого использования.
0
avp2013
0 / 0 / 0
Регистрация: 23.10.2013
Сообщений: 12
24.10.2013, 20:47  [ТС] 11
сможешь в кусочке указать?или дописать?просто уже голова не работает
0
northener
пофигист широкого профиля
3427 / 2326 / 631
Регистрация: 15.07.2013
Сообщений: 13,778
24.10.2013, 21:52 12
Delphi
1
2
3
4
5
6
procedure TForm1.Button1Click(Sender: TObject);
begin
n:=strtoint(edit1.Text);
setlength(a,n);
setlength(l,n);
setlength(k,n);
1
avp2013
0 / 0 / 0
Регистрация: 23.10.2013
Сообщений: 12
25.10.2013, 06:14  [ТС] 13
спасибо!если честно я не додумался до этого.
0
25.10.2013, 06:14
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.10.2013, 06:14

Удалить из массива все нечетные числа и вывести размер полученного массива и его содержимое
Помогите пожалуйста решить 3 задачи в делфи на массивы:(нужно получить допуск к...

Положительные нечетные элементы массива заменить нулями
В одномерном массиве D, состоящем из 15 целых чисел, все положительные нечетные...

Массив: Создать новый массив, элементами которого являются все отрицательные элементы массива C
1)Дан массив C(n). Создать новый массив, элементами которого являются все...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru