0 / 0 / 0
Регистрация: 15.11.2012
Сообщений: 9
1

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

24.03.2013, 19:38. Показов 729. Ответов 6
Метки нет (Все метки)

Дан массив А(10). Необходимо получить последовательность В(10), которая отличается от исходной тем, что все нечетные элементы удвоены.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.03.2013, 19:38
Ответы с готовыми решениями:

Получить последовательность ,которая отличается от исходной тем , что все нечетные элементы удвоены
Даны натуральное N и последовательность A 1,A 2,…,A N , состоящая из N целых чисел. Получить...

Получить последовательность, которая отличается от исходной тем, что все нечетные элементы удвоены
a = -100, b = 107 1) Дана последовательность действительных чисел А1, …, А50. Получить...

Получить последовательность, которая отличается от исходной тем, что все нечетные элементы удвоены
Даны натуральное число N и последовательность A1, A2, ... An, состоящая из N целых чисел. Получить...

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

6
16 / 16 / 3
Регистрация: 01.03.2013
Сообщений: 130
24.03.2013, 19:43 2
Delphi
1
2
3
4
5
6
7
Var a: array [0..9] of integer;
     b: array of integer;
     i: integer;
begin
for i:= 0 to 9 do
if a[i] mod 2 = 0 then b[i]:= a[i];
end;
Добавлено через 1 минуту
Цитата Сообщение от Metabolic Посмотреть сообщение
Необходимо получить последовательность В(10)
B[10] точно не получишь, ты же удаляешь какие то элементы, значит размер массива уменьшится (хотя может там и не будет нечетных вовсе)
0
0 / 0 / 0
Регистрация: 15.11.2012
Сообщений: 9
24.03.2013, 19:46  [ТС] 3
через консольный ввод я тоже могу, но никак не могу допереть через форму
0
16 / 16 / 3
Регистрация: 01.03.2013
Сообщений: 130
24.03.2013, 19:50 4
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button1Click(Sender: TObject);
Var a: array [0..9] of integer;
     b: array of integer;
     i: integer;
begin
for i:= 0 to 9 do
begin
a[i]:= Random(100);
if a[i] mod 2 = 0 then b[i]:= a[i];
Memo1.Lines.Add('a['+IntToStr(i)+'] = '+IntToStr(a[i]));
end;
end;
1
0 / 0 / 0
Регистрация: 15.11.2012
Сообщений: 9
24.03.2013, 20:03  [ТС] 5
не пашет, через Stringgrid если попробовать?
но там вывод массива у меня не получается
0
16 / 16 / 3
Регистрация: 01.03.2013
Сообщений: 130
24.03.2013, 20:04 6
там ему короче память надо выделять, вот это точно пашет:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
procedure TForm1.Button1Click(Sender: TObject);
Var a: array [0..9] of integer;
    b: array of integer;
    i, n: integer;
begin
Memo1.Lines.Clear;
n:= 0;
Randomize;
for i:= 0 to 9 do
begin
a[i]:= Random(100);
if a[i] mod 2 = 0 then Inc(n);
end;
SetLength(b,n);
for i:= 0 to n do
begin
if a[i] mod 2 = 0 then b[i]:= a[i];
Memo1.Lines.Add('b['+IntToStr(i)+'] = '+IntToStr(b[i]));;
end;
end;
правда периодически ошибки какие то вышибает , но в основном пашет
0
0 / 0 / 0
Регистрация: 15.11.2012
Сообщений: 9
24.03.2013, 20:16  [ТС] 7
увы, не пашет(
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.03.2013, 20:16
Помогаю со студенческими работами здесь

Получить массив В, который отличается от исходного тем, что все нечетные элементы удвоены
Дан массив А из n действительных чисел: a1, …, an. Вычислить: a1, -a1a2, a1a2a3, …,...

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

Получить последовательность b1, …, bn, которая отличается от a1, …, an тем, что все нечетные члены исходной
Даны целые числа a1, …, an. Получить последовательность b1, …, bn, которая отличается от a1,...

Получить последовательность которая отличается от исходной тем, что все нечетные числа удвоенны
Доброго времени суток! Прошу помощи в решении этой задачи. Задача такова: Дано целое число...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru