Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
cakc1234
0 / 0 / 0
Регистрация: 27.11.2014
Сообщений: 2
#1

Сформировать два одномерных массива из элементов исходного - Turbo Pascal

27.11.2014, 18:51. Просмотров 482. Ответов 2
Метки нет (Все метки)

Помогите как можно скорее решить данную задачку)Заранее спасибо)
Задан одномерный массив Z(N) (N<=60). Сформировать два одномерных массива X и Y. Массив Х получен делением на 2 элементов массива Z, стоящих на четных местах, а массив Y – делением на 3 элементов массива Z, стоящих на нечетных местах.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.11.2014, 18:51
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Сформировать два одномерных массива из элементов исходного (Turbo Pascal):

Сформировать два массива из элементов исходного - Turbo Pascal
Помогите исправить ошибку! Он формирут 2 массива, но не формирует их так, чтобы в одном были четные, а в другом нечетные. Задание: ...

Сформировать два новых целочисленных массива B и C из элементов исходного - Turbo Pascal
Помгите пожалуйста господа форумчане! Ничего не соображаю в сериях. Дан целочисленный массив A размера N. Назовем серией группу...

Сформировать два новых массива из 20-ти первых и из 20-ти последних элементов исходного массива, деленных на max - Turbo Pascal
С помощью функции Random сформировать двумерный массив размером n*m вещественных чисел с элементами от -30 до 30. Определить количество...

Из положительных и отрицательных элементов исходного массива сформировать два новых - Turbo Pascal
3.Составьте программу формирования из массива A двух массивов, в которых первый массив заполнен отрицательными, а второй - положительными...

Даны два одномерных массива. Сравнить совпадающие элементы и сформировать массив из максимальных элементов - Turbo Pascal
даны два одномерных массива,сравнить совпадающие элементы и сформировать массив с максимальных элементов...

Из исходной матрицы сформировать два одномерных массива по заданному правилу - Turbo Pascal
Задана матрица А(5, 5). Сформировать два одномерных массива. В один переслать по строкам верхний треугольник матрицы, включая элементы...

2
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3346 / 2333 / 1614
Регистрация: 05.06.2014
Сообщений: 11,046
29.11.2014, 11:54 #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
{Задан одномерный массив Z(N) (N<=60). Сформировать два одномерных массива
X и Y. Массив Х получен делением на 2 элементов массива Z, стоящих на
четных местах, а массив Y - делением на 3 элементов масс
ива Z, стоящих на нечетных местах.}
const
  n_max=100;
var
  x,y,z:array[1..n_max] of real;
  xn,yn,n,i:integer;
begin
  randomize;
  write('Введите N: ');  readln(n);
  writeln('Массив Z: ');
  yn:=0;
  xn:=0;
  for i:=1 to n do
    begin
      z[i]:=random*n_max;
      write(z[i]:8:2);
      if odd(i) then
        begin
          inc(yn);
          y[yn]:=z[i]/3;
        end
      else
        begin
          inc(xn);
          x[xn]:=z[i]/2;
        end;
    end;
  writeln;
  writeln('Массив Х: ');
  for i:=1 to xn do
    write(x[i]:8:2);
  writeln;
  writeln('Массив Y: ');
  for i:=1 to yn do
    write(y[i]:8:2);
  readln;
end.
0
cakc1234
0 / 0 / 0
Регистрация: 27.11.2014
Сообщений: 2
29.11.2014, 12:30  [ТС] #3
Спасибо)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.11.2014, 12:30
Привет! Вот еще темы с ответами:

Сформировать два одномерных массива. В один переслать по строкам верхний треугольник - Turbo Pascal
Задана матрица А размером NxN. Сформировать два одномерных массива. В один переслать по строкам верхний треугольник матрицы, включая...

Сформировать два одномерных массива. В один записать четные, а в другой нечетные элементы матрицы. - Turbo Pascal
Здравствуйте! хочу написать задачу с массивами, но не получается. Вот собственно сама задача: Дана квадратная матрица порядка N....

Сформировать два одномерных массива. В один перешлите все четные, а в другой – нечетные элементы матрицы. - Turbo Pascal
Дана матрица А, имеющая N строк и N столбцов. Сформировать два одномерных массива. В один перешлите все четные, а в другой – нечетные...

Даны четыре одномерных массива A, B, C, D, сформировать новый массив из сумм элементов каждого массива - Turbo Pascal
а подскажите пожалуй программу для &quot;даны четыре одномерных массива A, B, C, D, сформировать новый массив из сумм элементов каждого...


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

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

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