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

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Указатели

Автор: mjey 22.05.2004 22:41

type ref = ^integer;
vector = array[1..17] of ref;
Описать функция min(x) для нахождения наименьшего из чисел, на которые ссылаются элементы вектора x.

Автор: APAL 23.05.2004 0:05

Посмотри здесь: http://pascal.net.ru/forum/index.php?showtopic=2146&hl=vector

Похоже вы из одного класса или группы. Или училка одна и та же! smile.gif

Автор: Catty 23.05.2004 5:40

а по-моему это один и тот же человек! rolleyes.gif

Автор: HelpAusHeaven 23.05.2004 6:45

APAL
...Или преподsmile.gif

Так что эту задачу никто так и не сделал что ли?

Автор: APAL 23.05.2004 13:26

HelpAusHeaven
Просто задачка слишко простая... smile.gif
Если бы было желание, то за учебный год давно можно было бы разобраться!
А вот год прошел, наступила сессия и люди начинают понимать, что они все просто пропускали мимо ушей.
Чтобы решить данную задачку достаточно взять какой нибудь учебный материал, найти нужный раздел и даже не очень разбираясь в TP, накатать прогу(-льку) строк эдак на 10-15...

К чему я все это?
Я патыюсь сказать, что приложив минимум усилий задачу можно решить самому!

Автор: virt 23.05.2004 19:29

Код
function min(x:vector):integer;
var i,j:integer;
begin
  j:=1;
  for i:=1 to 17 do if (x[i]^<x[j]^) then j:=i;
  min:=j;
end;


7 строчек.