Логическая функция Опции

[SeRGuS]

Описать логическую функцию, проверяющую упорядочены ли по возрастанию или убыванию элементы массива.

Проверьте где я допустил ошибку.

Код

uses crt;
const n=5;
type mass= array[1..n] of integer;
var a:mass;
   i:integer;
   p: boolean;

function yp(a:mass):boolean;
var i: integer;
    p:boolean;
begin
 p:=false;
  for  i:=1 to n-1 do
   if (a[i] > a[i+1]) or (a[i] < a[i+1]) then p:=true;
 yp:=p;
end;

begin
clrscr;
for i:=1 to n do begin
    write ('a[',i,']=');
    read (a[i]); end;

if yp(a) then writeln('упоряд.')
      else writeln('не упоряд.');
end.

[xds]

Код

if (a[i] > a[i+1]) or (a[i] < a[i+1]) then p:=true;

Надо проверять условия возрастания/убывания отдельно:

Код

{ ... }
p1 := True;
p2 := True;
for i := 1 to n - 1 do
 begin
   p1 := p1 and (a[i] > a[i + 1]);
   p2 := p2 and (a[i] < a[i + 1]);
 end;
yp := p1 or p2;
{ ... }

[SHnur]

Я бы сделал что-то вроде такого.

Код

uses crt;
const n=5;
type mass= array[1..n] of integer;
var a:mass;
  i:integer;

function MintoMax(a:mass):boolean;
var i: integer;
   p:boolean;
begin
 p:=false;
 for  i:=1 to n-1 do
  if (a[i] < a[i+1]) then p:=true
  else begin
  p:=false;
  exit;
  end;

  MinToMax:=p;
end;

function MaxToMIn(a:mass):boolean;
var i: integer;
   p:boolean;
begin
p:=false;
 for  i:=1 to n-1 do
  if (a[i] > a[i+1]) then p:=true
  else begin
  p := false;
  exit;
  end;
  MaxToMIn:=p;
end;

begin
clrscr;
for i:=1 to n do begin
   write ('a[',i,']=');
   read (a[i]); end;

if (mintomax(a) or maxtomin(a)) then writeln('упоряд.')
     else writeln('не упоряд.');
end.

Сообщение отредактировано: SHnur - 16.01.2005 16:09

[Altair]

И не работает.

Код

yp:=p;

заменить на

Код

MixnoMax:=p;

кстати может все-таки MinToMax ?

[SHnur]

Вот так
а там ведь главное принцип ) Просто лень было Паскаль пускать для теста ..

[xds]

Можно и так... Только если совсем-совсем одну функцию надо... ;) :D

[SHnur]

xds , конечно .. так как у тебя , намного проще ;)

[xds]

Не факт (не для всех проще). Встречал много людей, которые очень удивлялись, увидев присвоение логической переменной результата логического же выражения

[SHnur]

помоему ещё чаше люди удивляются применению логичиских операторов к численым значениям ;))
у меня самого долго в голове не уеладывалось "как ?" ;)

Сообщение отредактировано: SHnur - 16.01.2005 16:05

[Altair]

SHnur,
А работает-то не правильно
вот "текстовый скришот":

a[1]=1
a[2]=3
a[3]=2
a[4]=5
a[5]=6
упоряд.

так что в алгоритме ошибка.

[xds]

В котором?

[SHnur]

Oleg_Z , так точно должно работать ! Проверь ;)

[Altair]

Я бы сделал что-то вроде такого.

Код

uses crt;
const n=5;
type mass= array[1..n] of integer;
var a:mass;
  i:integer;

function MintoMax(a:mass):boolean;
var i: integer;
   p:boolean;
begin
 p:=false;
 for  i:=1 to n-1 do
  if (a[i] < a[i+1]) then p:=true
  else begin
  p:=false;
  exit;
  end;

  MinToMax:=p;
end;

function MaxToMIn(a:mass):boolean;
var i: integer;
   p:boolean;
begin
p:=false;
 for  i:=1 to n-1 do
  if (a[i] > a[i+1]) then p:=true
  else begin
  p := false;
  exit;
  end;
  MaxToMIn:=p;
end;

begin
clrscr;
for i:=1 to n do begin
   write ('a[',i,']=');
   read (a[i]); end;

if (mintomax(a) or maxtomin(a)) then writeln('упоряд.')
     else writeln('не упоряд.');
end.

вот результат.

a[1]=1
a[2]=3
a[3]=2
a[4]=5
a[5]=6
упоряд.

НЕ РАБОТАЕТ!

[SHnur]

Oleg_Z , я отредактировал его ! Посмотри заново !

Код

uses crt;
const n=5;
type mass= array[1..n] of integer;
var a:mass;
 i:integer;

function MintoMax(a:mass):boolean;
var i: integer;
  p:boolean;
begin
p:=false;
for  i:=1 to n-1 do
 if (a[i] < a[i+1]) then p:=true
 else begin
    MinToMax:=false;
    exit;
 end;

 MinToMax:=p;
end;

function MaxToMIn(a:mass):boolean;
var i: integer;
  p:boolean;
begin
p:=false;
for  i:=1 to n-1 do
 if (a[i] > a[i+1]) then p:=true
 else begin
 MaxToMIn := false;
 exit;
 end;
 MaxToMIn:=p;
end;

begin
clrscr;
for i:=1 to n do begin
  write ('a[',i,']=');
  read (a[i]); end;

  writeln( (mintomax(a) or maxtomin(a)));
  readkey;
end.

Сообщение отредактировано: SHnur - 16.01.2005 16:18

[Altair]

так хорошо

[SHnur]

Oleg_Z , я думал просто , что exit выходит только из цикла а не из всей функции ... оэтому не хотело работать ;)

Индюк тоже думал, да в суп попал проверять надо!

Сообщение отредактировано: Oleg_Z - 16.01.2005 16:30

[volvo]

Просто лень было Паскаль пускать для теста ..

Вот и напрасно. В следующий раз читай правила, я ведь просил проверять программы перед тем, как их постить.


Согласен, я сейчас вынесу это в основные правила!

Сообщение отредактировано: Oleg_Z - 16.01.2005 16:34

[SHnur]

ОК ! Без проверки небуду кидать ! :p2:

[APAL]

думал просто , что exit выходит только из цикла а не из всей функции ...

Break; - прерывает цикл, а exit; выходит из подпрограмм

[SHnur]

APAL , спасибо за информацию !

а в HELP залезть было слабо?
Break -Прерывает операторы циклов For, While или Repeat.
Exit - Немедленно выходит из текущего блока программы.
Halt - Останавливает выполнение программы и выходит в операционную систему.

Сообщение отредактировано: Oleg_Z - 16.01.2005 17:11