Помощь - Поиск - Пользователи - Календарь
Полная версия: Указатели, рекурсия
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
aspi
Привет! Помогите мне пожалуйста справиться с заданием
Задание такое:
Объявить массив из 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
во-первых:

Цитата
for i := 1 to n do
begin
New(r[i]); // <-----


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


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

// теперь максимальный элемент r[maxi]^
aspi
Спасибо. А как оформить процедуру, пытаюсь - всё зацикливается... mega_chok.gif
volvo
Ты бы показал, как пытался сделать...
aspi
Вот мои попытки над рекурсией, с процедурами и функциями совсем туго. mega_chok.gif

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]^2.gif0);
end;

poisk(?);

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




volvo
Смотри:
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
Цитата
Это имелось в виду?


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

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


{---------------------------------------}
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);

Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.