Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.64/11: Рейтинг темы: голосов - 11, средняя оценка - 4.64
0 / 0 / 0
Регистрация: 06.03.2013
Сообщений: 39
1

Переписать элементы массива Х в массив У и подсчитать их количество

13.03.2013, 10:02. Показов 2106. Ответов 3
Метки нет (Все метки)

Переписать элементы массива Х в массив У и подсчитать их количество
0

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

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

Переписать отрицательные элементы массива X в массив Y и подсчитать их количество
Переписать отрицательные элементы массива X в массив Y и подсчитать их количество. Элементы...

Переписать положительные элементы масива Х, в одномерный массив У, подсчитать их количество.
помогите завтра крайний срок 1. Переписать положительные элементы масива Хm,m(1<=n<=10 ...

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

68. (6 б.) Все четные элементы целочисленного массива K(n) поместить в массив L(n), а нечетные – в массив M(n). Подсчитать количество тех и других.
68. (6 б.) Все четные элементы целочисленного массива K(n) поместить в массив L(n), а нечетные – в...

3
Модератор
8507 / 4224 / 2908
Регистрация: 17.08.2012
Сообщений: 13,446
13.03.2013, 18:33 2
??? lexilexustkn, это... слишком обобщённая задача. Займёмся телепатией... Количество элементов в массиве не совсем известно, только если он динамический... В общем случае, как-то так... Для общего случая... <...> - пропущенные участки кода. Потому что никто не знает, что там написать. Может быть, за исключением Вас. Но Вы не пожелали написать Ваше задание более подробно.
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
program RewriteMas;
uses crt;
var a, b: array <...> of <...> //Возможно, размеры массивов задаются здесь.
                               //Тип данных в массиве точно задаётся здесь,
                               //но мне он не известен.
var i: integer; //Переменная для счётчика цикла.
<...> //Здесь, возможно, задаются какие-то ещё необходимые переменные.
begin
<...> //Здесь, возможно, задаются, или изменяются размеры массивов.
      //И производятся какие-либо действия. Например, ввод элементов массивов.
      //И ещё какие-нибудь.
if length(b) < length(a) //Массив a не помещается в массив b...
  then
    //Ошибка
    writeln('Массив не был скопирован. Количество элементов ', length(a))
  else 
    //Копирование массива, вычисление и вывод количества элементов.
    //Массив считаю динамическим.
    begin
      for i := 0 to (length(a)-1) do b[i] := a[i];
      writeln('Массив скопирован! Количество элементов ', length(a));
    end;
<...> //Здесь, возможно, производятся ещё какие-либо действия
end.
Успехов.
0
0 / 0 / 0
Регистрация: 06.03.2013
Сообщений: 39
13.03.2013, 22:56  [ТС] 3
да, ты прав, невнимательно прочитала задание, спасибо, я всё поняла.. массив х(10)
0
Модератор
8507 / 4224 / 2908
Регистрация: 17.08.2012
Сообщений: 13,446
14.03.2013, 01:03 4
lexilexustkn, поподробнее... Массив целочисленный, вещественный? Элементы массива откуда берутся? Вводятся с клавиатуры, читаются из файла? Какие элементы массива x переписывать в массив y?

Вот пример. Может, подойдёт.

Сам себе даю вразумительное задание.

Целочисленный массив x[10] вводится с клавиатуры, и его положительные элементы переписываются в массив y[10], подсчитывается их количество. Затем это количество и все найденные элементы выводятся на дисплей.
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
program MovePlus;
 
uses crt;
 
var x, y: array [1..10] of integer; //Входной и выходной целочисленные массивы
    i: integer; //Счётчик цикла
    j: integer; //Счётчик количества элементов
 
begin
j := 0; //Количество найденных элементов пока ещё равно 0
//Ввод массива x, подсчёт количества элементов и перезапись их в массив y
writeln('Enter integer numbers:'); //Печать: Введите целые числа
for i := 1 to 10 do //Цикл
  begin
  write('x[', i, '] = '); //Печать: x[i] = 
  readln(x[i]); //Ввод очередного x[i]
  if x[i] >= 0 then //Если x[i] >= 0, то... (иначе ничего не делать)
    begin
    j := j + 1; //Счётчик количества элементов + 1
    y[j] := x[i]; //Переписываем из x в y
    end;
  end; //Конец цикла
//Печатаем...
writeln('Input data:'); //Сначала массив x, так, для сравнения...
for i := 1 to 10 do write(x[i], ' ');
writeln; //Перевод на следующую строку
writeln('Found numbers: ', j); //Печать: Найдено чисел: ...
if j > 0 then //Если что-то нашли, то... (иначе ничего не делать)
  begin
  writeln('Numbers:'); //Печать: Числа:
  for i := 1 to j do write(y[i], ' '); //Печатаем найденное
  end;
readln; //Ждём нажатия <ENTER> для завершения программы
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.03.2013, 01:03

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

перечислить элементы массива D в массив E и подсчитать в них количество положительных чисел.
А. дан D(50) и -1&lt;x&lt;=1 перечислить элементы массива D в массив E и подсчитать в них количество...

Дан массив целых чисел а(12). Переписать в массив х четные, а в массив у нечетные элементы массива а
Помогите пожалуйста решить эту задачу. Массив a выводит на печать. Я пишу a mod 2 = 0 , а он мне 41...

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

Переписать все элементы массива А в массив В, а элементы массива В - в массив А
Ввести два одинаковой длины 1-мерных массивов А и В целого типа. Переписать все элементы массива А...


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

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

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