Надо написать функцию: удаление записи по имени

[Руслан555]

В общем программа выдает на экран таблицу которая содержит в себе имя,должность и зарпалту, надо добавить функцию , чтобы она удаляла запись из таблицы по имени.
Помогите пожалуйста.Ребят очень срочно нужно.

[Руслан555]

Можете просто код написать удаления записи

[Adyvan]

Ну если у тебя записано все структурой

type
    re=record
     name:string;
     dolzh:string;
     ZP:longint;
    end;

а она записана как массив

a:array[1..n]of re;

то можно найти номер элемента так (str => это строка имени, кот. надо удалить):

for t:=1 to n do
 if(a[t].name = str)
  break;

после выполнения последнего кода в переменной t содержится номер подходящего элемента.

Ну а тут уже решай сам как удалять будешь изменять старый массив или создавать новый...

[Adyvan]

for t:=1 to n do
 if(a[t].name = str)
  break;

for q:=t to n-1 do
  a[q]:=a[q+1]; {только я не помню если можно присвоить запись записи}

а теперь из массива размером n удален элемент подходящий условию(a[t].name = str) и последний элемент массива (a[n]) равен предпоследнему (a[n-1])

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

[Руслан555]

Мне надо чтобы удаление происходило по имени это можно сделать во так как на снимке, только не получается код написать.

[ViktorR]

Из изображения видно, что это работа с динамическими структурами: списком.

Adyvan

for q:=t to n-1 do
a[q]:=a[q+1]; {только я не помню если можно присвоить запись записи}

Однотипные записи можно присваивать друг другу.
Поскольку исходного кода нет, то могу предложить вариант:

 {поиск записи по ключу key}
function find(beg: pnode; key: word; var p,pp: pnode): boolean;
{beg - указатель на начало списка
  key - то, что ищем. Тут надо описывать как string
  p - указатель на найденную запись
  pp - указатель на предыдущую запись}
begin
  p:=beg;
  while p <> nil do begin
     if p^.d = key then begin
        find := true; exit end;
     pp := p;
     p := p^.p;
   end;
   find := false;
end;
{удаление записи, найденной функцией find()}
prosedure del(var beg : pnode; key word);
{ beg и key - см. функцию find()}
var p : pnode;
pp: pnode;
begin
   if not find(beg, key,p,pp) then begin
      writeln('Удаление не выполнено'); exit end;
   else
       pp^.p := p^.p; {перенос указателя}
   dispose(p); {освобождение памяти}
end;

Думаешь, что это поможет ?
PS: Код срисован из книги: Т.А. Павловская, Программирование на ЯВУ. Паскаль.