программа с процедурами

[Serge_Bliznykov]

Poma][a, в процедуре Ones не будут (по крайней мере, НЕ ДОЛЖНЫ) использоваться глобальные c, t1 и m, там будут использоваться только a, n, t

to BDA
я новичкам (да и не только) всегда рекомендую описывать переменные ПОСЛЕ блока функций и процедур:

type
  mas = array [1..50] of real;

procedure Ones(const a: mas; const n: integer; var t: Byte);
begin
  ...
end;

var
  c: mas;
  t1: byte;
  m: integer;
begin
  ...
  Ones(c, m, t1);
  writeln(t1);
end.

это позволит избежать ошибок использовать глобальных переменных в процедурах/функциях! (компилятор их "не увидит" в процедурах/функциях, т.к. они описаны ниже).

[Naive]

Сообщение от Serge_Bliznykov

это позволит избежать ошибок использовать глобальных переменных в процедурах/функциях! (компилятор их "не увидит" в процедурах/функциях, т.к. они описаны ниже).

А так разве увидит? О_о
т.е. я прально понял, что если объявить так (JS, пардон)

var a=1,b=2,c=3;
function m(a,t,q) {
};

то в функцию m передастся автоматом значение a?
// давно не общался с паскалем, видимо)

[Poma][a]

то в функцию m передастся автоматом значение a?

Нет.
Но если Вы сначала объявите глобальные переменные

var
     a : Integer;

То из любой проц\функ. Вы сможете обращаться и изменять значение этой переменной.

[Вадим Мошев]

Если я не ошибаюсь, в JS, внутри функции, переменная не будет видна вообще, если она там не объявлена. То есть,

var T = 9;
function inc () {
T++;
return T;
};
inc();

При выполнении такого кода, T не будет равно 10 (могу ошибаться, конечно). На Паскале же всё будет иначе:

var T: integer; {а где-то в программе мы присваиваем этой переменной 9}

function increment: integer;
begin
inc(T);
increment:=T;
end;

begin
T:=9;
T:=increment;
{теперь T равно 10}
end

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

[Naive]

При выполнении такого кода, T не будет равно 10 (могу ошибаться, конечно).

В JS -- будет...

>>> var T = 9; function inc () { T++; return T; }; inc();
10
>>> T
10

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

Да запросто...

(function(){
var a = 1,
    b=2;
this.b = b; // b стала глобальной в обычном режиме (не strict mode, в нем будет ошибка, если не задан контекст).
window.b = b; // b стала глобальной
})();

[Прокурор]

Сообщение от Serge_Bliznykov

Poma][a, в процедуре Ones не будут (по крайней мере, НЕ ДОЛЖНЫ) использоваться глобальные c, t1 и m, там будут использоваться только a, n, t

to BDA
я новичкам (да и не только) всегда рекомендую описывать переменные ПОСЛЕ блока функций и процедур:

type
  mas = array [1..50] of real;

procedure Ones(const a: mas; const n: integer; var t: Byte);
begin
  ...
end;

var
  c: mas;
  t1: byte;
  m: integer;
begin
  ...
  Ones(c, m, t1);
  writeln(t1);
end.

это позволит избежать ошибок использовать глобальных переменных в процедурах/функциях! (компилятор их "не увидит" в процедурах/функциях, т.к. они описаны ниже).

а вот в самой процедуре, что мне нужно описать?

[BDA]

Нужен цикл от 2 до n, проверяющий элементы на убывание (a[i - 1] > a[i]).

[Прокурор]

Сообщение от BDA

Нужен цикл от 2 до n, проверяющий элементы на убывание (a[i - 1] > a[i]).

procedure proc(a:mas;n:byte;var t:byte);
var i:byte;
begin
t:=1;
i:=1;
while(i<n)and(t=1)do
if a[i+1]>=a[i] then t:=0
else i:=i+1;
end;

вот такой?

[BDA]

procedure Ones(const a: mas; const n: integer; var t: Byte);
var
  i: byte;
begin
  t := 1;
  i := 1;
  while (i < n) and (t = 1) do
    if a[i] <= a[i + 1] then
      t := 0
    else
      inc(i);
end;

Да, вроде, все правильно.

[Прокурор]

Сообщение от BDA

procedure Ones(const a: mas; const n: integer; var t: Byte);
var
  i: byte;
begin
  t := 1;
  i := 1;
  while (i < n) and (t = 1) do
    if a[i] <= a[i + 1] then
      t := 0
    else
      inc(i);
end;

Да, вроде, все правильно.

спасибо))буду думать дальше)