Если массив А не равен массиву В, то сформировать массив С, где ci=ai+bi

@_lol_ · Регистрация: 03.09.2012

Author24 — интернет-сервис помощи студентам

Заданы два одномерных массива A и B. Если массив А не равен массиву В, то сформировать массив С, где ci=ai+bi. Если массивы А и В равны, то переписать массив А в массив С.

@Finita · 04.11.2012, 14:46

Pascal

const
 n=3;
var
 a: array[1..n] of integer;
 b: array[1..n] of integer;
 c: array[1..n] of integer;
 i: integer;
 br: boolean;
begin
 
 br:= true;
 writeln('Ââåäèòå ýëåìåíòû ìàññèâà À');
 for i:=1 to n do
  begin
  readln(a[i]);
  end;
 writeln('Ââåäèòå ýëåìåíòû ìàññèâà B');
 for i:=1 to n do
  begin
  readln(b[i]);
  end;
  
 for i:=1 to n do
  begin
   if a[i]<>b[i] then
    begin
     br:=false;
     break;
    end;
   end;
 
 if br=false then
  begin
  for i:=1 to n do c[i]:=a[i]+b[i];
  end
 else
   begin
  for i:=1 to n do c[i]:=a[i];
  end;
  writeln('Ýëåìåíòû ìàññèâà C');
 for i:=1 to n do
  begin
  write(c[i],' ');
  end;
end.

Bringoff · 04.11.2012, 14:54

Pascal

 program M;
 Var a,b,c:array [1..1000] of integer;
 V:boolean;
J,I:integer;
Begin
V:=true;
Read(j);//количество чисел
For I:=1 to j do
  Read(a[i]);
for I:=1 to j do
 Read(b[i]);
 
For I:=1 to j do
 Begin
   If a[i]<>b[i] then
    V:=false
     Else v:=true;
 End;
 If v=true then
  c:=a
 Else begin
   For I:=1 to j do
   C[i]:=(a[i]+b[i]);
End;
   For I:=1 to j do
    Write(c[i], ' ');
End.

или так. На смартфоне медленно набирать

@dexter007 · 05.11.2012, 20:49

а как это будет виглядеть на с++? подскажите плис

Добавлено через 1 минуту
Izobara, а как это будет виглядеть на с++? подскажите плис

Bringoff · 05.11.2012, 20:53

Добавлено через 1 минуту
Izobara, а как это будет виглядеть на с++? подскажите плис[/QUOTE]
Не знаю с++, к сожалению. Спросите в соответствующем разделе.

@dexter007 · 05.11.2012, 21:17

ок. спасибо

@Liffan · 05.11.2012, 21:40

вот более "правильный" код

Pascal

 var a, b, c: array of integer;
    n, i:integer;
    v:boolean;
begin
 
  writeln('Введите длину массива');
  readln(n);
  n:=n+1;
  setlength(a, n);
  setlength(b, n);
  setlength(c, n);
  n:=n-1;
  writeln('Введите первый массив:');
  for i:=1 to n do
   readln(a[i]);
  v:=true;
  writeln('Введите второй массив:');
  for i:=1 to n do
  begin
   readln(b[i]);
   if b[i]<>a[i] then v:=false;
  end;
  if v=false then for i:=1 to n do c[i]:=a[i]+b[i] else for i:=1 to n do c[i]:=a[i];
 writeln('Третий массив:');
 for i:=1 to n do
   writeln(c[i]);
 readln;
 
end.

Bringoff · 05.11.2012, 21:51

Сообщение от Liffan

вот более "правильный" код

Pascal

 var a, b, c: array of integer;
    n, i:integer;
    v:boolean;
begin
 
  writeln('Введите длину массива');
  readln(n);
  n:=n+1;
  setlength(a, n);
  setlength(b, n);
  setlength(c, n);
  n:=n-1;
  writeln('Введите первый массив:');
  for i:=1 to n do
   readln(a[i]);
  v:=true;
  writeln('Введите второй массив:');
  for i:=1 to n do
  begin
   readln(b[i]);
   if b[i]<>a[i] then v:=false;
  end;
  if v=false then for i:=1 to n do c[i]:=a[i]+b[i] else for i:=1 to n do c[i]:=a[i];
 writeln('Третий массив:');
 for i:=1 to n do
   writeln(c[i]);
 readln;
 
end.

Не работает ваш код. Мда, зависает на считывании первого массива, ПРОСТО ничего делает.

@zMeFz · 05.11.2012, 22:25

Сообщение от Finita

Pascal

 for i:=1 to n do
  begin
   if a[i]<>b[i] then
    begin
     br:=false;
     break;
    end;
   end;

Зачем проверять все элементы, ведь если массивы не равны то и любые элементы не равны, по этому быстрее будет написать:

Pascal

if a[1]<>b[1] then
  begin
  for i:=1 to n do c[i]:=a[i]+b[i];
  end
 else
   begin
  for i:=1 to n do c[i]:=a[i];
  end;

Bringoff · 05.11.2012, 22:27

Сообщение от zMeFz

Зачем проверять все элементы, ведь если массивы не равны то и любые элементы не равны, по этому быстрее будет написать:

Pascal

if a[1]<>b[1] then
  begin
  for i:=1 to n do c[i]:=a[i]+b[i];
  end
 else
   begin
  for i:=1 to n do c[i]:=a[i];
  end;

Логично!..

@Liffan · 06.11.2012, 05:23

Сообщение от Izobara

Не работает ваш код. Мда, зависает на считывании первого массива, ПРОСТО ничего делает.

на каком именно месте зависает? перед началом ввода массива или в конце?

Bringoff · 06.11.2012, 12:39

Сообщение от Liffan

на каком именно месте зависает? перед началом ввода массива или в конце?

Я ввожу число элементов, оно предлагает ввести первый массив. Я ввожу количество чисел, по числу ( допустим, 5), которое ввел в самом начале. Жму enter. И просто пустая строка. Ввожу еще 5 чисел - а вдруг - и ничего, просто снова строка для ввода.

Добавлено через 7 минут

Сообщение от zMeFz

Зачем проверять все элементы, ведь если массивы не равны то и любые элементы не равны, по этому быстрее будет написать:Код Pascal

Pascal

if a[1]<>b[1] then
 begin
 for i:=1 to n do c[i]:=a[i]+b[i];
 end
 else
 begin
 for i:=1 to n do c[i]:=a[i];
 end;

А если отличается не первый элемент, а какой-то другой, или только последний? Что прикажете сделать? Сколько умных развелось...

@Liffan · 06.11.2012, 15:41

Сообщение от Izobara

Я ввожу число элементов, оно предлагает ввести первый массив. Я ввожу количество чисел, по числу ( допустим, 5), которое ввел в самом начале. Жму enter. И просто пустая строка. Ввожу еще 5 чисел - а вдруг - и ничего, просто снова строка для ввода.

Можно тогда так сделать, но это более затратно по памяти

Pascal

var a, b, c: array [1..1000] of integer;
    n, i:integer;
    v:boolean;
begin
 
  writeln('Введите длину массива');
  readln(n);
  writeln('Введите первый массив:');
  for i:=1 to n do
   readln(a[i]);
  v:=true;
  writeln('Введите второй массив:');
  for i:=1 to n do
  begin
   readln(b[i]);
   if b[i]<>a[i] then v:=false;
  end;
  if v=false then for i:=1 to n do c[i]:=a[i]+b[i] else for i:=1 to n do c[i]:=a[i];
 writeln('Третий массив:');
 for i:=1 to n do
   writeln(c[i]);
 readln;
 
end.

Bringoff · 06.11.2012, 15:43

Теперь ничего не делает после ввода 2-го массива

Расслабся.

@Liffan · 06.11.2012, 18:38

Сообщение от Izobara

Теперь ничего не делает после ввода 2-го массива

Расслабся.

Не знаю, у меня всё работает, на нескольких компиляторах проверял :-)

Bringoff · 06.11.2012, 18:39

Сообщение от Liffan

Не знаю, у меня всё работает, на нескольких компиляторах проверял :-)

Ладно, пусть

Bringoff СуперМодулятор 134 / 134 / 48 Регистрация: 03.11.2012 Сообщений: 974
	06.11.2012, 18:39	16
	Сообщение от Liffan Не знаю, у меня всё работает, на нескольких компиляторах проверял :-) Ладно, пусть 1

@_lol_ 0 / 0 / 1 Регистрация: 03.09.2012 Сообщений: 20
		1
	Если массив А не равен массиву В, то сформировать массив С, где ci=ai+bi 04.11.2012, 14:31. Показов 2118. Ответов 15 Метки нет (Все метки) Заданы два одномерных массива A и B. Если массив А не равен массиву В, то сформировать массив С, где ci=ai+bi. Если массивы А и В равны, то переписать массив А в массив С. 0

@dexter007 4 / 4 / 0 Регистрация: 10.10.2012 Сообщений: 27
	05.11.2012, 20:49	4
	а как это будет виглядеть на с++? подскажите плис Добавлено через 1 минуту Izobara, а как это будет виглядеть на с++? подскажите плис 1

Bringoff СуперМодулятор 134 / 134 / 48 Регистрация: 03.11.2012 Сообщений: 974
	05.11.2012, 20:53	5
	Добавлено через 1 минуту Izobara, а как это будет виглядеть на с++? подскажите плис[/QUOTE] Не знаю с++, к сожалению. Спросите в соответствующем разделе. 1

@dexter007 4 / 4 / 0 Регистрация: 10.10.2012 Сообщений: 27
	05.11.2012, 21:17	6
	ок. спасибо 1

@Liffan 11 / 8 / 9 Регистрация: 05.11.2012 Сообщений: 65
	06.11.2012, 05:23	11
	Сообщение от Izobara Не работает ваш код. Мда, зависает на считывании первого массива, ПРОСТО ничего делает. на каком именно месте зависает? перед началом ввода массива или в конце? 0

Bringoff СуперМодулятор 134 / 134 / 48 Регистрация: 03.11.2012 Сообщений: 974
	06.11.2012, 15:43	14
	Теперь ничего не делает после ввода 2-го массива Расслабся. 1

@Liffan 11 / 8 / 9 Регистрация: 05.11.2012 Сообщений: 65
	06.11.2012, 18:38	15
	Сообщение от Izobara Теперь ничего не делает после ввода 2-го массива Расслабся. Не знаю, у меня всё работает, на нескольких компиляторах проверял :-) 0