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

Series23. Дано целое число $$N$$ ($$> 2$$) и набор из $$N$$ вещественных чисел. Набор называется пилообразным, если каждый его внутренний элемент либо больше, либо меньше обоих своих соседей (то есть является «зубцом»). Если данный набор является пилообразным, то вывести 0; в противном случае вывести номер первого элемента, не являющегося зубцом.

Решение:

program Series18;
var
  i,N,Num,Num1,Num2,El :Integer;
  b:boolean;
begin
 b:=TRUE;
 El:=0;
 Write('N:');
 Readln(N);

 for i:=1 to N do
   begin
    write('Введите ',i,' элемент набора :');
    Num2:=Num1;
    Num1:=Num;
    Readln(Num);

    if (not((Num2<Num1) and (Num1>Num)) and
       not((Num2>Num1) and (Num1<Num))) and
       (i>2) and
        b then
     begin
      El:=i-1;
      b:=FALSE;
     end;
   end;
  Writeln(El);
end.

program Series18;

var

i,N,Num,Num1,Num2,El :Integer;

b:boolean;

begin

b:=TRUE;

El:=0;

Write('N:');

Readln(N);

for i:=1 to N do

begin

write('Введите ',i,' элемент набора :');

Num2:=Num1;

Num1:=Num;

Readln(Num);

if (not((Num2<Num1) and (Num1>Num)) and

not((Num2>Num1) and (Num1<Num))) and

(i>2) and

b then

begin

El:=i-1;

b:=FALSE;

end;

Writeln(El);

end.

Решение olegst1975 и Kirk:

Program s23;

Var
 n,i,k,z1,z2: integer;
 c1,c2: real;
 
Begin
 k:=0;
 z1:=0;
 Write('N=');
 Readln(n);
 Write('Enter number #1: ');
 Readln(c2);
 For i:=2 to n do
  Begin
   Write('Enter number #',i,': ');
   Readln(c1);
   If c1<c2 then z2:=1 else z2:=-1; //1 - подъем, -1 - спуск;
   If (z1=z2) and (k=0) then k:=i-1;
   z1:=z2;
   c2:=c1;
  End;
 Writeln('Number of the end of regularity: ',k);
End.

Program s23;

Var

n,i,k,z1,z2: integer;

c1,c2: real;

Begin

k:=0;

z1:=0;

Write('N=');

Readln(n);

Write('Enter number #1: ');

Readln(c2);

For i:=2 to n do

Begin

Write('Enter number #',i,': ');

Readln(c1);

If c1<c2 then z2:=1 else z2:=-1; //1 - подъем, -1 - спуск;

If (z1=z2) and (k=0) then k:=i-1;

z1:=z2;

c2:=c1;

End;

Writeln('Number of the end of regularity: ',k);

End.

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

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

uses PT4;
var n,i:integer;
    k:byte;
    num:real;
    arr:array of real;
begin
  Task('Series23');
read(n);
SetLength(arr,n);
for i:=0 to n-1 do
  begin
    read(num);
    arr[i]:=num;
  end;
for i:=1 to n-2 do
  begin
    if ((arr[i]>arr[i-1]) and (arr[i]>arr[i+1]))
        or ((arr[i]<arr[i-1]) and (arr[i]<arr[i+1]))
    then k:=0
    else 
      begin
        k:=i+1;
        break;
      end;
  end;
write(k);
end.

uses PT4;

var n,i:integer;

k:byte;

num:real;

arr:array of real;

begin

Task('Series23');

read(n);

SetLength(arr,n);

for i:=0 to n-1 do

begin

read(num);

arr[i]:=num;

end;

for i:=1 to n-2 do

begin

if ((arr[i]>arr[i-1]) and (arr[i]>arr[i+1]))

or ((arr[i]<arr[i-1]) and (arr[i]<arr[i+1]))

then k:=0

else

begin

k:=i+1;

break;

end;

write(k);

end.

Ответить

Было:

program Series23;
const
 N=5;
var
 i,Ne :Integer;
 m :array [1..N] of real;
begin
 for i:=1 to N do
  begin
   write('Введите ',i,' число из набора :');
   Readln(m[i]);
  end;
 Ne:=0;
 for i:=N-1 downto 2 do
  if not((m[i-1]<m[i]) and (m[i]>m[i+1])) and
     not((m[i-1]>m[i]) and (m[i]<m[i+1])) then Ne:=i;
 writeln(Ne);
end.

program Series23;

const

N=5;

var

i,Ne :Integer;

m :array [1..N] of real;

begin

for i:=1 to N do

begin

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

Readln(m[i]);

end;

Ne:=0;

for i:=N-1 downto 2 do

if not((m[i-1]<m[i]) and (m[i]>m[i+1])) and

not((m[i-1]>m[i]) and (m[i]<m[i+1])) then Ne:=i;

writeln(Ne);

end.

Стало:

program Series23;
const
 N=5;
var
 i,Ne :Integer;
 m :array [1..N] of real;
begin
 for i:=1 to N do
  begin
   write('Введите ',i,' число из набора :');
   Readln(m[i]);
  end;
 Ne:=0;
 for i:=N-1 downto 2 do
  if not((m[i-1]<m[i]) and (m[i]>m[i+1])) and
     not((m[i-1]>m[i]) and (m[i]<m[i+1])) then Ne:=i;
 writeln(Ne);
end.

program Series23;

const

N=5;

var

i,Ne :Integer;

m :array [1..N] of real;

begin

for i:=1 to N do

begin

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

Readln(m[i]);

end;

Ne:=0;

for i:=N-1 downto 2 do

if not((m[i-1]<m[i]) and (m[i]>m[i+1])) and

not((m[i-1]>m[i]) and (m[i]<m[i+1])) then Ne:=i;

writeln(Ne);

end.

Ответить

olegst1975

20.12.2015 в 01:00

строка 19, опечатка
not((Num2>Num1) and (Num1<Num2))) and
меняем на
not((Num2>Num1) and (Num1<Num))) and
«…вывести номер первого элемента, не являющегося зубцом.» Строка 23
El:=Num1;
меняем на
El:=i-1;
На первый взгляд конструкция
if (not((Num2Num)) and not((Num2>Num1) and (Num12) and b then
выглядит пугающе))

Ответить
Anton

21.12.2015 в 07:03

Сделал соответствующие изменения.
Только не понял, почему El:=i-1; так как этот элемент является последним элементом предыдущего зубца.

Ответить
olegst1975

21.12.2015 в 16:19

Считав первых три элемента последовательности (i=3), определяем является ли зубцом именно второй, а не третий

Ответить
- Anton
  
  21.12.2015 в 16:52
  
  Да, понял, у меня проблема с логикой… надо вывести элемент который не является зубцом, а я вывожу элемент из за которого тот элемент не является зубцом…
  
  Ответить

Как раз с логикой проблем нет. Внимательность. У меня проблема с ней. В задаче во втором(!!) предложении уже дано решение. Нет, я не дочитав, уже знаю как буду делать. Потом удивляюсь простоте чужих решений.

var
n,i,k,z1,z2:integer;
num,num1:real;
begin
  read(n);//тут по старинке
  read(num1);//считываем первый член последовательности 
  i:=2; //начинаем сравнения со второго, z1,z2-показывают выпуклый или "впуклый" зубец
  z1:=0; //0-знач.неопределено
  k:=0;
  while(n>=i) and (k=0) do//k-досрочный выход(на который задачник не ругается), можно пере---
    begin
     read(num);
     if (num1>num) then z2:=1 else z2:=-1;// 1-"спуск", (-1)-"подъем", зубец - за спуском следует подъем и наоборот, то есть при z1 не равно z2
     if (z1=z2)or(num1=num) then k:=i-1;//---нести сюда ((z1=z2)or(num1=num))and (k=0)
     z1:=z2;     
     num1:=num;
     inc(i,1);
    end;
  write(k);
end.

var

n,i,k,z1,z2:integer;

num,num1:real;

begin

read(n);//тут по старинке

read(num1);//считываем первый член последовательности

i:=2; //начинаем сравнения со второго, z1,z2-показывают выпуклый или "впуклый" зубец

z1:=0; //0-знач.неопределено

k:=0;

while(n>=i) and (k=0) do//k-досрочный выход(на который задачник не ругается), можно пере---

begin

read(num);

if (num1>num) then z2:=1 else z2:=-1;// 1-"спуск", (-1)-"подъем", зубец - за спуском следует подъем и наоборот, то есть при z1 не равно z2

if (z1=z2)or(num1=num) then k:=i-1;//---нести сюда ((z1=z2)or(num1=num))and (k=0)

z1:=z2;

num1:=num;

inc(i,1);

end;

write(k);

end.

Ответить

Anton

24.12.2015 в 11:40

О нет… это слишком сложно 🙂

Ответить

Лучший ответ. Можно также сделать и без досрочного выходаю

Program s23;

Var
 n,i,k,z1,z2: integer;
 c1,c2: real;
 
Begin
 k:=0;
 z1:=0;
 Write('N=');
 Readln(n);
 Write('Enter number #1: ');
 Readln(c2);
 For i:=2 to n do
  Begin
   Write('Enter number #',i,': ');
   Readln(c1);
   If c1<c2 then z2:=1 else z2:=-1; //1 - подъем, -1 - спуск;
   If (z1=z2) and (k=0) then k:=i-1;
   z1:=z2;
   c2:=c1;
  End;
 Writeln('Number of the end of regularity: ',k);
End.

Program s23;

Var

n,i,k,z1,z2: integer;

c1,c2: real;

Begin

k:=0;

z1:=0;

Write('N=');

Readln(n);

Write('Enter number #1: ');

Readln(c2);

For i:=2 to n do

Begin

Write('Enter number #',i,': ');

Readln(c1);

If c1<c2 then z2:=1 else z2:=-1; //1 - подъем, -1 - спуск;

If (z1=z2) and (k=0) then k:=i-1;

z1:=z2;

c2:=c1;

End;

Writeln('Number of the end of regularity: ',k);

End.

Ответить

Добавил в шапку. Написал, как совместный. Надеюсь никого этим не обидел.

Ответить

program series23;
var
n,s:integer;
z1,z2:real;
Zub:boolean;
begin
  s:=2;
  write('N: ');
  readln (n);// количество значений в последовательности
  writeln ('вещественное число: ');
  readln (z1);// 1 значение
  writeln ('вещественное число: ');
  readln (z2);// 2 значение
  if (z1<z2) then zub:=true else zub:=false;// начальное направление зуба
 for var i:= 3 to n do
  begin
    writeln ('вещественное число: ');
    readln (z1); // 3е и последующие значения
    if ((z2>z1) and (zub = true)) or ((z2<z1) and (zub=false))
    then 
    begin if zub=true then zub:=false else zub:=true end // меняем направление зуба с каждым смещением чисел
    else begin write (s); exit; end; //или выводим на шаг на котором обрывается последовательность
    s:=s+1;
    z2:=z1; // переменная для сравнения с последущей
  end;
  write (0);
  end.

program series23;

var

n,s:integer;

z1,z2:real;

Zub:boolean;

begin

s:=2;

write('N: ');

readln (n);// количество значений в последовательности

writeln ('вещественное число: ');

readln (z1);// 1 значение

writeln ('вещественное число: ');

readln (z2);// 2 значение

if (z1<z2) then zub:=true else zub:=false;// начальное направление зуба

for var i:= 3 to n do

begin

writeln ('вещественное число: ');

readln (z1); // 3е и последующие значения

if ((z2>z1) and (zub = true)) or ((z2<z1) and (zub=false))

then

begin if zub=true then zub:=false else zub:=true end // меняем направление зуба с каждым смещением чисел

else begin write (s); exit; end; //или выводим на шаг на котором обрывается последовательность

s:=s+1;

z2:=z1; // переменная для сравнения с последущей

end;

write (0);

end.

Ответить

program series23;
var
n,s:integer;
z1,z2:real;
Zub:boolean;
begin
  s:=2;
  write('N: ');
  readln (n);// количество значений в последовательности
  writeln ('вещественное число: ');
  readln (z1);// 1 значение
  writeln ('вещественное число: ');
  readln (z2);// 2 значение
  if (z1<z2) then zub:=true else zub:=false;// начальное направление зуба
 for var i:= 3 to n do
  begin
    writeln ('вещественное число: ');
    readln (z1); // 3е и последующие значения
    if ((z2>z1) and (zub = true)) or ((z2<z1) and (zub=false))
    then 
    begin if zub=true then zub:=false else zub:=true end // меняем направление зуба с каждым смещением чисел
    else begin write (s); exit; end; //или выводим на шаг на котором обрывается последовательность
    s:=s+1;
    z2:=z1; // переменная для сравнения с последущей
  end;
  write (0);
  end.

program series23;

var

n,s:integer;

z1,z2:real;

Zub:boolean;

begin

s:=2;

write('N: ');

readln (n);// количество значений в последовательности

writeln ('вещественное число: ');

readln (z1);// 1 значение

writeln ('вещественное число: ');

readln (z2);// 2 значение

if (z1<z2) then zub:=true else zub:=false;// начальное направление зуба

for var i:= 3 to n do

begin

writeln ('вещественное число: ');

readln (z1); // 3е и последующие значения

if ((z2>z1) and (zub = true)) or ((z2<z1) and (zub=false))

then

begin if zub=true then zub:=false else zub:=true end // меняем направление зуба с каждым смещением чисел

else begin write (s); exit; end; //или выводим на шаг на котором обрывается последовательность

s:=s+1;

z2:=z1; // переменная для сравнения с последущей

end;

write (0);

end.

Ответить

//pascalABC.net
begin
  var n:=ReadlnInteger('введите n>2: n = ');
  write('введите ',n,' чисел: ');
  var a:=ReadArrReal(n);
  var (i,k):=(1,1);
  if a[0]>a[1] then a.Transform(t->t*(-1));
  while i<n do
    if k*a[i-1]<k*a[i] then
    begin
      inc(i);
      k*=-1;
    end
    else break;
  i:=i=n?0:i+1;
  write(i);
  readln;readln;
end.

//pascalABC.net

begin

var n:=ReadlnInteger('введите n>2: n = ');

write('введите ',n,' чисел: ');

var a:=ReadArrReal(n);

var (i,k):=(1,1);

if a[0]>a[1] then a.Transform(t->t*(-1));

while i<n do

if k*a[i-1]<k*a[i] then

begin

inc(i);

k*=-1;

end

else break;

i:=i=n?0:i+1;

write(i);

readln;readln;

end.

Ответить

//pascalABC.net
begin
  var n:=ReadlnInteger('введите n>2, n =');
  write('введите набор из ',n,' чисел: ');
  var a:=ReadArrReal(n);
  a:=a.Pairwise.Select(t->t[0]-t[1]).ToArray;
  var i:=1;
  while i<a.Count do
    if a[i-1]*a[i]<0 then inc(i)
    else break;
  i:=i=a.Count?0:i+2;
  write(i)
end.

//pascalABC.net

begin

var n:=ReadlnInteger('введите n>2, n =');

write('введите набор из ',n,' чисел: ');

var a:=ReadArrReal(n);

a:=a.Pairwise.Select(t->t[0]-t[1]).ToArray;

var i:=1;

while i<a.Count do

if a[i-1]*a[i]<0 then inc(i)

else break;

i:=i=a.Count?0:i+2;

write(i)

end.

Ответить

Bronislav

27.02.2018 в 16:38

11 строка неправильное присвоение, должно быть так:

if i=a.Count then i:=0 else if a[0]=0 then i:=i+1 else i+=2;

1
2
3

if i=a.Count then i:=0
else if a[0]=0 then i:=i+1
else i+=2;

Ответить

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

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

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

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