Если значение элементов массива подчиняются условию x1<=x2<=...<=x15,то все нечётные элементы массива умножить на А,в противном случае чётные умножить

18.12.2012, 15:02. **Показов** 1519. **Ответов** 3

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

Помогите пожалуйста решить задачу

:
1.Задан массив x(15).Если значение элементов массива подчиняются условию x1<=x2<=...<=x15,то все нечётные элементы массива умножить на А,в противном случае чётные умножить на В.
Никак не могу решить эту задачу,помогите пожалуйста!

@PaniCa. · 18.12.2012, 15:27

Pascal

var
  X: array [0..14] of integer;
  i, A, B: integer;
  p: boolean;
 
begin
  write('Введите A: ');
  readln(A);
  write('Введите B: ');
  readln(B);
  p := true;
  for i:=0 to 14 do
  begin
  write('X[',i,'] = ');
  readln(X[i]);
  end;
  for i := 0 to 14 do
  begin
    if i < 14 then 
      if X[i] > X[i + 1] then 
      begin
        p := false;
        break;
      end;
  end;
  for i := 0 to 14 do
  begin
    if p = true then
      if X[i] mod 2 <> 0 then X[i] := X[i] * A;
    if p = false then
      if X[i] mod 2 = 0 then X[i] := X[i] * B;
      write(X[i]:4)
  end;
end.

18.12.2012, 16:20

Спасибо,сам бы не догадался)
P.S В целом всё понял,только не могу понять зачем в нашем случае нужна команда break;(Для меня эта новая команда),без неё программа вроде бы и так работает.

@PaniCa. · 18.12.2012, 17:16

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

Спасибо,сам бы не догадался)
P.S В целом всё понял,только не могу понять зачем в нашем случае нужна команда break;(Для меня эта новая команда),без неё программа вроде бы и так работает.

Если предыдущий элемент больше последующего, то нет смысла проверять остальные элементы, p уже будет false и мы прерываем цикл командой break.
Для таких маленьких программ, возможно, прерывать цикл и не нужно. Но когда у тебя будет полноценная большая программа, то лишние вычисления будут затрачивать лишнюю память.

x4IPx
		1
	Если значение элементов массива подчиняются условию x1<=x2<=...<=x15,то все нечётные элементы массива умножить на А,в противном случае чётные умножить 18.12.2012, 15:02. Показов 1519. Ответов 3 Метки нет (Все метки) Помогите пожалуйста решить задачу: 1.Задан массив x(15).Если значение элементов массива подчиняются условию x1<=x2<=...<=x15,то все нечётные элементы массива умножить на А,в противном случае чётные умножить на В. Никак не могу решить эту задачу,помогите пожалуйста!

x4IPx
	18.12.2012, 16:20	3
	Спасибо,сам бы не догадался) P.S В целом всё понял,только не могу понять зачем в нашем случае нужна команда break;(Для меня эта новая команда),без неё программа вроде бы и так работает.

@PaniCa. 38 / 38 / 22 Регистрация: 29.10.2011 Сообщений: 95
	18.12.2012, 17:16	4
	Сообщение от x4IPx Спасибо,сам бы не догадался) P.S В целом всё понял,только не могу понять зачем в нашем случае нужна команда break;(Для меня эта новая команда),без неё программа вроде бы и так работает. Если предыдущий элемент больше последующего, то нет смысла проверять остальные элементы, p уже будет false и мы прерываем цикл командой break. Для таких маленьких программ, возможно, прерывать цикл и не нужно. Но когда у тебя будет полноценная большая программа, то лишние вычисления будут затрачивать лишнюю память. 1

Опции темы