Pascal

Sveiki, draugė ir vėl prašo pascal pagalbos , pats nelabai suprantu, bet esmė tame kad yra dvikryptis sąrašas k = elementas kurį pašalinti. (išviso 6 elementai)

procedure Delete(var k :integer);
var darbinis : rodykle;
   i : integer;
begin
   if k=1 then
   begin
       darbinis:=pradzia;
       pradzia:=darbinis^.kitas;
    darbinis^.kitas^.atgal:=nil;
    dispose(darbinis);
   end
   else
   begin
       darbinis := pradzia;
    for i:=1 to k-1 do
    darbinis := darbinis^.kitas;
           darbinis^.atgal^.kitas:=darbinis^.kitas;
           darbinis^.kitas^.atgal:=darbinis^.atgal;
    dispose(darbinis);
   end;
end;

veikia su pirmais penkiais elementais, su 6 nebe.

https://www.dropbox.com/s/gtrottw7n5elavz/pascal.png

96 eilutė - tai viena iš šitų:

darbinis^.atgal^.kitas:=darbinis^.kitas;
           darbinis^.kitas^.atgal:=darbinis^.atgal;

Jau išsiaiškinom, nebereikia

Sukūriau programa betkokiom kvadratinėm lygtim spręsti, stai kodas :

http://pastebin.com/iH5Ukqek

Paleidus programa atrodo stai taip :

http://img31.imageshack.us/img31/6167/z73i.jpg

Taciau kaip reik sulygiuot tus skaicius kad butu graziau taip :

http://img191.imageshack.us/img191/8365/clq7.jpg[/img]

Tie skaicia gal but kad ir tokie

-2->

251

2-->

Kad būtu didziausio skaiciaus gale.:-)

Ps. Nuotraukoi senas kodas pataisiau ta dali Lygties atvaizdavimas.