Комментарии: Решаем задачи Абрамян на Паскале. Series37

Автор: Bronislav

Bronislav — Mon, 26 Feb 2018 11:13:39 +0000

//ручной ввод наборов, pascalABC.net
begin
  var count:=0;
  write('введите кол-во наборов: ');
  var k:=ReadlnInteger('k =');
  for var i:=1 to k do
  begin
    writeln('введите ',i,' набор чисел:');
    var a:=ReadSeqIntegerWhile(t->t<>0).ToArray;
    if (a.Count>=2) and (a.Distinct.Count<>1) and
      ((a.SequenceEqual(a.Sorted)) or (a.SequenceEqual(a.SortedDescending)))
      then inc(count);
   end;
  print('кол-во наборов в которых элементы возрастают или убывают =',count);
  readln;readln;
end.

//ручной ввод наборов, pascalABC.net

begin

var count:=0;

write('введите кол-во наборов: ');

var k:=ReadlnInteger('k =');

for var i:=1 to k do

begin

writeln('введите ',i,' набор чисел:');

var a:=ReadSeqIntegerWhile(t->t<>0).ToArray;

if (a.Count>=2) and (a.Distinct.Count<>1) and

((a.SequenceEqual(a.Sorted)) or (a.SequenceEqual(a.SortedDescending)))

then inc(count);

end;

print('кол-во наборов в которых элементы возрастают или убывают =',count);

readln;readln;

end.

//автоввод наборов, pascalABC.net
begin
  var count:=0;
  write('введите кол-во наборов: ');
  var k:=ReadlnInteger('k =');
  for var i:=1 to k do
  begin
    var a:=ArrRandomInteger(20,0,10);a.Println;
    a:=a.TakeWhile(t->t<>0).ToArray;a.Println;
    if (a.Count>=2) and (a.Distinct.Count<>1) and
      ((a.SequenceEqual(a.Sorted)) or (a.SequenceEqual(a.SortedDescending)))
      then inc(count);
    count.Println;
   end;
  print('кол-во наборов в которых элементы возрастают или убывают =',count);
  readln;readln;
end.

//автоввод наборов, pascalABC.net

begin

var count:=0;

write('введите кол-во наборов: ');

var k:=ReadlnInteger('k =');

for var i:=1 to k do

begin

var a:=ArrRandomInteger(20,0,10);a.Println;

a:=a.TakeWhile(t->t<>0).ToArray;a.Println;

if (a.Count>=2) and (a.Distinct.Count<>1) and

((a.SequenceEqual(a.Sorted)) or (a.SequenceEqual(a.SortedDescending)))

then inc(count);

count.Println;

end;

print('кол-во наборов в которых элементы возрастают или убывают =',count);

readln;readln;

end.

Автор: Anton

Anton — Thu, 24 Dec 2015 09:19:20 +0000

В ответ на olegst1975. в 38 там ситуация немного другая... покрайней мере в моём решении.. там 3 варианта поэтому конструкция получается сложнее...

Автор: Anton

Anton — Thu, 24 Dec 2015 09:12:55 +0000

Осознал
исправил:
Было:

 if (A1 > A) and (A <> 0) then CheckUp:=False;
 if (A1 < A) and (A <> 0) then CheckDown:=False;

1 2	if (A1 > A) and (A <> 0) then CheckUp:=False; if (A1 < A) and (A <> 0) then CheckDown:=False;

Стало:

 if (A1 > = A) and (A<>0) then CheckUp:=False;
 if (A1 < = A) and (A<>0) then CheckDown:=False;

1 2	if (A1 > = A) and (A<>0) then CheckUp:=False; if (A1 < = A) and (A<>0) then CheckDown:=False;

Автор: olegst1975

olegst1975 — Thu, 24 Dec 2015 09:12:17 +0000

В ответ на olegst1975. Только хотел написать про xor)). Актуально здесь и для Series38

Автор: olegst1975

olegst1975 — Thu, 24 Dec 2015 08:59:59 +0000

В ответ на Anton. Все верно. В задаче речь о возрастающей(строго взрастающей), соответственно убывающей последовательностях. Сейчас , для K=1, A={ 3, 3, 3, 3, 0}, ответ: - 1.Это ошибка.

Автор: Anton

Anton — Thu, 24 Dec 2015 07:35:58 +0000

В ответ на olegst1975. Когда неравенство не строгое, то есть когда элемент равняется или больше предыдущего, последовательность называется монотонно возрастающей. Если последовательность "возрастающая", значит неравенство строгое, то есть текущий элемент строго больше предыдущего.

Автор: olegst1975

olegst1975 — Wed, 23 Dec 2015 18:46:03 +0000

Может

 if (A1больше равноA) and (Aне равно0) then CheckUp:=False;
 if (A1меньше равноA) and (Aне равно0) then CheckDown:=False;

1 2	if (A1больше равноA) and (Aне равно0) then CheckUp:=False; if (A1меньше равноA) and (Aне равно0) then CheckDown:=False;

и при повторах чисел — в слив

Автор: olegst1975

olegst1975 — Wed, 23 Dec 2015 15:21:12 +0000

В ответ на olegst1975. Сюда же. Случай с K=1 A={ 3, 3, 3, 3, 0} тоже пройдет?

Автор: olegst1975

olegst1975 — Wed, 23 Dec 2015 15:12:41 +0000

Здесь, один вопрос — в наборе 2,3…одинаковых элемента подряд, считается ли этот набор возрастающим или убывающим? K=1 A={1, 2, 3, 3, 3, 3, 0}