Вопрос по Pascal

[ymhuk]

Препод брату дал задание (дословно):
"Создать пользовательскую функцию, которая для заданного числа ищет все ее делители.
С помощью этой функции искать у двух чисел ощий делитель."

Помоему препод что-то гонит как можно с помощью ф-ии найти все делители для числа,
если она может выдавать только отдельные числа, а не массив как это нужно.
Можно сделать, чтобы ф-я находила поочереди все делители, а затем сравнивать, но это не подходит по условию.

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

[Sla]

Ну почему же?
У функции могут быть и параметры, а фунция будет возращать результат поиска (нашел - не нашел)(true  or false), а все осталное в параметре.

[zubr]

Можно сделать чтобы результатом функции был заранее объявленный тип массива или связанный список.

[Alf]

"Создать пользовательскую функцию, которая для заданного числа ищет все ее делители.
С помощью этой функции искать у двух чисел ощий делитель."

Помоему препод что-то гонит как можно с помощью ф-ии найти все делители для числа,
если она может выдавать только отдельные числа, а не массив как это нужно.

Гонит однозначно, но в другом аспекте.

Конечно, можно заставить функцию найти все делители числа и сложить их в массив. Но совершенно глупо использовать эту функцию для поиска общего делителя чисел. Есть алгоритм Евклида для поиска наибольшего общего делителя (НОД), который справится с этой задачей куда быстрее, тем более что знать о его существовании просто необходимо.

С таким же успехом можно перемножать числа сложением в цикле или складывать - инкрементом.

[x77]

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

ymhuk, ну так в чём проблема-то? напиши функцию, которая возвращает массив из делителей (либо пустой массив), и дальше по двум таким массивам ищи одинаковые числа и засовывай в третий массив. результат - на экран. по-моему, всё достаточно прозрачно

[PooH]

если она может выдавать только отдельные числа

это не верно.

[Sla]

не нравятся мне конструкции
massiv := func(number);
ближе
result := func(number, massiv);

[ymhuk]

фунция будет возращать результат поиска (нашел - не нашел)(true  or false)

Вариант не подходит по заданию.

ymhuk, ну так в чём проблема-то? напиши функцию, которая возвращает массив из делителей (либо пустой массив), и дальше по двум таким массивам ищи одинаковые числа и засовывай в третий массив. результат - на экран. по-моему, всё достаточно прозрачно

я почему-то не знаю как возвратить функцией массив.  А вообще этот метод лежит на поверхности и с помощью процедуры я это уже сделал - работает идеально. 

[zubr]

я почему-то не знаю как возвратить функцией массив.  А вообще этот метод лежит на поверхности и с помощью процедуры я это уже сделал - работает идеально.

Код:

type
  MyMassiv=Array of integer;

function Exampl(param1:Integer; param2:Integer):MyMassiv;
begin
 SetLength(Result, 100);
 //..................
end;

[ymhuk]

zubr,  спасибо! Я и не знал, что это так просто. 

[Scorp__)]

не нравятся мне конструкции
massiv := func(number);
ближе
result := func(number, massiv);

Sla, не переживай, компилятор так и сделает  . А уж как это будет написано на языке высокого уровня не столь важно.