Считая, что в таблице записи имеют различные ключи

@vladya · Регистрация: 19.01.2010

Author24 — интернет-сервис помощи студентам

. const n=300;
type запись=record ключ:integer;
тело:array [1.99] of `a`..`z`
end;
таблица=array [1..n] of запись;
Считая, что в таблице записи имеют различные ключи, опи-
сать процедуру упор(Т), упорядочивающую записи таблицы Т
по возрастанию их ключей.
+ Блок схема

@Snoopy · 19.01.2010, 21:43

Pascal

const nmax:=100;
type rec=record;
     name:string[15];
     area:integer;
    end;
Table=array[1..nmax] of rec;
.....
procedure Sort(var T:Table; n:integer);
var i,imin,j:integer;
     tmp:rec;
begin
for i:=1 to n-1 do
begin
 imin:=i;
 for j:=i+1 to n do
  if t[j].area<t[imin].area then
   imin:=j;
if imin<>i then
begin
tmp:=t[i];
t[i]:=t[imin];
t[imin]:=tmp;
end;
end;
end;

не компилировалось

@vladya · 19.01.2010, 21:49 **[ТС]**

спасибо ребята =) да я еще новичок

=( но просто посмотреть на сколько я прав был =) спасибо огромное!

@vladya 2 / 2 / 0 Регистрация: 19.01.2010 Сообщений: 25
		1
	Считая, что в таблице записи имеют различные ключи 19.01.2010, 21:31. Показов 1586. Ответов 2 Метки нет (Все метки) . const n=300; type запись=record ключ:integer; тело:array [1.99] of `a`..`z` end; таблица=array [1..n] of запись; Считая, что в таблице записи имеют различные ключи, опи- сать процедуру упор(Т), упорядочивающую записи таблицы Т по возрастанию их ключей. + Блок схема 0

@vladya 2 / 2 / 0 Регистрация: 19.01.2010 Сообщений: 25
	19.01.2010, 21:49 [ТС]	3
	спасибо ребята =) да я еще новичок =( но просто посмотреть на сколько я прав был =) спасибо огромное! 0

Считая, что в таблице записи имеют различные ключи

Решение