Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
rozaa
0 / 0 / 0
Регистрация: 09.12.2011
Сообщений: 42
1

одномерный массив (по схеме)

13.12.2011, 18:47. Просмотров 228. Ответов 6
Метки нет (Все метки)

сделайти по схеме пожалусто!
0
Миниатюры
одномерный массив (по схеме)  
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.12.2011, 18:47
Ответы с готовыми решениями:

Дан двумерный массив, из него сделать одномерный. В одномерный массив сначала вписат четные строки потом нечетные
Здравствуйте,собственно задача в заголовке темы. никак не получается все это...

Дан одномерный массив A из N элементов. Переписать положительные элементы массива в массив B, а отрицательные в массив C
Дан одномерный массив A из N элементов. Переписать положительные элементы...

двумерный массив по схеме
сделайти по схеме

Заполнить массив 6*6 цифрами по схеме
Сформировать и вывести на экран заданный двумерный массив 1 1 1 1 1 1 1...

1 вопрос по блок-схеме (массив)
Я не прошу нарисовать мне всю блок-схему, просто помогите разобратся с один...

6
rozaa
0 / 0 / 0
Регистрация: 09.12.2011
Сообщений: 42
13.12.2011, 18:48  [ТС] 2
p.s *- это умножить

в вапросе: с лево "нет" с право "да"
0
Marycka9
14 / 8 / 5
Регистрация: 15.11.2011
Сообщений: 44
13.12.2011, 18:57 3
Цитата Сообщение от rozaa Посмотреть сообщение
сделайти по схеме пожалусто!
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
const
N=10;
 
var
T:array[1..N] of integer;
K,i,j:integer;
 
begin
k:=0;
for i:=1 to n do
readln(T[i]);
 
for i:=1 to n-1 do
        begin
 
            if (T[i]*T[i+1]>0) then
                for j:= n downto i+1 do
                    T[j+1]:=T[j];
 
                K:=k+1;
                T[i]:=0;
 
        end;
 
for i:=1 to n+k do
writeln(T[i]);
end;

Даю голову на отсечение, что программа написана неправильно.
и блок-схема это отражает.
0
rozaa
0 / 0 / 0
Регистрация: 09.12.2011
Сообщений: 42
13.12.2011, 19:03  [ТС] 4
ну тогда даю условия задачи

дан одномерный массив размернастью N. Вставить между элементами, совпадаюими по знаку, число 0.

решите пожалусто!
0
Marycka9
14 / 8 / 5
Регистрация: 15.11.2011
Сообщений: 44
13.12.2011, 22:04 5
Цитата Сообщение от rozaa Посмотреть сообщение
дан одномерный массив размернастью N. Вставить между элементами, совпадаюими по знаку, число 0.
вроде так

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
program consolw;
 
const
M=100;
 
 
var
A:array[1..M] of integer;
i,j,count,n:integer;
t:boolean;
begin
count:=0;
 
n:=10;
for i:=1 to n do
readln(a[i]);
t:=true;
 
 i:=1;
 
while t do
begin
if i=(n-1) then
t:=false;
 
if (a[i]*a[i+1]>0) then
begin
inc(count);
for j:=n downto i+3 do
a[j]:=a[j-1];
 
a[i+2]:=0;
inc(i);
n:=n+1;
 
end;
 
inc(i);
end;
 
 
writeln;
for i:=1 to n do
write(a[i],'   ');
 
readln;
end.
0
rozaa
0 / 0 / 0
Регистрация: 09.12.2011
Сообщений: 42
13.12.2011, 22:24  [ТС] 6
спасибо, но есть один вапрос. мне нужно чтобы между цифр с одинаковым знаком стоял 0. тобиш

пример: 1 2 4 -5 -4 -3 5
1 0 4 -5 0 -4 0 -3 5
0
Marycka9
14 / 8 / 5
Регистрация: 15.11.2011
Сообщений: 44
13.12.2011, 22:41 7
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
const
M=100;
 
 
var
A:array[1..M] of integer;
i,j,count,n:integer;
t:boolean;
begin
count:=0;
 
n:=10;
for i:=1 to n do
readln(a[i]);
t:=true;
 
 i:=1;
 
while t do
begin
if i=(n-1) then
t:=false;
 
if (a[i]*a[i+1]>0) then
begin
inc(count);
for j:=n downto i+2 do
a[j]:=a[j-1];
 
a[i+1]:=0;
inc(i);
n:=n+1;
 
end;
 
inc(i);
end;
 
 
writeln;
for i:=1 to n do
write(a[i],'   ');
 
readln;
end.
должно быть так
0
13.12.2011, 22:41
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.12.2011, 22:41

Заполнить массив по схеме из элементов матрицы
Дана целочисленная квадратная матрица A размером 5*5. Получить целочисленную...

Одномерный массив. Упорядочить массив по неубыванию с помощью алгоритма сортировки слияниями
Помогите пожалуйста с этим "Упорядочить массив a1,a2,…,an по неубыванию с...

Создать двумерный массив все четные элементы переписать в одномерный массив
создать двумерный массив все четные элементы переписать в одномерный массив


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

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

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