Показать сообщение отдельно
Старый 03.06.2014, 14:26   #4 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,976
Сказал(а) спасибо: 322
Поблагодарили 542 раз(а) в 183 сообщениях
Репутация: 102185
По умолчанию

Знаете... я в некоторой растерянности. Потому что сколько имею дело с Паскалем, но такого, чтобы имя внешней функции загонять в список формальных параметров процедуры - не видел. Кто-то из нас, либо я, либо Ваши преподы, того...
Ну ладно, а не хотите рассмотреть такой вариант (функцию нужно задать отдельно):
Код:
Procedure Razd(var a:Vect; m:byte; var k:byte);
var:
 i,p,q:byte;
 b,c:Vect;
begin
 p:=0;
 q:=0;
 for i:=1 to m do
  if F(a[i])<0 then
   begin
    Inc(p);
    b[p]:=a[i];
   end;
  else
   begin
    Inc(q);
    c[q]:=a[i];
   end;
 for i:=1 to p do a[i]:=b[i];
 for i:=1 to q do a[p+i]:=c[i];
 k:=p+1;
end;
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S на форуме   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070