Сгенерировать случайным образом объём занимаемой памяти Z є [16;256]. В массиве RAM.MEMORY найти блок памяти (значение) RAM.MEMORI[i], который является свободным

[tara-ta-ta]

Сразу мой код:

uses CRT;

type
  RAM = record
    memory: integer;
    status: byte;
    time: byte;
    count: byte;
  end;

var
  i: integer;
  MyRAM: array [1..100] of RAM;
  z: array [1..100] of integer;

begin
  for i:=1 to 100 do begin
    z[i]:= 16 + random(261);
    write(z[i]:5);
  end; writeln;
  writeln('Исходная загруженность оперативной памяти');
  for i := 1 to 100 do
  begin
    MyRAM[i].memory := 64 + random(961);
    MyRAM[i].status := random(2);
    if MyRAM[i].status = 0 then if MyRam[i].memory<=Z[i] then textcolor (red) else textcolor (green);
    write(MyRAM[i].memory:5);
  end;
 
end.

Задание звучит так: Сгенерировать случайным образом объём занимаемой памяти Z є [16;256]. В массиве RAM.MEMORY найти блок памяти (значение) RAM.MEMORI[i], который является свободным, т.е. для него значение в массиве RAM.STATUS[i]=0, и для которого второй раз выполняется условие: RAM.MEMORI[i] ≤ Z. Для занятого блока памяти изменить статус (RAM.STATUS[i]=1).

Вроде бы как в правильном направлении иду. Но чет туплю, как сделать так, чтобы проверить, что условие выполняется второй раз?

[BDA]

uses CRT;

const
  RAMBlockCount = 100;

type
  RAM = record
    memory: array [1..RAMBlockCount] of integer;
    status: array [1..RAMBlockCount] of byte;
    time: array [1..RAMBlockCount] of byte;
    count: array [1..RAMBlockCount] of byte;
  end;

var
  i, z: integer;
  MyRAM: RAM;

begin
  clrscr;
  randomize;
  textcolor(lightgray);
  writeln('Исходная загруженность оперативной памяти');
  for i := 1 to RAMBlockCount do
  begin
    MyRAM.memory[i] := 64 + random(961);
    MyRAM.status[i] := random(2);
    MyRAM.time[i] := 1 + random(49);
    MyRAM.count[i] := 1 + random(10);
    if MyRAM.status[i] = 1 then
      textcolor(red)
    else
      textcolor(green);
    write(MyRAM.memory[i]:5);
  end;
  z := 16 + random(241);
  writeln('');
  textcolor(lightgray);
  writeln('z = ', z);
  for i := 1 to RAMBlockCount do
    if (MyRAM.status[i] = 0) and (MyRAM.memory[i] >= z) then
    begin
      MyRAM.status[i] := 1;
      break;
    end;
  textcolor(lightgray);
  writeln('Загруженность оперативной памяти после');
  for i := 1 to RAMBlockCount do
  begin
    if MyRAM.status[i] = 1 then
      textcolor(red)
    else
      textcolor(green);
    write(MyRAM.memory[i]:5);
  end;
end.

1) Изменил описание записи RAM, опираясь на описание из предыдущей темы.
2) По-моему тут ошибка в формулировке. Не "второй раз выполняется", а "выполняется второе условие".
3) Я считаю, что проверять нужно MyRAM.memory[i] >= z, то есть блок памяти не меньше, чем сохраняемый объем z.

[tara-ta-ta]

BDA, А не подскажете как сделать вот так: "Занимаемый блок памяти выделить контрастным цветом, в скобках указать оставшийся свободным объём блока."

Я делаю условие, но выводит на всех блоках оставшийся объём, а нужно только на занятых..

[BDA]

uses CRT;

const
    RAMBlockCount = 100;

type
  RAM = record
    memory: array [1..RAMBlockCount] of integer;
    status: array [1..RAMBlockCount] of byte;
    time: array [1..RAMBlockCount] of byte;
    count: array [1..RAMBlockCount] of byte;
  end;

var
  i, z, saved_block: integer;
  MyRAM: RAM;

begin
  clrscr;
  randomize;
  textcolor(lightgray);
  writeln('Исходная загруженность оперативной памяти');
  for i := 1 to RAMBlockCount do
  begin
    MyRAM.memory[i] := 64 + random(961);
    MyRAM.status[i] := random(2);
    if MyRAM.status[i] = 1 then
    begin
      MyRAM.time[i] := 1 + random(49);
      MyRAM.count[i] := 1 + random(10);
    end;
    if MyRAM.status[i] = 1 then
      textcolor(red)
    else
      textcolor(green);
    write(MyRAM.memory[i]:8);
  end;
  z := 16 + random(241);
  saved_block := -1;
  writeln('');
  textcolor(lightgray);
  writeln('z = ', z);
  for i := 1 to RAMBlockCount do
    if (MyRAM.status[i] = 0) and (MyRAM.memory[i] >= z) then
    begin
      MyRAM.status[i] := 1;
      saved_block := i;
      break;
    end;
  textcolor(lightgray);
  writeln('Загруженность оперативной памяти после');
  for i := 1 to RAMBlockCount do
  begin
    if MyRAM.status[i] = 1 then
      textcolor(red)
    else
      textcolor(green);
    if i = saved_block then
    begin
      textcolor(magenta);
      write(MyRAM.memory[i]:8, ' (', (MyRAM.memory[i] - z):5, ')');
    end else
      write(MyRAM.memory[i]:8);
  end;
end.

1) Сделал заполнение time и count только для занятых блоков.
2) Добавил вывод в скобках свободного места, но это "костыль", так как текущая реализация записи RAM поддерживает только выделение блока памяти целиком.

Вывод карты памяти с возможностью просмотра информации о любом блоке:

uses CRT;

const
    RAMbc = 100; (* RAM block count *)
    SLbc = 40; (* Screen Line block count *)

type
  RAM = record
    memory: array [1..RAMbc] of integer;
    status: array [1..RAMbc] of byte;
    time: array [1..RAMbc] of byte;
    count: array [1..RAMbc] of byte;
  end;

var
  i, z, saved_block: integer;
  cursor: integer;
  ch: integer;
  MyRAM: RAM;

begin
  randomize;
  cursor := 1;

  for i := 1 to RAMbc do
  begin
    MyRAM.memory[i] := 64 + random(961);
    MyRAM.status[i] := random(2);
    if MyRAM.status[i] = 1 then
    begin
      MyRAM.time[i] := 1 + random(49);
      MyRAM.count[i] := 1 + random(10);
    end;
  end;

  repeat
    clrscr;
    textcolor(black);
    for i := 1 to RAMbc do
    begin
      if MyRAM.status[i] = 1 then
        textbackground(red)
      else
        textbackground(green);
      if i = cursor then
        write('##')
      else
        write('  ');
    end;
    textbackground(black);
    textcolor(lightgray);
    writeln('');
    writeln(cursor, ' блок памяти');
    writeln('Объем блока: ', MyRAM.memory[cursor]);
    if MyRAM.status[cursor] = 1 then
    begin
      writeln('Статус блока: занят');
      writeln('Время нахождения в памяти: ', MyRAM.time[cursor]);
      writeln('Количество обращений: ', MyRAM.count[cursor]);
    end else
      writeln('Статус блока: свободен');

    ch := ord(readkey);
    if ch = 0 then
    begin
      ch := ord(readkey);
      case ch of
        72: if cursor - SLbc < 1 then
          cursor := RAMbc - (RAMbc - cursor) mod SLbc
        else
          cursor := cursor - SLbc;
        75: cursor := (cursor - 2 + RAMbc) mod RAMbc + 1;
        77: cursor := cursor mod RAMbc + 1;
        80: if cursor + SLbc > RAMbc then
          cursor := (cursor - 1) mod SLbc + 1
        else
          cursor := cursor + SLbc;
      end;
    end;
  until ch = 27;
end.

[tara-ta-ta]

BDA, смотри, как сделать так, чтобы синим цветом выделялись только те блоки, которые изменились, и чтобы только для них скобки писались? Сейчас в ней красятся все значения, которые <=z.

uses CRT;
const
  n = 100;
type
  RAM = record
    memory: array [1..n] of integer;
    status: array [1..n] of byte;
    time: array [1..n] of byte;
    count: array [1..n] of byte;
  end;
var
  i, z, a: integer;
  MyRAM: RAM;
begin
  TEXTCOLOR(WHITE);
  writeln('Исходная загруженность оперативной памяти');
  for i := 1 to n do
  begin
    MyRAM.memory[i] := 64 + random(961);
    MyRAM.status[i] := random(2);
    MyRAM.time[i] := 1 + random(49);
    MyRAM.count[i] := 1 + random(10);
    if MyRAM.status[i] = 1 then
      textcolor(red)
    else
      textcolor(green);
    write(MyRAM.memory[i]:5);
  end;
  writeln;
  TEXTCOLOR(WHITE);
  writeln('Массив STATUS');
  for i := 1 to 100 do
  begin
    if MyRAM.status[i] = 1 then textcolor(red) else textcolor(green);
    write( MyRAM.status[i]:5);
  end;
  writeln;
  z := 16 + random(241);
  writeln('');
  TEXTCOLOR(WHITE);
  writeln('z = ', z);
  writeln;
  for i := 1 to n do
    if (MyRAM.status[i] = 0) then 
      if (MyRAM.memory[i] <= z) then 
        if (MyRAM.memory[i] <= z) then begin
          MyRAM.status[i] := 1;
        end; 
  TEXTCOLOR(WHITE);
  writeln('Загруженность оперативной памяти после');
  for i := 1 to n do
  begin
    if myram.status[i]=0 then textcolor(green) else
    if myram.memory[i]<=z then textcolor(lightcyan) else textcolor(red);
    write(MyRAM.memory[i]:5); 
    if MyRAM.status[i] = 1 then 
    begin
      a := MyRAM.memory[i] - z;
      if a < 0 then a := 0;
      write('(', a, ')'); end;
  end;
  TEXTCOLOR(WHITE);
end.

[BDA]

Во-первых, повторюсь, проверять нужно MyRAM.memory[i] >= z, иначе сохраняемый объем z не поместится в блоке памяти. Во-вторых, в 4 сообщении есть код, который подсвечивает только что сохраненный блок и свободное место в нем. Обойтись без дополнительной переменной saved_block нельзя. Ну или можно считать блоки, у которых status = 1, а time = 0, только что изменившимися. Еще раз повторюсь, что текущий способ хранения описания памяти не подразумевает выделение части блока памяти, а только весь блок целиком. Ну и в текущей постановке задачи измениться может только один блок памяти (в который сохранен объем z), либо ни одного (если все блоки уже заняты).