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

[MYP3uk]

1.(Тема - Двумерные массивы и подпрограммы)
Соседями элемента А у в матрице назовем элементы Akl, где i - 1 <= i +1, j – 1<=l<= j +1, (k, I) ≠ (i,j). Операция сглаживания матрицы дает новую матрицу того же размера, каждый элемент которой получается как среднее арифметическое имеющихся соседей соответствующего элемента исходной матрицы. Построить результат сглаживания заданной вещественной матрицы размером 10 х 10 (оформить в виде процедуры).

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

Заранее благодарен.

[Хыиуду]

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;

[MYP3uk]

Кстати, могу заплатить за решение 2-й задачки!!!

[Хыиуду]

Сколько именно?
Задание тянет примерно на уровень практики по программированию для непрофильного вуза, или где-то в районе двух-трех лабораторок

[BBB]

2.(Тема - Динамические структуры данных)
Составить программу, моделирующую заполнение гибкого магнитного диска.
Общий объем памяти на диске 360 Кбайт.

Внимание, вопрос знатокам. В каком году была составлена эта задача? :lol:

[airyashov]

Вот пример на делфи, в паскаль нетрудно переделать.
http://slil.ru/25928797
для просмотра надо мышкой кликнуть на список

[BHy4ok]

Вот пример на делфи, в паскаль нетрудно переделать.
http://slil.ru/25928797
для просмотра надо мышкой кликнуть на список

Особенно без исходников.

[BHy4ok]

Файлы имеют произвольную длину от 18 байт до 32 Кбайт.

Пользователь сам вводит размер записываемого файла в этих интервалах или как ?

[MYP3uk]

Нащёт отплаты - (судя по состоянию моего электроного счёта) могу дать (100 +- 40р)!
Нащёт ввода - Да, я так понял что пользователь задает размер записываемого файла(в этих интервалах).

[BHy4ok]

Нащёт отплаты - (судя по состоянию моего электроного счёта) могу дать (100 +- 40р)!

Для справки - полазь на форуме посмотри цены.
Насчет программы, как скоро нужна ?