Версия для печати темы

Автор: aspi 24.05.2008 0:12

Привет! Помогите мне пожалуйста справиться с заданием
Задание такое:
Объявить массив из 15 указателей на элементы типа real. Используя генератор случайных чисел разместить в динамической памяти 15 вещественных чисел. В подпрограмме-функции найти максимальный элемент и вернуть из функции поиска указатель на найденное значение.

В данном случае не получается организовать функцию, как передать правильно параметры? Вот код без функции:

program ukazat;
const n=15;
var
  r : array [1..n] of ^real;
  i : integer;
  a : Preal;

	 begin
	 Randomize;
	  for i := 1 to n do
	  begin
		New(r[ i ]);
		r[ i ]^ := random(n);
		writeln (r[ i ]^:2 :0);
	  end;


	   for i:=1 to n do
		begin
		 if r[ i ]^ > r[i+1]^ then
		 begin
		 a^:=r[ i ]^;
		 r[ i ]^:=r[i+1]^;
		 r[i+1]^:=a^;
		 end;
		 end;

	 writeln('Указатель на максимальный элемент: ',a^:2 :0);
	 for i := 1 to n do Dispose(r[ i ]);
	 readln;
end.

А это рекурсия - таже трабла не разобраться с функцией :-(

Напишите рекурсивную функцию, которая возвращает среднее из n элементов массива чисел

program recurs;
const n=5;
var
   summ,i,j:integer;
   mass: array [1..n] of integer;
{---------------------------------------}
function frst(summ:integer):integer;
begin
       for i:=1 to n do
       begin
       frst:=frst(summ)+mass[ i ];
       end;
end;
{---------------------------------------}
begin
     writeln ('Введите элементы массива');
     for i:=1 to n do
         readln(mass[ i ]);
         frst(summ);
     i:=frst(summ);
     writeln ('Среднее арифметическое ',n,' чисел= ',i);
     readln;
end.

Буду очень рад, хотя бы намеку. Спасибо!

Автор: klem4 24.05.2008 0:27

во-первых:

во-вторых зачем сортируешь массив ? Максимум можно найти намного проще:

maxi := 1;
for i := 2 to n do
 if r[i]^ > r[maxi]^ then
  maxi := i;

// теперь максимальный элемент r[maxi]^

Автор: aspi 24.05.2008 19:48

Спасибо. А как оформить процедуру, пытаюсь - всё зацикливается...

Автор: volvo 24.05.2008 20:00

Ты бы показал, как пытался сделать...

Автор: aspi 9.06.2008 23:24

Вот мои попытки над рекурсией, с процедурами и функциями совсем туго.

program recurs;
 const n=5;
var
   summa,i,j,m:integer;
   mass: array [1..n] of integer;
{---------------------------------------}
procedure frst(summ:integer);
  begin
    summ:=summa-5;
    frst(summ);
  end;
{---------------------------------------}
begin
     writeln ('Введите элементы массива');
     for i:=1 to n do
      begin
         readln(mass[i]);
         summa:=summa+i;
      end;
         frst(summa);
          writeln ('Среднее арифметическое ',n,' чисел= ',summa);
     readln;
end.
 

А вот попытки с указателем:

program ukazat;
const n=15;
type
Preal=^real;

var
  r : array [1..n] of ^real;
  i : integer;
  a : Preal;
  z : Preal;


function poisk (var b:array of real):Preal;
 begin
  for i:=low(b) to high(b) do

       begin
         if r[i]^ > r[i+1]^ then
         begin
         a:=r[i]^;
         end;
         poisk:=@a;
         exit
         end;

 end;

     begin
     Randomize;
      for i := 1 to n do
      begin
        New(r[i]);
        r[i]^ := random(n);
        writeln (r[i]^0);
      end;

poisk(?);

     writeln('Указатель на максимальный элемент: ',a^0);
     for i := 1 to n do Dispose(r[i]);
     readln;
end.

Автор: volvo 9.06.2008 23:44

Смотри:

program ukazat;
const
  n = 15;
type
  preal = ^real;


function poisk (var b:array of preal):Preal; { <--- Первая ошибка - нужно "array of PREAL" }
var i, max_i: integer;
begin
  max_i := low(b);
  for i := low(b) to high(b) do
    if b[i]^ > b[max_i]^ then max_i := i; { обычный поиск максимума }
  poisk:=b[max_i];
end;

var
  r: array [1 .. n] of preal;
  i: integer;
  a: preal;

begin
  randomize;
  for i := 1 to n do begin
    new(r[i]);
    r[i]^ := random(n);
    writeln (r[i]^: 2: 0);
  end;

  a := poisk®; { <--- Ну, и вызов ... }
  writeln('Максимальный элемент: ',a^: 2: 0);

  for i := 1 to n do Dispose(r[i]);
  readln;
end.

Это имелось в виду?

Автор: aspi 10.06.2008 14:31

Да! Спасибо всё работает! не допечатал 2 слова....

С рекурсией сейчас попробую разобраться, там в процедуре
summ:=summa-5; вместо -5 надо поставить /n, но пишет о несовпадении типов...?

Автор: volvo 10.06.2008 14:48

Правильно делает: деление всегда возвращает результат вещественного типа, а попытка присвоить его целочисленной переменной карается сообщением об ошибке... Вот так будет лучше:

{---------------------------------------}
function frst(var a: array of integer; i: integer): real;
  begin
    if pred(i) > high(a) then frst := 0
    else frst := frst(a, i + 1) + a[i - 1] / n;
  end;
{---------------------------------------}
var summa: real; { <--- Внимательнее с типами !!! }

  { Вызывать - так: }
  summa := frst(mass, 1);