Как вместить массивы A и B в массив C - Turbo Pascal
Формулировка задачи:
подскажите как вместить массивы A і B в массив C?
Решение задачи: «Как вместить массивы A и B в массив C»
textual
Листинг программы
var a,b,c:array[1..1000] of integer; n,m,i,k:integer; begin writeln('vvedite razmer massiva A'); readln(n); randomize; writeln('massiv A'); for i:=1 to n do begin a[i]:=random(100); write(a[i],' '); end; writeln; writeln('vvedite razmer massiva B'); readln(m); randomize; writeln('massiv B'); for i:=1 to m do begin b[i]:=random(100); write(b[i],' '); end; writeln; for i:=1 to n+m do begin inc(k); if k<=n then c[i]:=a[i] else c[i]:=b[i-n]; end; writeln('massiv C'); for i:=1 n+m do write(c[i],' '); end.
Объяснение кода листинга программы
- Создаются три переменные типа array[1..1000] of integer: a, b и c.
- Пользователю предлагается ввести размер массива A и B.
- Для массива A генерируются случайные числа от 0 до 99 включительно и выводятся на экран через пробел.
- Для массива B генерируются случайные числа от 0 до 99 включительно и выводятся на экран через пробел.
- Затем происходит цикл, который начинается с i=1 и продолжается до n+m.
- Внутри цикла увеличивается значение переменной k.
- Если k меньше или равно n (т.е. i меньше или равно n), то значение элемента c[i] устанавливается равным значению элемента a[i].
- Если k больше n, то значение элемента c[i] устанавливается равным значению элемента b[i-n].
- После завершения внутреннего цикла выводится на экран массив c.
- Код завершается без использования функции завершения программы.