type ref = ^integer;
vector = array[1..17] of ref;
Описать функция min(x) для нахождения наименьшего из чисел, на которые ссылаются элементы вектора x.
Полная версия: Указатели
Посмотри здесь: http://pascal.net.ru/forum/index.php?showt...=2146&hl=vector
Похоже вы из одного класса или группы. Или училка одна и та же!
Похоже вы из одного класса или группы. Или училка одна и та же!
а по-моему это один и тот же человек! 
APAL
...Или препод
Так что эту задачу никто так и не сделал что ли?
...Или препод
Так что эту задачу никто так и не сделал что ли?
HelpAusHeaven
Просто задачка слишко простая...
Если бы было желание, то за учебный год давно можно было бы разобраться!
А вот год прошел, наступила сессия и люди начинают понимать, что они все просто пропускали мимо ушей.
Чтобы решить данную задачку достаточно взять какой нибудь учебный материал, найти нужный раздел и даже не очень разбираясь в TP, накатать прогу(-льку) строк эдак на 10-15...
К чему я все это?
Я патыюсь сказать, что приложив минимум усилий задачу можно решить самому!
Просто задачка слишко простая...
Если бы было желание, то за учебный год давно можно было бы разобраться!
А вот год прошел, наступила сессия и люди начинают понимать, что они все просто пропускали мимо ушей.
Чтобы решить данную задачку достаточно взять какой нибудь учебный материал, найти нужный раздел и даже не очень разбираясь в TP, накатать прогу(-льку) строк эдак на 10-15...
К чему я все это?
Я патыюсь сказать, что приложив минимум усилий задачу можно решить самому!
Код
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;
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 строчек.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.