работа с посыланием

[sv2311]

подскажите пожалуйста код с посыланием к задаче - В массиве из n чисел найти наименьшое четное число! пожалуйста

[PAV]

Я не понимаю, что такое "код с посыланием", ну да ладно.

В чем конкретно проблема - придумать алгоритм или запрограммировать его (и на каком языке, кстати?). Учтите, что задача наипростейшая, а такие здесь за других решать не принято.

[AlexDem]

Если это Паскаль, то такого термина я там не помню...

[sv2311]

ну типа в задании написано - нужно зделать програму при помощи посыланий(ну или указаний)

[AlexDem]

Может работа со ссылками имеется в виду? Что-то типа "myvar^.next"? Тогда достаточно синтаксис посмореть.

[sv2311]

ну типа в оглашении пишем
type
massiv=array[1..100] of integer;
....
var
a:^massiv; ).....и так само делаем вычисление в программе

[AlexDem]

А, ну значит так оно и есть - работа со ссылками. Там вроде придётся использовать new для выделения памяти, dispose - для освобождения. Доступ к элементам - тоже через стрелку. Можете ориентироваться на вот этот пример:

   {Динамическое выделение памяти с использованием функций New и
    Dispose.}
    program Sample;

    type
      pntr = ^RecType;
      RecType = array[1..40] of integer;
    var
      p: pntr;
      t: integer;

    begin
      New(p);
      for t: = 1 to 40 do p^[t]: = t*2;
      for t: = 1 to 40 do Write(p^[t], ' ');
      WriteLn;
      Dispose(p);
    end.

А алгоритм поиска минимального элемента уж составите сами. Чётные и нечётные различает вроде функция odd.

[sv2311]

спасибо

[luitzen]

sv2311 в сообщении #195630 писал(а):

ну типа в оглашении пишем…

AlexDem в сообщении #195634 писал(а):

Dispose(p);

Оглашеннии, изыдите .

[sv2311]

program l_22;
uses crt;
var a,chet:array [1..100] of integer;
i,k,min,n:integer;
begin
clrscr;
writeln('Введите количество элементов маcсива');readln(n);
for i:=1 to n do
begin
write('a[',i,']='); read(a[i]);end;
k:=0;
for i:=1 to n do
begin
if a[i] mod 2=0
then
begin
k:=k+1;
chet[k]:=a[i];
min:=chet[1];
for i:=2 to n do
if chet[k]<min then min:=chet[k];
writeln('min=',min);
readkey;
end;end;
end.
как его переделать под эти указатели? - помогите плиз((

[AlexDem]

А что осталось непонятным? Откройте учебник или лекции и посмотрите... Вместо a[i] пишете a^[i], это означает "взять из указателя a адрес и по нему взять i-тый элемент типа integer". И не забыть выделить и освободить память - это всё.

А Вашу программу я бы упростил - массив chet там не нужен. Подойдёт обычная программа поиска минимума с дополнительным условием if a[i] mod 2=0 (ну или функцией odd вместо a[i] mod 2). Только надо не забыть, что чётных чисел в массиве может и не быть.

[sv2311]

спасибо,но я уже и так здал и вместе с масивом chet!

Добавлено спустя 2 минуты 54 секунды:

вот так выглядит прога,просто я думал что с указателями будет программа намного масовей,а так она простая
program l_22;
uses crt;
type massiv=array [1..100] of integer;
var a,chet:^massiv;
i,k,min,n:integer;
begin
clrscr;
writeln('Введите количество элементов маcсива');readln(n);
for i:=1 to n do
begin
write('a[',i,']='); read(a^[i]);end;
k:=0;
for i:=1 to n do
begin
if a^[i] mod 2=0
then
begin
k:=k+1;
chet^[k]:=a^[i];
write(chet^[k], ' ');
end;
end;
min:=chet^[1];
for k:=2 to n do
if chet^[k]<min then min:=chet^[k];
writeln('min=',min);
readkey;
end.

[AlexDem]

На месте компьютера я бы завис...