Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.56/34: Рейтинг темы: голосов - 34, средняя оценка - 4.56
1 / 1 / 0
Регистрация: 19.01.2010
Сообщений: 8
1

Даны два одномерных массива целых чисел (массив A, состоящий из n элементов, массив B - из m элементов)

19.01.2010, 19:01. Показов 6301. Ответов 3
Метки нет (Все метки)

Даны два одномерных массива целых чисел (массив A, состоящий из n элементов, массив B - из m элементов), заполненных случайным образом числами из промежутка [L, P]. Сформировать из элементов этих массивов два новых массива (C, D) (Ввод и вывод массивов оформить в процедурах).
n=12, m=28, L=-60, P=90;
Массив C состоит из четных элементов исходных массивов, а массив D - нечетных.
1

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.01.2010, 19:01
Ответы с готовыми решениями:

Даны два массива: А(10) и В(10) образуйте массив С, состоящий из сумм соответствующих элементов массива А и В
Даны два массива: А(10) и В(10) образуйте массив С, состоящий из сумм соответствующих элементов...

Паскаль. Л7. з1. Даны два одномерных массива целых чисел

Даны массивы А(15 элементов) и В(5 элементов)!Построить массив С,состоящий из отрицательных элементов этих двух
Даны массивы А(15 элементов) и В(5 элементов)!Построить массив С,состоящий из отрицательных...

Дан массив целых чисел D, состоящий из 30 элементов. Заполнить его с клавиатуры.
Дан массив целых чисел D, состоящий из 30 элементов. Заполнить его с клавиатуры. Заменить...

3
753 / 546 / 211
Регистрация: 12.11.2009
Сообщений: 1,100
19.01.2010, 19:39 2
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
uses crt;
const
n=12; m=28;
var
a:array[1..n]of integer;
b:array[1..m]of integer;
c,d:array[1..15]of integer;
i:integer;
begin clrscr;
randomize;
writeln('massiv A:');
for i:=1 to n do
 begin
  a[i]:=random(151)-60;
  write(a[i],'  ');
 end;
writeln;
writeln('Massiv B:');
for i:=1 to m do
 begin
  b[i]:=random(151)-60;
  write(b[i],'  ');
 end;
writeln;
writeln;
writeln('Massiv C:');
for i:=1 to n do
if i mod 2=0 then
 begin
  c[i]:=a[i];
  write(c[i],'  ');
 end;
for i:=1 to m do
if i mod 2=0 then
 begin
  c[i]:=b[i];
  write(c[i],'  ');
 end;
writeln;
writeln;
writeln('Massiv D:');
for i:=1 to n do
if i mod 2<>0 then
 begin
  d[i]:=a[i];
  write(d[i],'  ');
 end;
for i:=1 to m do
if i mod 2<>0 then
 begin
  d[i]:=b[i];
  write(d[i],'  ');
 end;
 
readkey;
end.
Добавлено через 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
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
uses crt;
const
n=12; m=28;
var
a:array[1..n]of integer;
b:array[1..m]of integer;
c,d:array[1..30]of integer;
i:integer;
begin clrscr;
randomize;
writeln('massiv A:');
for i:=1 to n do
 begin
  a[i]:=random(151)-60;
  write(a[i],'  ');
 end;
writeln;
writeln('Massiv B:');
for i:=1 to m do
 begin
  b[i]:=random(151)-60;
  write(b[i],'  ');
 end;
writeln;
writeln;
writeln('Massiv C:');
for i:=1 to n do
if a[i] mod 2=0 then
 begin
  c[i]:=a[i];
  write(c[i],'  ');
 end;
for i:=1 to m do
if b[i] mod 2=0 then
 begin
  c[i]:=b[i];
  write(c[i],'  ');
 end;
writeln;
writeln;
writeln('Massiv D:');
for i:=1 to n do
if a[i] mod 2<>0 then
 begin
  d[i]:=a[i];
  write(d[i],'  ');
 end;
for i:=1 to m do
if b[i] mod 2<>0 then
 begin
  d[i]:=b[i];
  write(d[i],'  ');
 end;
 
readkey;
end.
1
175 / 172 / 40
Регистрация: 14.11.2009
Сообщений: 507
19.01.2010, 19:42 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
const
l=-60;
p=90;
n=12;
m=28;
 
type
mas=array[1..100] of integer;
 
procedure InPutVector (n:integer; var a:mas);
var
i:integer;
begin
writeln('Your Vector');
write('[');
for i:=1 to n do begin
a[i]:=random(p-l+1)+l;
write(a[i]:4);
end;
writeln(']');
end;
 
procedure Even (n:integer; a:mas; var c:mas; var k:integer);
var
i,j:integer;
begin
for i:=1 to n do
if not odd(a[i]) then begin
inc(k);
c[k]:=a[i];
end;
end;
 
procedure NoEven (n:integer; a:mas; var c:mas; var k:integer);
var
i,j:integer;
begin
for i:=1 to n do
if odd(a[i]) then begin
inc(k);
c[k]:=a[i];
end;
end;
 
procedure OutPutVector (n,l:integer; a:mas);
var
i:integer;
begin
if l=1 then
writeln('Vector Of Even Elements')
else
writeln('Vector Of NoEven Elements');
write('[');
for i:=1 to n do
write(a[i]:4);
writeln(']');
end;
 
var
a,b,c,d:mas;
k,k1:integer;
BEGIN
InPutVector(n,a);
InPutVector(m,b);
k:=0;
Even(n,a,c,k);
Even(m,b,c,k);
k1:=0;
NoEven(n,a,d,k1);
NoEven(m,b,d,k1);
OutPutVector(k,1,c);
OutPutVector(k1,2,d);
readln
END.
1
1 / 1 / 0
Регистрация: 19.01.2010
Сообщений: 8
19.01.2010, 19:47  [ТС] 4
Спасибо большое!!!!!
хорошо что наткнулся на такой хороший форум))))
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.01.2010, 19:47

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

Дан массив целых чисел, состоящий из 26 элементов. Заполнить его случайными числами
2. Дан массив целых чисел, состоящий из 26 элементов. Заполнить его случайными числами. Найти:...

дан массив а состоящий из к целых положительных чисел. Записать все четные по значению элементы массива а в массив b
дан массив а состоящий из к целых положительных чисел. Записать все четные по значению элементы...

Дан массив целых чисел, содержащий 10 элементов. Составить новый массив, записать в него сначала все положительные элементы исходного массива
, потом все отрицательные элементы, потом нули... Да прибудет с вами сила...

Дан массив А,состоящий из n натуральных чисел.Найдите наибольший общий делитель элементов массива
1)Дан массив А,состоящий из n натуральных чисел.Найдите наибольший общий делитель элементов...


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

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

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