Turbo Pascal

[dreamer]

Это лучше всего сделать "Красно-черными деревьями". Cris, не надо сразу человека посылать. Можно просто попытаться помочь.
S-DIMAN - Копай в сторону красно-черных деревьев. Ибо с массивами возникает проблема контейнеризации содержимого. Ну вобщем скажу так(мое лично мнение). Задача с самодельной структурой БД уже мертва на своем корню. Функционал от нее будет при полугоде-годе долизывания. Почему не юзать MySQL, PostgreSQL?

А почему именно красно-черные деревья? Чем вас не устраивают обычные двоичные или простой бинарный поиск на сортированном списке индексов?

А в школу действительно достаточно типизированного файла записей. Максимум на 5+ это дополнительный файл индексов.

 

[PainKiller]

Есть у нас с тов. GrAndSe опыт по этому поводу. действительно отличный алгоритм написания и работы.

 

[Злючка]

как написать прогу??? задана матрица n-строк m-столбиков...если в строке все элементы отрицательные нужно вывести её пустой...а если нет..оставить не тронутой..

 

[SenS]

Відповідь: Turbo Pascal

for i:=1 to n do
begin
 c:=0;
 for j:=1 to m do
  if a[i,j]<0 then c:=c+1;
 if c<m then
  for j:=1 to m do
   print(a[i,j]+" ");
 println; 
end;

пжалуста...

 

[Hamster]

Да, но это не нормальный язык, тут индексы с единицы =)

 

[Cris]

Да, но это не нормальный язык, тут индексы с единицы =)

а ты с нуля начинай, в чем проблема?

 

[SenS]

Відповідь: Turbo Pascal

ну это на любителя... переделал на единицы может кому так милее:lol:

 

[Злючка]

спасиб

 

[Cris]

Re: Відповідь: Turbo Pascal

for i:=1 to n do
begin
 c:=0;
 for j:=1 to m do
  if a[i,j]<0 then c:=c+1;
 if c<m then
  for j:=1 to m do
   print(a[i,j]+" ");
 println; 
end;

пжалуста...

а разве в паскале print и println работает? может ты с С перепутал?
в паскале есть write и writeln

 

[Cris]

1-е -

You must be registered for see links

2-е какая таблица n*m?, ..побічної діагоналі.. - диагоняль из однго угла в другой?
если да эт же легко

var a:array[1..n,1..m] of integer;
      i,j,min,minrad:integer;
begin
min:=maxint;
for i:=1 to n do
for j:=m-i+1 to m do
if min>a[n,m]
 then begin min:=a[n,m]; minrad:=n; end;
end.

n- рядки
m - столбики
min - минимальный елемент
minrad - рядок с минимальным елементом

я это так представляю:
допустим есть таблица 5 5
тогда будет так:
0000х
000хх
00ххх
0хххх
ххххх
х - елементы масива справа от диагонали
ну мы сначала проходим 1 ряд от 5 до 5 елемента
потом 2 ряд от 4 до 5
3 - 3 до 5
4 - 2 до 5
5 - 1 до 5
и все)

p.s. нетестил, писал сразу здесь)