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

Из двух массивов сформировать третий по заданному правилу

16.12.2015, 14:03. Показов 1268. Ответов 1
Метки нет (Все метки)

Заданы два массива А и В по N элементов. Сформировать и вывести на печать массив L из 2*N элементов:
L=(A(1)+B(1),A(1)-B(1),A(2)+B(2),A(2)-B(2),........A(N)+B(N),A(N)-B(N))
значение N и элементы массива A ввести с клавиатуры.

Добавлено через 1 час 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
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
var 
   i,j,c,n : integer;
   a,b,l :array  [1..250] of integer;
begin
 randomize; 
 write('Введите размер матриц: ');
 readln(n);  
 writeln();
 write('Ввод матрицы 1: ');
 for i:=1 to n do
  begin
   readln(a[n]);
  end;
 for i:=1 to n do
  begin
   write(a[n]:4);
  end;
 writeln();
 for i:=1 to n do
  begin
   b[i]:=random(100);
   write(b[i]:4);
  end;
 for i:=1 to n*2 do
  begin
   for j:=1 to n do 
    begin
     if (i mod 2 = 0) then l[i]:=a[j]+b[j]
       else l[i]:=a[j]+b[j];
    end;   
  end;
 writeln();
 for i:=1 to n*2 do 
  begin
   write(l[i]:4);
  end;
end.
 
вроде не совсем правильно ((
 
на ошибку можете указать ?
 
[size="1"][color="grey"][I]Добавлено через 51 секунду[/I][/color][/size]
var 
   i,j,c,n : integer;
   a,b,l :array  [1..250] of integer;
begin
 randomize; 
 write('Введите размер матриц: ');
 readln(n);  
 writeln();
 write('Ввод матрицы 1: ');
 for i:=1 to n do
  begin
   readln(a[n]);
  end;
 for i:=1 to n do
  begin
   write(a[n]:4);
  end;
 writeln();
 for i:=1 to n do
  begin
   b[i]:=random(100);
   write(b[i]:4);
  end;
 for i:=1 to n*2 do
  begin
   for j:=1 to n do 
    begin
     if (i mod 2 = 0) then l[i]:=a[j]+b[j]
       else l[i]:=a[j]+b[j];
    end;   
  end;
 writeln();
 for i:=1 to n*2 do 
  begin
   write(l[i]:4);
  end;
end.
вроде не совсем правильно ((

на ошибку можете указать ?
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.12.2015, 14:03
Ответы с готовыми решениями:

Из заданных массивов сформировать новый массив по заданному правилу
Напишите программу используя функции и процедуры. Даны массивы X(8), Z(10), W(15), элементы...

Из двух массивов сформировать третий
Помогите, если не сложно.. По двум одномерным массивам размерностью A и B формируется третий...

Сформировать двумерный массив по заданному правилу правилу
Добрый день, помогите пожалуйста. Дана целочисленная матрица n*m. Написать программу, формирующую...

Сформировать массив b по заданному правилу
2.Дан массив a(n) с действительными элементами . Сформировать массив b по правилу b{i} = | a - S |...

1
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
16.12.2015, 15:29 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
var a,b,l :array  [1..250] of integer;
    n,i : integer;
begin
randomize;
write('Введите размер массивов: ');
readln(n);
writeln('Массив А:');
for i:=1 to n do
 begin
  a[i]:=random(100);
  write(a[i]:4);
 end;
writeln;
writeln('Массив B:');
for i:=1 to n do
 begin
  b[i]:=random(100);
  write(b[i]:4);
 end;
writeln;
writeln('Массив L:');
for i:=1 to 2*n do
 begin
  if odd(i) then l[i]:=a[i div 2+1]+b[i div 2+1]
  else l[i]:=a[i div 2]-b[i div 2];
  write(l[i]:4)
 end;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.12.2015, 15:29
Помогаю со студенческими работами здесь

Образовать третий массив из двух заданных по правилу
Даны два массива .Образовать третий массив в котором сначала будут расположены все положительные(+)...

Из двумерного массива сформировать вектор по заданному правилу
Дан двумерный массив А размера m x n с целыми элементами. Сформировать вектор И, в который записать...

Из двумерного массива сформировать одномерный массив по заданному правилу
По заданной вещественной матрице А получить массив B, присвоив его i-у элементу значение 0, если...

Сформировать массив случайных целых чисел по заданному правилу
Дан двумерный массив случайных целых чисел от 4 до 25 Matrix. Сформировать новый массив Mix,...


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

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

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