Помогите пожалуйста Решить 2 задачки на Pascal'е.

[MYP3uk]

Программа нужна, чем быстрее тем лучше. Желательно до конца месяца сдать.
Насчёт цен посмотрю (Кстати к слову - Это Лабораторная раБота).

[MYP3uk]

Программа нужна, чем быстрее тем лучше. Желательно до конца месяца сдать.
Насчёт цен посмотрю (Кстати к слову - Это Лабораторная раБота).

[BHy4ok]

Пиши в асю: 8721378
Или в личку.
Завтра гляну программу.

[Хыиуду]

Я боюсь, за 100 +- 40 рублей ее сделает только очень хороший знакомый, либо абсолютный альтруист. Программа из разряда "Не сложно, но муторно"

[simbiont90]

если еще надо - могу написать 2 прогу за 150р 458940943

[MYP3uk]

СпасиБо всем Большое. Мне решили задачки.

[danil]

1. Примерно так

Код: Выделить всё

procedure smooth(x,y: integer);
var i,j: integer; count: integer; sum: real;
begin
  count:=0;
  sum:=0;
  for i:=x-1 to x+1 do
  for j:=y-1 to y+1 do
  if (i>0) and (i<=10) and (j>0) and (j<=10) and (i or j<>0) then
  begin
  end;
  for i:=x-1 to x+1 do
  for j:=y-1 to y+1 do
  if (i>0) and (i<=10) and (j>0) and (j<=10) and (i or j<>0) then
  A[i,j]:=sum/count;
end;

Помогите пожалуйста Решить 2 задачки на Pascal'е или в Delphi.

[danil]

(Тема - Динамические структуры данных)
Составить программу, моделирующую заполнение гибкого магнитного диска.
Общий объем памяти на диске 360 Кбайт. Файлы имеют произвольную длину от 18 байт до 32 Кбайт. В процессе работы файлы либо записываются на диск, либо удаляются с него.
В начале работы файлы записываются подряд друг за другом. После удаления файла на диске образуется свободный участок памяти, и вновь записываемый файл либо размещается на свободном участке, либо, если файл не вмещается в свободный участок, размещается после последнего записанного файла.
В случае, когда файл превосходит длину самого большого свободного участка, выдается аварийное сообщение. Требование на запись или удаление файла задается в командной строке, которая содержит имя файла, его длину в байтах, признак записи или удаления. Программа должна выдавать по запросу сведения о занятых и свободных участках памяти на диске.
СОВЕТ
Следует создать список занятых участков и список свободных участков памяти на диске.


Помогите пожалуйста Решить задачки на Pascal'е или в Delphi.