Проверка домашнего задания по информатике в Ханты-Мансийске

Нужно объяснить программу. Могу скинуть программу. program project1; type pel=^el; el=record data:integer; next:pel; end; procedure delhead(var h:pel); var tmp:pel; begin if h<>nil then begin tmp:=h; h:=h^.next; writeln('Deleted = ',tmp^.data); dispose(tmp); end; end; procedure deltail(var h: pel); var tmp, pred: pel; begin if h <> nil then begin while tmp^.next <> nil do begin pred := tmp; tmp := tmp^.next; end; if pred = nil then h := nil else pred^.next := nil; writeln('Deleted : ', tmp^.data); dispose(tmp); end; end; procedure SaveAll(var h: pel); var tmp: pel; F: file of integer; begin Assign(f, 'int.data'); rewrite(f); tmp:=h; while tmp<>nil do begin write(f, tmp^.data); tmp:=tmp^.next; end; Close(f); end; procedure Load(var h: pel); var tmp1, tmp2: pel; F: file of integer; begin Assign(f, 'int.data'); reset(f); if EoF(F) then begin close(f); exit; end; new(tmp1); read(f, tmp1^.data); tmp2:=tmp1; while not eof(f) do begin new(tmp2^.next); tmp2:= tmp2^.next; read(f, tmp2^.data); end; tmp2^.next:=h; h:=tmp1; close(f); end; procedure delall(var h: pel); var tmp1: pel; begin while h <> nil do begin tmp1:=h; h:=h^.next; dispose(tmp1); end; end; {Procedure Del(Digit : integer; Var u : pel ); var x, dx : pel ; begin x := u; while x<>Nil do if x^.Data=Digit then begin if x=u then begin u := u^.Next; Dispose(x); x := u; end else begin dx^.Next := x^.Next; Dispose(x); x := dx^.Next; end; end else begin dx := x; x := x^.Next; end; end;} procedure Del(var Head:pel; Number: Integer); var Current, Previous: pel; Counter: Integer; begin if Head = nil then begin writeln('Список пуст!!'); Exit; end; Current := Head; Previous := nil; Counter := 1; while ( Current <> nil ) and ( Counter <> Number ) do begin Previous := Current; Current := Current^.Next; Counter:=Counter+1; end; if Current = nil then begin writeln('Элемент с указанным номером не найден!!'); Exit; end; if Previous = nil then Head := Current^.Next else Previous^.Next := Current^.Next; dispose(Current); end; procedure Addhead( var h:pel;d:integer); var tmp:pel; begin new(tmp); tmp^.data:=d; tmp^.next:=h; h:=tmp; end; procedure Prntlist(h:pel); begin write('List: '); while h<>nil do begin; write(h^.data:4); h:=h^.next; end; writeln; end; procedure Addtail( var h:pel;d:integer); var tmp:pel; begin if h=nil then addhead(h,d) else begin tmp:=h; while tmp^.next<>nil do tmp:=tmp^.next; new(tmp^.next); tmp^.next^.data:=d; tmp^.next^.next:=nil; end; end; procedure reverse(var h: pel); var tmp, newh:pel; begin newh:=nil; while h<>nil do begin tmp:=h; h:=h^.next; tmp^.next:=newh; newh:=tmp; end; h:=newh; end; Function findlist(h:pel; d:integer):integer; var nmb:integer; begin nmb:=1; while h<>nil do begin if d=h^.data then begin Findlist:=nmb; end; h:=h^.next; nmb:=nmb end; end; var head:pel; com:string; data:integer; begin head:=Nil; repeat writeln('Меню : '); writeln('a - добавить в начало'); writeln('A - добавить в конец'); writeln('d - удалить с начала'); writeln('D - удалить с конца'); writeln('DD - удалить всё'); writeln('Del - удалить элемент по его номеру'); writeln('save - сохранить список'); writeln('load - загрузить список'); writeln('f - найти'); writeln('reverse - перевернуть список'); writeln('exit - завершить работу'); readln(com); case com of 'a':begin write('data = '); readln(data); Addhead(head,data); end; 'f':begin write('data = '); readln(data); writeln(Findlist(head,data)); end; 'l':prntlist(head); 'A':begin write('data = '); readln(data); addtail(head,data); end; 'd':delhead(head); 'D':deltail(head); 'DD':delall(head); 'save':SaveAll(head); 'load':Load(head); 'reverse':reverse(head); 'Del':begin write('data = '); readln(data); del(head, data); end; end; until com='exit'; Writeln('Goodbye!'); readln; endещё

11 класс. Язык программирования: Текстовые редакторы. Необходимо помочь с выполнением домашней работы (большой по объему) - оплата договорнаяещё

7 класс. Язык программирования: Pascal. Помогите пожалуйста с домашним заданием по информатике Паскаль.. Скину подробнееещё

10 классещё

7 классещё

11 класс. Язык программирования: R. Пожелания и особенности: решить задание по Rещё

10 класс. Язык программирования: Pythonещё

10 класс. НУЖНО СДЕЛАТЬ ЗАДАНИЯ И ВСЕещё

10 классещё