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

Автор: Bronislav

Bronislav — Sun, 22 Jul 2018 08:21:07 +0000

Программа в шапке работает не правильно, в случае с массивом, например (2,2,2) выведет 3 — номер последнего. Если while надо проверять i

if i <> n then Writeln(i)
else if a[i] < a[i - 1] then writeln(i)
//else writeln('no minimums')

if i <> n then Writeln(i)

else if a[i] < a[i - 1] then writeln(i)

//else writeln('no minimums')

Автор: olegst1975

olegst1975 — Wed, 16 Mar 2016 12:25:50 +0000

В ответ на Anton. К сожалению, да. Тут и в некоторых задачах дальше проигнорил возможность повторов чисел. Переделав - получил обычное решение только с for. Тоже и с Array33.

Автор: Anton

Anton — Thu, 10 Mar 2016 05:15:09 +0000

В ответ на olegst1975. Идея хорошая, но не подходит под условия задачи: массив: 5 4 3 3 3 4 5 этот алгоритм покажет, что локальный минимум есть, а на самом деле его нет: "локальный минимум — это элемент, который меньше любого из своих соседей"

Автор: olegst1975

olegst1975 — Wed, 09 Mar 2016 19:49:46 +0000

Первый локальный минимум — первый элемент, который меньше следующего, поэтому лишь одно условие в сравнении. Минимум по умолчанию равен N на случай если массив монотонно убывающий и сравнение не сработает.

[crayon-694e8ac3c48d7587983117 inline="true" ]
var
  n,i,min:integer;  
  a:array [1..10]of real;
begin  
  read(n);
  for i:=1 to n do read(a[i]);
  min:=n;      
  for i:=1 to n-1 do if a[i]<a[i+1] then if min=n then min:=i;    
  write(min);    
end.

[crayon-694e8ac3c48d7587983117 inline="true" ]

var

n,i,min:integer;

a:array [1..10]of real;

begin

read(n);

for i:=1 to n do read(a[i]);

min:=n;

for i:=1 to n-1 do if a[i]<a[i+1] then if min=n then min:=i;

write(min);

end.

[/crayon]

Автор: Anton

Anton — Wed, 09 Mar 2016 06:17:33 +0000

Поправил. Переписал на while, а то не понятно как проверять последний элемент.
Было:

program Array32;
var
  a:array[1..10] of integer;
  N,i,num:Integer;

begin
  Write('N: ');
  Readln(N);
  for i:=1 to N do
   begin
    write(i,' :');
    readln(a[i]);
   end;

  for i:=2 to N-1 do
  if (a[i-1]>a[i]) and (a[i]<a [i+1]) then
   begin
    writeln(i);
    break;
   end;
end.

program Array32;

var

a:array[1..10] of integer;

N,i,num:Integer;

begin

Write('N: ');

Readln(N);

for i:=1 to N do

begin

write(i,' :');

readln(a[i]);

end;

for i:=2 to N-1 do

if (a[i-1]>a[i]) and (a[i]<a [i+1]) then

begin

writeln(i);

break;

end;

end.

Стало:

program Array32;
var
  a:array[1..10] of integer;
  N,i:Integer;

begin
  Write('N: ');
  Readln(N);
  for i:=1 to N do
   begin
    write(i,' :');
    readln(a[i]);
   end;

  i:=2;
  if a[1]<a [2] then writeln('1')
  else
   begin
    while (i<=N-1) and (not((a[i-1]>a[i]) and (a[i]</a><a [i+1]))) do
     inc(i);
    Writeln(i);
  end;
end.

program Array32;

var

a:array[1..10] of integer;

N,i:Integer;

begin

Write('N: ');

Readln(N);

for i:=1 to N do

begin

write(i,' :');

readln(a[i]);

end;

i:=2;

if a[1]<a [2] then writeln('1')

else

begin

while (i<=N-1) and (not((a[i-1]>a[i]) and (a[i]</a><a [i+1]))) do

inc(i);

Writeln(i);

end;

end.

Автор: olegst1975

olegst1975 — Tue, 08 Mar 2016 15:34:02 +0000

Необходимо рассмотреть и случай когда минимумом является первый или последний элементы