|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
22.04.2009, 19:03 | #1 |
Регистрация: 22.04.2009
Сообщений: 9
|
программа в Delphi
Здравствуйте,мне нужна помощь!
Вот задание: Создать линейный однонаправленный список, состоящий из вещественных чисел. Вывести на экран. Перенести в начало списка его последний элемент. Вывести новый список на экран. Вот что я смогла сделать: type tspisok=^element; element=record inf:real; link:tspisok end; TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; Button2: TButton; Edit2: TEdit; Button3: TButton; Memo1: TMemo; Button4: TButton; Memo2: TMemo; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var k,begp,endp,pre,p,newp:tspisok; Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin new(pre); pre:=nil; p:=begp; new(newp); newp^.inf:=strtofloat(edit2.text); while p<>nil do begin pre:=p; p:=p^.link; end; newp^.link:=pre^.link; pre^.link:=newp; end; procedure TForm1.Button2Click(Sender: TObject); begin new(begp); begp:=nil; new(p); p^.inf:=strtofloat(edit1.text); p^.link:=nil; begp:=p; end; procedure TForm1.Button3Click(Sender: TObject); var m:string; begin pre:=nil; p:=begp; while p<>nil do begin m:=floattostr(p^.inf); memo1.Lines.Add(m); pre:=p; p:=p^.link; end; end; но вот как сделать,чтобы при нажатии следующей кнопки в memo выводился новый список,в котором последний элемент был уже на первом месте??? помогите пожалуйста,я уже голову сломала думать
len'
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Контролирующая программа на Delphi | KaufMaNN | Помощь студентам | 16 | 22.03.2011 09:21 |
Программа-тест в Delphi) скиньте))а то програмку здавать преподу надо,и самой хочется понять Delphi | Верчик | Помощь студентам | 9 | 02.03.2009 17:46 |
программа из C++ в Delphi | andriano1984 | Помощь студентам | 1 | 23.12.2008 09:22 |
Программа на Delphi | МедведЪ | Общие вопросы Delphi | 5 | 21.05.2007 20:33 |
программа на Delphi 7.0 | manisha | Фриланс | 6 | 23.04.2007 20:29 |