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

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

04.12.2016, 16:28. Просмотров 3230. Ответов 7
Метки нет (Все метки)


Пусть описана константа и два типа-массива:
Pascal
1
2
3
4
5
const
    m = 3;
  type
    TMas1 = array [1..2*m+1] of real;
    TMas2 = array [-m..m] of real;
Создайте программу, которая значения, записанные в элементах массива 1-го типа, переносит в массив 2-го типа.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.12.2016, 16:28
Ответы с готовыми решениями:

Как скопировать четные элементы из одного массива в другой?
нужны именно четные элементы (а не все). элементы первого массива сгенерированы рандомно.

Из одного массива скопировать переменную в другой массив
Суть задачи, есть класс B, в котором две переменные a и b, вот так это выглядит, class B { int...

Скопировать все числа из одного массива в другой
Задание: Пользователь вводит массив из 5 чисел. Программа копирует все числа из массива во второй...

Как скопировать содержимое одного массива в другой?
Всё тот же магазин. Осталось только одно, копировать содержимое из одного массива, в другой. Я уже...

__________________
Помогаю в написании курсовых работ и дипломов здесь.
7
Модератор
63229 / 46981 / 32383
Регистрация: 18.05.2008
Сообщений: 113,872
04.12.2016, 16:38 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
const m = 3;
type TMas1 = array [1..2*m+1] of real;
     TMas2 = array [-m..m] of real;
var a:TMas1;
    b:TMas2;
    i,j:integer;
begin
randomize;
writeln('Массив А');
for i:=1 to 2*m+1 do
 begin
  a[i]:=9*random;
  write(a[i]:5:2);
 end;
writeln;
writeln('Массив B');
for i:=1 to 2*m+1 do
b[i-m-1]:=a[i];
for i:=-m to m do
write(b[i]:5:2);
end.
0
0 / 0 / 0
Регистрация: 10.10.2020
Сообщений: 15
29.11.2020, 09:17 3
Спасибо за помощь.
Не совсем так. Из первоначального массива надо сформировать другой, в котором вначале записаны четные элементы из первоначального массива, потом нечетные, при этом удалены элементы, кратные 6.
То есть, если рассматривать то решение, которое Вы предложили вчера, последняя строка вывода - новый массив.
Спасибо.
0
Модератор
63229 / 46981 / 32383
Регистрация: 18.05.2008
Сообщений: 113,872
29.11.2020, 09:24 4
Natalia_108818, Вас как занесло в эту тему и в чем проблема?
0
0 / 0 / 0
Регистрация: 10.10.2020
Сообщений: 15
29.11.2020, 09:32 5
В этом году я поступила в педагогический институт на магистерскую программу, связанную с преподаванием информатики в школе. Ради этого я стала учиться программировать, еще перед вступительными, то есть моему опыту около полугода. Преподаватель кидает нам на почту небольшие эссе на какую-нибудь тему и образцы решения. Потом предлагается выполнить задания. Не думаю, что если бы обучение было очным, система была какой-то другой.
Это одно из заданий.
Спасибо.
0
Модератор
63229 / 46981 / 32383
Регистрация: 18.05.2008
Сообщений: 113,872
29.11.2020, 09:33 6
Так что ли?
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
const n=20;
var a,b,c:array [1..20] of integer;
    m,i,j,k:integer;
begin
randomize;
writeln ('Исходный массив А');
for i:=1 to n do
 begin
  a[i]:=6+random(13);
  write (a[i]:4);
 end;
writeln;
//делаем массив четных и нечетных элементов
m:=0;
for i:=1 to n do
if a[i] mod 2=0 then
  begin
    inc(m);
    b[m]:=a[i];
  end;
for i:=1 to n do
if a[i] mod 2<>0 then
  begin
    inc(m);
    b[m]:=a[i];
  end;
writeln('Перестановка четных элеметов вперед');
for i:=1 to m do
write(b[i]:4);
writeln;
i:=1;
while i<=m do
if b[i] mod 6=0 then
 begin
  for j:=i to m-1 do
  b[j]:=b[j+1];
  dec(m);
 end
else inc(i);
writeln('Удаление кратных 6');
for i:=1 to m do
write(b[i]:4);
end.
1
0 / 0 / 0
Регистрация: 10.10.2020
Сообщений: 15
29.11.2020, 09:36 7
Правильно я понимаю, что массив С нам не потребовался?
0
Модератор
63229 / 46981 / 32383
Регистрация: 18.05.2008
Сообщений: 113,872
29.11.2020, 09:48 8
Да, Вы же писали что нужно 2 массива. Хотя я бы лучше обошелся одним как в первом варианте.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.11.2020, 09:48

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

Скопировать числа из столбцов одного массива в другой массив
Дан массив чисел A (из n строк и m столбцов) со значением элементов от 0 до 255 (заполнить...

Скопировать данные из одного массива (1000 элементов) в другой
вот есть код. само задание: скопировать данные из одного массива(1000 элементов) в другой. прога...

Как скопировать ИНДЕКСЫ четных элементов из одного массива в другой?
нужны индексы четных элементов, а не сами четные элементы. элементы первого массива сгенерированы...

Скопировать из одного символьного массива в другой, начиная с определенной позиции
Добрый вечер. Столкнулся с проблемой: Имеется: char buffer = &quot;We are the champions&quot;; char word...


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

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

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