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

Series37. Дано целое число $$K$$, а также $$K$$ наборов ненулевых целых чисел. Каждый набор содержит не менее двух элементов, признаком его завершения является число 0. Найти количество наборов, элементы которых возрастают или убывают.

Решение, считаются только строго возрастающие и убывающие наборы:

program Series37;
var
  K,Ki,A,A1,Count:Integer;
  CheckUP,CheckDown:Boolean;
begin
 Write('K: ');
 Readln(K);
 Count:=0;
 for Ki:=1 to K do
  begin
   Write('A: ');
   Readln(A);
   CheckUp:=True;
   CheckDown:=True;
   repeat
    A1:=A;
    Write('A: ');
    Readln(A);
    if (A1>=A) and (A<>0) then CheckUp:=False;
    if (A1<=A) and (A<>0) then CheckDown:=False;
   until A=0;
    Writeln('---');
   If CheckUP xor CheckDown then Count:=Count+1;
  end;
  Writeln(Count);
end.

program Series37;

var

K,Ki,A,A1,Count:Integer;

CheckUP,CheckDown:Boolean;

begin

Write('K: ');

Readln(K);

Count:=0;

for Ki:=1 to K do

begin

Write('A: ');

Readln(A);

CheckUp:=True;

CheckDown:=True;

repeat

A1:=A;

Write('A: ');

Readln(A);

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

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

until A=0;

Writeln('---');

If CheckUP xor CheckDown then Count:=Count+1;

end;

Writeln(Count);

end.

Решение, набор из одинаковых чисел (например 1 1 1 0) считается возрастающим и убывающим:

program Series37;
var
  K,Ki,A,A1,Count:Integer;
  CheckUP,CheckDown:Boolean;
begin
 Write('K: ');
 Readln(K);
 Count:=0;
 for Ki:=1 to K do
  begin
   Write('A: ');
   Readln(A);
   CheckUp:=True;
   CheckDown:=True;
   repeat
    A1:=A;
    Write('A: ');
    Readln(A);
    if (A1>A) and (A<>0) then CheckUp:=False;
    if (A1<A) and (A<>0) then CheckDown:=False;
   until A=0;
    Writeln('---');
   If CheckUP or CheckDown then Count:=Count+1;
  end;
  Writeln(Count);
end.

program Series37;

var

K,Ki,A,A1,Count:Integer;

CheckUP,CheckDown:Boolean;

begin

Write('K: ');

Readln(K);

Count:=0;

for Ki:=1 to K do

begin

Write('A: ');

Readln(A);

CheckUp:=True;

CheckDown:=True;

repeat

A1:=A;

Write('A: ');

Readln(A);

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

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

until A=0;

Writeln('---');

If CheckUP or CheckDown then Count:=Count+1;

end;

Writeln(Count);

end.

Другие задачи из раздела Series можно посмотреть здесь.

Комментарии 9

olegst1975

23.12.2015 в 19:12

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

Ответить
- olegst1975
  
  23.12.2015 в 19:21
  
  Сюда же. Случай с K=1 A={ 3, 3, 3, 3, 0} тоже пройдет?
  
  Ответить
  - Anton
    
    24.12.2015 в 11:35
    
    Когда неравенство не строгое, то есть когда элемент равняется или больше предыдущего, последовательность называется монотонно возрастающей.
    Если последовательность «возрастающая», значит неравенство строгое, то есть текущий элемент строго больше предыдущего.
    
    Ответить
    - olegst1975
      
      24.12.2015 в 12:59
      
      Все верно. В задаче речь о возрастающей(строго взрастающей), соответственно убывающей последовательностях. Сейчас , для K=1, A={ 3, 3, 3, 3, 0}, ответ: — 1.Это ошибка.
      
      Ответить
      - olegst1975
        
        24.12.2015 в 13:12
        
        Только хотел написать про xor)). Актуально здесь и для Series38
        
        Ответить
        
        Anton
        
        24.12.2015 в 13:19
        
        в 38 там ситуация немного другая… покрайней мере в моём решении.. там 3 варианта поэтому конструкция получается сложнее…
        
        Ответить
olegst1975

23.12.2015 в 22:46

Может

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;

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

Ответить
- Anton
  
  24.12.2015 в 13:12
  
  Осознал
  исправил:
  Было:
  
  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;
  
  Ответить

//ручной ввод наборов, 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.

Ответить

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

Комментарии:

Комментарии 9

Добавить комментарий Отменить ответ