Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.88/32: Рейтинг темы: голосов - 32, средняя оценка - 4.88
kru.nik.iva
2 / 2 / 0
Регистрация: 17.11.2009
Сообщений: 38
1

Переписать положительные элементы массива Х подряд в массив Y.

18.12.2009, 16:26. Просмотров 6702. Ответов 10
Метки нет (Все метки)

1) Вычислить:
{Xi, если Хi>0;
y={0, если Xi=0;
{-1, если Xi<0;
где Xi - элементы массива, состоящего из 20 элементов.
2) Записать в массив Z положительные значения монотонно убывающей функции
y=-x(в 3-ей степени)+ax(во 2-ой степени)+bx+c, если х изменяется от 0 с шагом 0,1 до 10. Отрицательные значения функции не вычислять. Функция имеет хотя бы один отрицательный элемент.
3) Задан массив (X1, X2,...,X50). Требуется:
а) переписать элементы массива Х в массив Y в обратном порядке.
б) переписать положительные элементы массива Х подряд в массив Y.
в) переписать положительные элементы массива Х подряд в массив Y, а отрицательные в массив Z.
г) записать в массив N номера элементов массива X, удовлетворяющие условию 0<или=Xi<или=1.
д) записать в массив Y подряд 10 первых положительных элементов массива Х.
е) записать в массив Y элементы массива Х, имеющие четные индексы.
ж) записатьв массив Y элементы массива Х, имеющие четные индексы, а в массив Z эелементы, иеющие нечетные индексы.
з) записать в начале массива Y положительные, а в конце отрицательные элементы в произвольном порядке.
4) задана матрица А(nXm). Переписать в одномерный массив B:
а) элементы Aii одной главной диагонали матрицы А.
б) элементы Ai,n-i+1 другой главной диагонали матрицы А.
в) элементы Аii и Ai,n-i+1 двух главных диагоналей матрицы А.
Плиз решите, очень надо, РАХМЕТ зарение.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.12.2009, 16:26
Ответы с готовыми решениями:

Переписать положительные элементы массива Х (100) подряд в массив Y
Составить программу для решения задачи. Переписать положительные элементы массива Х (100) подряд в...

Переписать положительные элементы массива (х1,х2… х45) подряд в массив Y.
Переписать положительные элементы массива (х1,х2… х45) подряд в массив Y. Задали на практику,...

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

Сформировать массив Y из массива G, расположив в нем подряд только положительные элементы
Сформировать массив Y(K) из массива G(K), расположив в нем подряд только положительные элементы.

10
yanyk1n
4334 / 1466 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
18.12.2009, 16:52 2
Задание 3 я напишу в одной программе:
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
uses crt;
var x,y,z:array[1..50]of real;
n:array[1..50]of integer;
i,k,p:integer;
begin
 clrscr;
 randomize;
 for i:=1 to 50 do x[i]:=random-5+random(10);
 writeln('Исходный массив X:');
 for i:=1 to 50 do write(x[i]:0:4);
 //=====а=====
 for i:=50 downto 1 do y[50-i+1]:=x[i];
 writeln('Массив Y');
 for i:=1 to 50 do write(y[i]:0:4,' ');
 
//=====б=====
 k:=0;
 for i:=1 to 50 do if x[i]>0 then
 begin
  inc(k);
  y[k]:=x[i];
 end;
 writeln('Массив Y');
 for i:=1 to k do write(y[i]:0:4,' ');
 
 //=====в=====
 k:=0;
 p:=0;
 for i:=1 to 50 do if x[i]>0 then 
 begin 
  inc(k);
  y[k]:=x[i];
 end else begin
  inc(p);
  z[p]:=x[i];
 end; 
 writeln('Массив Y');
 for i:=1 to k do write(y[i]:0:4,' ');
 writeln('Массив Z');
 for i:=1 to p do write(Z[i]:0:4,' ');
 
 //=====г=====
 k:=0;
 for i:=1 to 50 do if (0<=x[i]) and (x[i]<=1) then
 begin
  inc(k);
  n[k]:=i;
 end;
 writeln('Массив N');
 for i:=1 to k do write(n[i],' ');
 
 //=====д=====
 k:=0;
 for i:=1 to 50 do if (x[i]>0) and (k<10) then
 begin
  inc(k);
  y[k]:=x[i];
 end;
 writeln('Массив Y');
 for i:=1 to k do write(y[i]:0:4,' ');
 
 //=====еж====
 for i:=1 to 50 do if i mod 2=0 then y[i div 2]:=x[i] else z[i div 2+ i mod 2]:=x[i];
 writeln('Массив Y');
 for i:=1 to 25 do write(y[i]:0:4,' ');
 writeln('Массив Z');
 for i:=1 to 25 do write(z[i]:0:4,' ');
 
 //=====з=====
 k:=0;
 p:=51;
 for i:=1 to 50 do if x[i]>0 then
 begin
  inc(k);
  y[k]:=x[i];
 end else begin
  dec(p);
 y[p]:=x[i];
 end;
 writeln('Массив Y');
 for i:=1 to 50 do write(y[i]:0:4,' ');
 //=========
 readln;
end.
2
Тамила
752 / 545 / 211
Регистрация: 12.11.2009
Сообщений: 1,100
18.12.2009, 16:52 3
4.а)
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
uses crt;
 var
 a:array[1..100,1..100]of integer;
 b:array[1..100]of integer;
 i,j,n,k:integer;
begin clrscr;
randomize;
write('n=');
read(n);
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(30)-15;
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j],'  ');
  writeln;
 end;
writeln;
for i:=1 to n do
for j:=1 to n do
if i=j then
 begin
   b[i]:=a[i,j];
   write(b[i],'  ');
 end;
readkey;
end.
2
kru.nik.iva
2 / 2 / 0
Регистрация: 17.11.2009
Сообщений: 38
18.12.2009, 20:40  [ТС] 4
k1ry4, Тамила, CПАСИБО вам!!!! может ещё решите плиз?
0
Тамила
752 / 545 / 211
Регистрация: 12.11.2009
Сообщений: 1,100
18.12.2009, 20:51 5
Цитата Сообщение от kru.nik.iva Посмотреть сообщение
1) Вычислить:
{Xi, если Хi>0;
y={0, если Xi=0;
{-1, если Xi<0;
где Xi - элементы массива, состоящего из 20 элементов.
тут не очень понятно...
0
kru.nik.iva
2 / 2 / 0
Регистрация: 17.11.2009
Сообщений: 38
18.12.2009, 20:57  [ТС] 6
Тамила, там короче y= фигурная скобка большая, а за ней{Xi, если Хi>0;
{0, если Xi=0;
{-1, если Xi<0;
Считай что эти 3 маленькие скобки одна большая
0
Тамила
752 / 545 / 211
Регистрация: 12.11.2009
Сообщений: 1,100
18.12.2009, 21:03 7
Y, я так понимаю, тоже будет массивом...
0
kru.nik.iva
2 / 2 / 0
Регистрация: 17.11.2009
Сообщений: 38
18.12.2009, 21:07  [ТС] 8
Тамила, да да,там же написано где Хi элементы массива, состоящего из 20 элементов,сможешь решить,пожалуйста.
0
Тамила
752 / 545 / 211
Регистрация: 12.11.2009
Сообщений: 1,100
18.12.2009, 21:09 9
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
uses crt;
var
x,y:array[1..20]of integer;
i:integer;
begin clrscr;
randomize;
writeln('Massiv X:');
for i:=1 to 20 do
 begin
  x[i]:=random(20)-10;
  write(x[i],'  ');
 end;
for i:=1 to 20 do
 begin
  if x[i]>0 then y[i]:=x[i];
  if x[i]=0 then y[i]:=0;
  if x[i]<0 then y[i]:=-1;
 end;
writeln;
writeln;
writeln('Massiv Y:');
for i:=1 to 20 do
write(y[i],'  ');
readkey;
end.
2
kru.nik.iva
2 / 2 / 0
Регистрация: 17.11.2009
Сообщений: 38
18.12.2009, 21:11  [ТС] 10
Тамила, СПАСИБО огромное, а может тебе 2-ая задача по силам?
0
kru.nik.iva
2 / 2 / 0
Регистрация: 17.11.2009
Сообщений: 38
23.12.2009, 10:19  [ТС] 11
решите задание 4)б,в плиз!!!
0
23.12.2009, 10:19
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.12.2009, 10:19

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

переписать положительные элементы массива х в массив у и подсчитать их количество
дан массив х(70)-1&lt;=xi&lt;=1. переписать положительные элементы массива х в массив у и подсчитать их...

Переписать сначала отрицательные, а затем положительные элементы массива В в массив C
Переписать сначала отрицательные, а затем положительные элементы массива В в массив C.

дан массив. Переписать его положительные элементы во второй массив ........
помогите пожалуйста решить две задачи очень срочно нужно 1. дан массив. Переписать его...

Переписать положительные элементы в начало массива
Помогите, пожалуйста. Задан массив B(N) (N&lt;=60). Переписать в начало массива положительные...


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

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

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