Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
starkl
0 / 0 / 0
Регистрация: 25.05.2015
Сообщений: 10
1

Из двух массивов получить третий по правилу

25.05.2015, 20:16. Просмотров 209. Ответов 2
Метки нет (Все метки)

задача №5 на фото
пытался решить, но не получается

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
const n=10;var a,b:array [1..n] of real;
c:array[1..1] of real;
i:integer;
begin
write('vvedite a');
for I:= 1 to n do 
read(a[i]);
write('vvedite b');
for i:= 1 to n do  
read(b[i]);
begin
for i:= 1 to n do
begin
c[2*i-1]:=a[i];
c[2*i]:=b[i];
end;
for i:= 1 to n do
write(c[i],'':100);
end;
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.05.2015, 20:16
Ответы с готовыми решениями:

Из двух двумерных массивов создать третий по заданному правилу
Дано два двумерных массива х(n1хm) ,y(n2хm). Cформировать массив...

Сформировать третий массив, состоящий из элементов первых двух массивов по правилу
У нас есть два массива, состоящих из целых чисел ( максимум 10 элементов в...

Из двух массивов сформировать третий по заданному правилу
Заданы два массива А и В по N элементов. Сформировать и вывести на печать...

Получить третий массив методом слияния первых двух массивов
Даны два одномерных числовых массива, упорядоченных по возрастанию. Получить...

Образовать третий массив из двух заданных по правилу
Даны два массива .Образовать третий массив в котором сначала будут расположены...

2
adsarc
33 / 33 / 23
Регистрация: 16.04.2013
Сообщений: 212
Завершенные тесты: 1
25.05.2015, 20:45 2
Надо 1..n
Pascal
1
c:array[1..1] of real;
Цикл идет до половины
Pascal
1
2
3
4
5
for i:= 1 to 5 do
begin
c[2*i-1]:=a[i];
c[2*i]:=b[i];
end;
0
kot96
54 / 45 / 97
Регистрация: 17.08.2014
Сообщений: 156
25.05.2015, 20:51 3
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
44
45
46
47
48
49
50
51
52
53
54
55
program ex1;
uses crt;
type vector=array [1..10]of real;
      cvector=array [1..20]of real;
var a,b:vector; 
    c:cvector;
 
procedure form(var a:vector);
var i:integer;
begin
for i:=1 to 10 do
begin write('введите элемент');
readln(a[i]);end;
end;
 
procedure print(var a:vector);
var i:integer;
begin
for i:=1 to 10 do
write(a[i],' ');
end;
 
procedure formnew(var c:cvector;a,b:vector);
var i,j,k:integer;
begin
j:=1;k:=10;
for i:=1 to 20 do
begin 
if (i mod 2<>0) then begin c[i]:=a[j];j:=j+1;end;
if (i mod 2=0) then begin c[i]:=b[k];k:=k-1;end;
end;
end;
 
procedure printc(var c:cvector);
var i:integer;
begin
for i:=1 to 20 do
write(c[i],' ');
end;
 
 
 
begin
writeln('заполните первый массив');
form(a);writeln();
writeln('заполните второй массив');
form(b);
write('ваш первый массив: ');print(a);
writeln();
write('ваш второй массив: ');print(b);
writeln();
write('ваш третий(1+2) массив:');formnew(c,a,b);
printc(c);
readln();
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.05.2015, 20:51

Из двух массивов сформировать третий
Помогите, если не сложно.. По двум одномерным массивам размерностью A и B...

Из двух массивов сформировать третий
Даны два массива вещественных чисел X и Y. Содержат по 10 элементов. Const...

Из двух массивов создать третий
Даны 2 двумерных массива одинакового размера. Создать третий массив такого же...


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

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

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