[ Outline ] · Standard · Linear+

> Provera Da Li Se Lista Sadrzi U Drugoj

Nameless_one
post Mar 6 2008, 05:17 PM
Post #1





Group: Članovi
Joined: 5-February 08
From: Novi Beograd
Member No.: 869
Status: Učenik MGa
Ime i prezime: Goran Šahinovic
Škola/Razred: MG IIIa



Elem,posto sam nedavno reinstalirao windows i pritom obrisao particiju na kojoj je bio instaliran Delphie,a nemam kod sebe CD sa njim,potrebna mi je vasha pomoc:ako imate instaliran Pascal i ne mrzi vas da ovo copy/paste-ujete(i malo modifikujete ako nije sve tacno),molio bi vas za pomoc.

Zadatak:proveriti da li se lista L1 sadrzi u listi L2:

moje resenje:odrediti duzinu liste l1,zatim kada se u listi l2 nadje element koji odgovara prvom liste l1,koristiti repeat petlju koji proverava da li se elementi poklapaju na intervalu jednakom duzini liste l1.


CODE
function duzina(l:pok);
var s:integer;
begin
s:=0;
while l<>nil do
 begin
 s:=s+1;
 l:=l^.next;
 end;
duzina:=s
end;

function jednake(l1,l2:pok):boolean;
var d,n:integer; p:pok; def:boolean;
begin

d:=duzina(l1); def:=false; p:=l1;
while (l1<>nil) and (l2<>nil) do

  begin

  if (l1^.inf=l2^.inf) then
                              begin
                              n:=d;
                              repeat

                              l1:=l1^.next;  l2:=l2^.next;
                              if (l1^.inf=l2^.inf) then n:=n-1
                              else continue

                              until n:=0;
                              end;
if n:=0 then begin
                     def:=true;
                     break
                     end;
l1:=p; l2:=l2^.next
end;  
jednake:=def
end;


promenljiva p pamti pocetak liste l1,na koji listu 'restartujemo' posle svakog uporedjivanja sa l2.svaki put kada se liste uporedjuju,ako n dobije vrednost nula(svi elementi se poklapaju),while petlja se prekida-break,a def dobija vrednost true.

Valja li? mellow.gif

EDIT:anyone??? unsure.gif

This post has been edited by pyost: Mar 6 2008, 06:01 PM


--------------------
User is offlineProfile CardPM
Go to the top of the page
+Quote Post

Posts in this topic


Reply to this topicTopic OptionsStart new topic
1 User(s) are reading this topic (1 Guests and 0 Anonymous Users)
0 Members: