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

Автор: qwerty

qwerty — Sat, 19 Oct 2019 17:32:18 +0000

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.

Автор: я

Sat, 19 Oct 2019 17:31:04 +0000

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.

Автор: Bronislav

Bronislav — Tue, 27 Feb 2018 12:38:21 +0000

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

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

if i=a.Count then i:=0

else if a[0]=0 then i:=i+1

else i+=2;

Автор: Bronislav

Bronislav — Fri, 23 Feb 2018 11:06:11 +0000

//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

Bronislav — Fri, 23 Feb 2018 08:21:59 +0000

//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.

Автор: Anton

Anton — Tue, 11 Apr 2017 06:35:46 +0000

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

Автор: Kirk

Kirk — Sun, 09 Apr 2017 05:56:18 +0000

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

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.

Автор: Anton

Anton — Thu, 24 Dec 2015 07:40:40 +0000

В ответ на olegst1975. О нет... это слишком сложно :)

Автор: olegst1975

olegst1975 — Tue, 22 Dec 2015 07:47:33 +0000

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

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

Anton — Mon, 21 Dec 2015 12:52:16 +0000

В ответ на olegst1975. Да, понял, у меня проблема с логикой... надо вывести элемент который не является зубцом, а я вывожу элемент из за которого тот элемент не является зубцом...