Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
shandorb
0 / 0 / 0
Регистрация: 16.04.2017
Сообщений: 2
1

Задача на конкатенацию массивов

16.04.2017, 12:58. Просмотров 762. Ответов 2
Метки нет (Все метки)

Добрый день. Прошу помочь написать программу,которая запрашивает и вводит с экрана два линейных массива действительных чисел не более 50 членов (возможно разное количество членов), получает из них третий, путем приписывания членов массива, в котором меньше элементов, после членов массива, в котором их больше. Затем программа выводит полученный массив.
Заранее спасибо за помощь
С уважением, Александр
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.04.2017, 12:58
Ответы с готовыми решениями:

Двумерный массивов ПРОСТАЯ ЗАДАЧА
Помогите решить задачи буду очень благодарен . Задачи: 1. В массиве, состоящий из действительных...

задача с использованием одномерных массивов.
Возникла проблема с решение задачи:-| Дан массив A(m), m=или<16. Найти сумму S элементов,...

Задача по сортировке массивов
Используя метод сортировки выбором, переставить элементы так, чтобы непарные элементы оставались на...

Задача из нескольких массивов
С клавиатуры вводится прибыль компании за год (вводится каждый месяц отдельно). Необходимо...

Задача с использованием массивов
Есть задача: "В одномерном массиве, состоящем из n действительных элементов, вычислить: 1)...

2
Alexandr212
99 / 94 / 112
Регистрация: 28.11.2016
Сообщений: 528
16.04.2017, 20:29 2
Лучший ответ Сообщение было отмечено shandorb как решение

Решение

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
type
  mas = array [1..100] of real;
 
var
  n, m, i, j: integer;
  a, b, c: mas;
 
begin
  readln(n);
  for i := 1 to n
    do read(a[i]);
  readln(m);
  for i := 1 to m
    do read(b[i]);
  if n > m
  then begin
    for i := n + 1 to n + m
    do begin inc(j);A[i] := B[j]; end;
    for i := 1 to n + m
    do begin C[i] := A[i];write(C[i], ' '); end;
  end
  else begin
    for i := m + 1 to n + m
    do begin inc(j);B[i] := A[j]; end;
    for i := 1 to n + m
    do begin C[i] := B[i];write(C[i], ' '); end;
  end;
end.
1
shandorb
0 / 0 / 0
Регистрация: 16.04.2017
Сообщений: 2
17.04.2017, 08:00  [ТС] 3
Огромное спасибо Вам
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.04.2017, 08:00

Задача на сортировку массивов
Доброго времени суток! Возникла проблема с решением задачи. Буду очень благодарен за помощь в ...

Задача на сортировку массивов
Сформировать с помощью датчика случайных чисел в диапазоне два массива C и D, из 20 элементов...

Задача на упорядочивание массивов
Привет! Мне очень нужна помощь вас, форумчан, потому что я очень мало смыслю в Турбо Паскале и не...


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

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

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