Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
Tof_y
1 / 1 / 0
Регистрация: 06.12.2014
Сообщений: 117
#1

Даны массивы A[1:N] и B[1:M] . Сформировать массив (C )

12.03.2015, 19:37. Просмотров 628. Ответов 5
Метки нет (Все метки)

дан массив a[1:n] и b[1:m]. сформировать массив из отрицательных элементов первого массива и положительных элементов второго массива.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.03.2015, 19:37
Ответы с готовыми решениями:

Даны два массива A и B, сформировать массив С, элементы которого находятся по правилу: c[i]=max(a[i],b[i])
Даны два массива A и B. Вычислить массив , элементы которого находятся по...

Дан исходный массив С. Сформировать массив Т, удалить из массива С Max элементы
Добрый день, уважаемые форумчане! Помогите пожалуйста решить задачи! В паскале...

Дан одномерный массив размера N. Сформировать другой массив, получающийся путем умножения
нужно решить а как хз, кто что подскажет буду рад)

Сформировать одномерные массивы из элементов закрашенной части матрицы
Дана действительная квадратная матрица порядка n. Сформировать одномерные...

Массив: сформировать новый массив из элементов первого массива стоящих между min и max
сформировать новый массив из элементов первого массива стоящих между min и max....

5
Tof_y
1 / 1 / 0
Регистрация: 06.12.2014
Сообщений: 117
12.03.2015, 21:31  [ТС] #2
Даны массивы A[1:N] и B[1:M] . Сформировать массив (C )из отрицательных элементов первого массива и положительных элементов второго массива.
ломаю голову 4 день никак не получается решить help
0
Sigin
221 / 221 / 111
Регистрация: 20.10.2013
Сообщений: 808
Завершенные тесты: 4
12.03.2015, 21:53 #3

Не по теме:

Цитата Сообщение от Tof_y Посмотреть сообщение
ломаю голову 4 день
Что же Вы так, головушку то свою. Её беречь надо...


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
48
49
50
51
52
53
54
55
56
57
program Project1;
 
{$APPTYPE CONSOLE}
{$R *.res}
 
uses
  SysUtils;
 
var
  a, b, c: array of Integer;
  n, m, i, j: Integer;
 
begin
  repeat
    Write('N=');
    ReadLn(n);
  until n > 0;
  repeat
    Write('M=');
    ReadLn(m);
  until n > 0;
  SetLength(a, n);
  SetLength(b, m);
  SetLength(c, n + m);
  WriteLn('Введите массив A:');
  for i := 0 to n - 1 do
  begin
    Write('a[', i + 1, ']=');
    ReadLn(a[i]);
  end;
  WriteLn('Введите массив B:');
  for i := 0 to m - 1 do
  begin
    Write('b[', i + 1, ']=');
    ReadLn(b[i]);
  end;
  j := 0;
  for i := 0 to n - 1 do
    if a[i] < 0 then
    begin
      c[j] := a[i];
      Inc(j);
    end;
  for i := 0 to m - 1 do
    if b[i] > 0 then
    begin
      c[j] := b[i];
      Inc(j);
    end;
  SetLength(c, j);
  if j > 0 then
    for i := 0 to j - 1 do
      Write('c[', i + 1, ']=', c[i], ' ');
  ReadLn;
  ReadLn;
 
end.
1
Puporev
Модератор
54370 / 41958 / 28981
Регистрация: 18.05.2008
Сообщений: 98,831
13.03.2015, 08:01 #4
Лучший ответ Сообщение было отмечено Tof_y как решение

Решение

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
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
85
86
87
88
89
procedure TForm1.FormCreate(Sender: TObject);
begin
//зададим основные параметры таблиц
with StringGrid1 do
 begin
  fixedcols:=0;
  fixedrows:=0;
  rowcount:=1;
  scrollbars:=ssHorizontal;
  defaultcolwidth:=30
 end;
with StringGrid2 do
 begin
  fixedcols:=0;
  fixedrows:=0;
  rowcount:=1;
  scrollbars:=ssHorizontal;
  defaultcolwidth:=30
 end;
with StringGrid3 do
 begin
  fixedcols:=0;
  fixedrows:=0;
  rowcount:=1;
  scrollbars:=ssHorizontal;
  defaultcolwidth:=30
 end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var a,b,c:array of integer;
    n,m,k,i:integer;
begin
//проверим ввод размеров
val(Edit1.Text,n,k);
if(k<>0)or(n<1)then
 begin
  ShowMessage('Неверно введен размер массива A');
  Edit1.Clear;
  Edit1.SetFocus;
  exit
 end;
val(Edit2.Text,m,k);
if(k<>0)or(m<1)then
 begin
  ShowMessage('Неверно введен размер массива A');
  Edit2.Clear;
  Edit2.SetFocus;
  exit
 end;
randomize;
setlength(a,n);
setlength(b,m);
StringGrid1.ColCount:=n;
StringGrid2.ColCount:=m;
for i:=0 to n-1 do
 begin
  a[i]:=-10+random(30);
  StringGrid1.Cells[i,0]:=inttostr(a[i]);
 end;
for i:=0 to m-1 do
 begin
  b[i]:=-10+random(30);
  StringGrid2.Cells[i,0]:=inttostr(b[i]);
 end;
k:=0;
for i:=0 to n-1 do
if a[i]<0 then
 begin
  inc(k);
  setlength(c,k);
  c[k-1]:=a[i];
 end;
for i:=0 to m-1 do
if b[i]>0 then
 begin
  inc(k);
  setlength(c,k);
  c[k-1]:=b[i];
 end;
if k=0 then
 begin
  Showmessage('В массиве А нет отрицательных,'+#13#10+
              'а в массиве В положительных элементов');
  exit
 end;
StringGrid3.ColCount:=k;
for i:=0 to k-1 do
StringGrid3.Cells[i,0]:=inttostr(c[i]);
end;
1
Вложения
Тип файла: rar Из 2х массивов в третий.rar (193.9 Кб, 8 просмотров)
Sway
6 / 6 / 13
Регистрация: 27.01.2015
Сообщений: 24
13.03.2015, 16:22 #5
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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
  TForm1 = class(TForm)
    sg1: TStringGrid;
    sg2: TStringGrid;
    sg3: TStringGrid;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  a,b,c:array[1..100] of integer;
  n,m:integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var i,j,io:integer;
begin
  io:=0;
  randomize;
  n:=strtoint(edit1.Text);
  m:=strtoint(edit2.Text);
  sg1.ColCount:=n+1;
  sg2.ColCount:=m+1;
 
  for i:=1 to sg1.ColCount - 1 do
  begin
   a[i]:=random(10)-5;
   sg1.Cells[i,1]:=inttostr(a[i]);
   if a[i]<0 then
   begin
    inc(io);
    c[io]:=a[i];
   end;
   end;
  for j:=1 to sg2.ColCount - 1 do
  begin
   b[j]:=random(10)-5;
   sg2.Cells[j,1]:=inttostr(b[j]);
   if b[j]>=0 then
   begin
    inc(io);
    c[io]:=b[j];
   end;
  end;
 
  sg3.ColCount:=io+1;
  for i:=1 to sg3.ColCount - 1 do
   sg3.Cells[i,1]:=inttostr(c[i]);
end;
 
end.
1
Puporev
13.03.2015, 17:15     Даны массивы A[1:N] и B[1:M] . Сформировать массив (C )
  #6
 Комментарий модератора 
Объединил 2 темы этого автора.
0
13.03.2015, 17:15
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.03.2015, 17:15
Привет! Вот еще темы с ответами:

Массив: Сформировать массив, элементы которого состоят из расположенных по возрастанию максимальных элементов каждой строки матрицы А.
Помогите пожалуйста написать такую программу Есть массив A размерностью m...

Дан одномерный массив из 40 элементов. Сформировать второй массив, в котором сначала идут все четные эле-менты
Дан одномерный массив из 40 элементов. Сформировать второй массив, в котором...

Сформировать одномерные массивы В и С, содержащие, соответственно, четные и нечетные элементы массива А
Дан целочисленный массив A=\begin{bmatrix} 13 &amp; 6 &amp; 8 &amp; 15 &amp; 18\\ 2 &amp; 9 &amp;...


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

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

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