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

Автор: Наталья

Наталья — Fri, 18 Jan 2019 13:28:32 +0000

В ответ на Bronislav. Можно так: var k:Integer; begin write('Количество наборов чисел k= '); read(k); write('Введите ',k,' наборов чисел : '); //наборы разделяет 0 for var i:=1 to k do begin var a:=ReadSeqIntegerWhile(x->x0).ToArray; var h:= a.SequenceEqual(a.Sorted); var d:= a.SequenceEqual(a.SortedDescending); If (a.Count>=2)and h and not d then writeln('Набор ',i,': 1') else If (a.Count>=2)and d and not h then writeln('Набор ',i,': -1') else If (a.Count>=2)and h and d or not(h or d) then writeln('Набор ',i,': 0') else end; end.

Автор: Наталья

Наталья — Fri, 18 Jan 2019 12:13:23 +0000

Автор: Bronislav

Bronislav — Mon, 26 Feb 2018 21:57:26 +0000

//pascalABC.net
begin
  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)) then println(1);
    if (a.Count>=2) and (a.Distinct.Count<>1) and
      (a.SequenceEqual(a.SortedDescending)) then println(-1);
    if (a.Count>=2) and
      (not (a.SequenceEqual(a.Sorted) or a.SequenceEqual(a.SortedDescending))
      or (a.Distinct.Count=1)) then println(0);
  end;
  readln;readln;
end.

//pascalABC.net

begin

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)) then println(1);

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

(a.SequenceEqual(a.SortedDescending)) then println(-1);

if (a.Count>=2) and

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

or (a.Distinct.Count=1)) then println(0);

end;

readln;readln;

end.

Автор: Anton

Anton — Fri, 25 Dec 2015 09:41:13 +0000

В ответ на olegst1975. А по поводу: > Ура, с Series больше надоедать не буду Для меня это грустняшка... я счастлив когда мне пишут комментарии...

Автор: Anton

Anton — Fri, 25 Dec 2015 09:38:10 +0000

В ответ на olegst1975. Не понравилось, что используется две целочисленные переменные вместо двух булевых... Попытался сократить хотя бы до одной целочисленной переменной, но получилось ещё запутанней.

Автор: olegst1975

olegst1975 — Fri, 25 Dec 2015 08:25:35 +0000

Как результат просят вывести числа поэтому переменные CheckUP и CheckDown используем числовые

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

program Series38;

var

K,Ki,A,A1,CheckUP,CheckDown:Integer;

begin

Write('K: ');

Readln(K);

for Ki:=1 to K do

begin

CheckUp:=0;

CheckDown:=0;

Write('A: ');

Readln(A);

repeat

A1:=A;

Write('A: ');

Readln(A);

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

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

until A=0;

Writeln('---');

Writeln(CheckUp+CheckDown);

end;

end.

Ура, с Series больше надоедать не буду

Автор: Anton

Anton — Thu, 24 Dec 2015 09:15:51 +0000

избавился от

    if (A1=A) and (A<>0) then
     begin
      CheckDown:=True;
      CheckUp:=True;
     end;

if (A1=A) and (A<>0) then

begin

CheckDown:=True;

CheckUp:=True;

end;

Добавив не строгие неравенства.

Автор: Anton

Anton — Thu, 24 Dec 2015 08:01:21 +0000

Было:

program Series38;
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;
</a>

program Series38;

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;

</a>

Стало:

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

program Series38;

var

K,Ki,A,A1:Integer;

CheckUP,CheckDown:Boolean;

begin

Write('K: ');

Readln(K);

for Ki:=1 to K do

begin

CheckUp:=False;

CheckDown:=False;

Write('A: ');

Readln(A);

repeat

A1:=A;

Write('A: ');

Readln(A);

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

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

if (A1=A) and (A<>0) then

begin

CheckDown:=True;

CheckUp:=True;

end;

until A=0;

Writeln('---');

If CheckUP and CheckDown then Writeln(0)

else If CheckUP then Writeln(1)

else If CheckDown then Writeln(-1);

end;

end.

</a>

Автор: olegst1975

olegst1975 — Wed, 23 Dec 2015 15:03:06 +0000

Это решение предыдущей задачи.