Avtomatika va elektrotexnologiya

 
Navbatdagi  dastur    Familiya  maydoni  bo‘yicha  tartiblangan  ro‘yhatni  tashkil  qiladi. 
Ma‘lumotlar  Edit1  va  Edit2  tahrirlash  maydoniga  kiritiladi  va  Qo‟shish  tugmasi  bosilganda 
ro‘yhatga tartib bo‘yicha qo‘shiladi. 
unit dlist2_; 
interface 
uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
  StdCtrls; 
type 
  TForm1 = class(TForm) 
    Label1: TLabel; 
    Label2: TLabel; 
    Button1: TButton; 
    Button2: TButton; 
    Label3: TLabel; 
    Edit1: TEdit; 
    Edit2: TEdit; 
    procedure Button1Click(Sender: TObject); 
    procedure Button2Click(Sender: TObject); 
    procedure FormActivate(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
var 
  Form1: TForm1; 
implementation 
{$R *.DFM} 
type 
  TPStudent=^TStudent; //TStudent tipiga ko'rsatkich 
  TStudent = record 
  f_name:string[20];  // familiya 
 
l_name:string[20];  // ism 
 
next: TPStudent;    // ro'yxatning navbatdagi elementi 
  end; 
var 
  head: TPStudent;  // ro'yxat boshi 
procedure TForm1.Button1Click(Sender: TObject); 

---

var 
   node: TPStudent;  // ro'yxatning yangi tuguni 
   curr: TPStudent;  // ro'yxatning joriy tuguni 
   pre:  TPStudent;  // curr ga bog'liq avvalgi tugun 
begin 
   new(node); // ro'yxatning yangi elementini yaratish 
   node^.f_name:=Edit1.Text;  // familiya 
   node^.l_name:=Edit2.Text;  // ism 
   // ro'yxatga tugun qo'shish 
   // dastlab tugun uchun ro'yxatdan mos joyni topamiz 
   curr:=head; 
   pre:=NIL; 
   { Diqqat! 
    agar auyidagi shartni (node.f_name>curr^.f_name)and(curr<>NIL) shartga 
    almashtirilsa u holda birinchi tugunni qo'shish vaqtida xatolik yuz beradi. 
    chunki curr=NIL va curr.^name o'zgaruvchisi yo'q! 
    Ishlatilgan variantda xatolik yuz bermaydi, chunki, dastlab qiymati 
    FALSE bo'lgan(curr<>NIL) sharti tekshiriladi va bunday holatda 
    ikkinchi shart tekshirilmaydi.} 
   while (curr <> NIL)and(node.f_name > curr^.f_name)  do 
   begin 
     // kiritilgan qiymat joriydan katta 
     pre:= curr; 
     curr:=curr^.next; // keyingi tugunga 
   end; 
   if pre = NIL 
     then 
        begin 
          // yangi tugun ro'yxat boshida 
          node^.next:=head; 
 
  head:=node; 
        end 
     else 
        begin 
          // yangi tugun pre dan keyin, curr dan oldin 
 
  node^.next:=pre^.next; 
          pre^.next:=node; 
        end; 
   Edit1.text:=''; 
   Edit2.text:=''; 
   Edit1.SetFocus;