07.05.2012, 23:43 | #1 (permalink) |
Новичок
Регистрация: 14.11.2011
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Delhi. Вставить элемент, не могу найти ошибку
написать программу,которая вставляет в список L элемент E1, после элемента E, если Е входит в L. ничего не выводит((( |
07.05.2012, 23:43 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Данная тема уже обсуждалась ранее и возможно решена Найти наибольший элемент, преобразовать массив Помогите найти ошибку Помогите найти ошибку Создал программу, ошибку не могу найти Помогите найти ошибку Помогите найти ошибку |
08.05.2012, 11:50 | #2 (permalink) |
Новичок
Регистрация: 14.11.2011
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
помогите пожалуйста
исправила чуть-чуть, выводит но не совсем то.... очень срочно нужно type spisok=^zveno; zveno=record el:string; sled:spisok; end; var L:spisok; tec, tec1, tec2, tec1_el:spisok; e,e1:string; i:integer; f:boolean; procedure sp(E1,E:spisok; var L:spisok); begin ; end; procedure TForm1.Button1Click(Sender: TObject); begin L:=nil; for i:=1 to memo1.Lines.count do begin new(tec); tec^.el:=memo1.Lines[i-1]; tec^.sled:=L; L:=tec; end; memo1.Clear; tec:=L; while tec<>nil do begin memo1.Lines.Add(tec^.el); tec:=tec^.sled; end; end; procedure TForm1.Button2Click(Sender: TObject); begin tec2:=L; tec1:=L; e:=Edit2.Text; e1:=Edit1.Text; f:=true; new(tec1_el); tec1_el^.el:=e1; while (tec1<> nil) and f do begin if tec1^.el=Edit2.Text then begin f:=false; tec2:=tec1^.sled; end else begin Memo2.Lines.Add(tec2^.el); tec1:=tec1^.sled; end; end; tec1_el:=tec2^.sled; tec2^.sled:=tec1_el; if f=false then while tec2<>nil do begin Memo2.Lines.Add(tec2^.el); tec2:=tec2^.sled; end; end; end. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|