| Autor | 
		Wiadomość | 
	
	
		| zezik | 
		
			
				 Wysłany: Sob 1:21, 24 Mar 2007    Temat postu: wiecej mi sie nie chce juz pisac bo to caly czas to samo :) | 
			 
			
				
  | 
			 
			
				w trzecim w sumie nie bedzie wielu zmian, za spawdzanie czy jest literka w stringu mozna uzyc pos
 
 narta i do jura :) | 
			 
		  | 
	
	
		  | 
	
	
		| zezik | 
		 | 
	
	
		  | 
	
	
		| zezik | 
		
			
				 Wysłany: Sob 0:56, 24 Mar 2007    Temat postu: zadanie 1 | 
			 
			
				
  | 
			 
			
				Witam,
 
 sorki ze tak pozno :) ale dopiero z scianki wrocilem i nie bardzo mi sie juz chcialo to pisac:
 
 http://zajac.org.pl/studia/collection1.pas.html
 
 tutaj macie zadanie 1, zadanie 2 jest analogiczne tylko trzeba by zmienic inta na longa czy tam longinta (jak mi sie bedzie chcialo to zmienie i wrzuce) | 
			 
		  | 
	
	
		  | 
	
	
		| Gość | 
		
			
				 Wysłany: Pią 23:47, 23 Mar 2007    Temat postu:  | 
			 
			
				
  | 
			 
			
				Racja! if(A.moc<=B.moc) jest słuszną uwagą... pośpiech nigdy nie popłaca!
 No i w końcu coś się na forum ruszyło. | 
			 
		  | 
	
	
		  | 
	
	
		| zajka | 
		
			
				 Wysłany: Pią 10:13, 23 Mar 2007    Temat postu:  | 
			 
			
				
  | 
			 
			
				Nie tyle co by odpadlo ale mysle ze stwierdzenie ze 
 
 if (A.moc <>B.moc)
 
 moze byc tutaj mocno bledne
 
 gdyz zbior B.moc moze byc wiekszy od zbioru A.moc 
 wtedy A dalej moze sie zawierac w B
 
 piszac tak odrazu zakladamy ze jesli zbiory nie sa tej samej mnogosci to sie niezawiera! | 
			 
		  | 
	
	
		  | 
	
	
		| mapu | 
		
			
				 Wysłany: Czw 10:10, 22 Mar 2007    Temat postu:  | 
			 
			
				
  | 
			 
			
				Przez brak wciec czyta sie to koszmarnie...
 Przeciez mozna:
 
  	  | Kod: | 	 		  
 function zawiera(var A:zbior;var B:zbior):boolean;
 var
     i,j:integer;
     zap:boolean;
     kp1:boolean;
     kp2:boolean;
     begin 
     end
  | 	  
 
 Ok, teraz jedno pytanie: Czemu masz na poczatku rozne (<> - to jest rozne w pascalu prawda?):  
 nie lepiej dac   zakladajac ze A ma zawierac sie w B? Wydaje sie ze odpadl by jeden warunek pozniej? | 
			 
		  | 
	
	
		  | 
	
	
		| Fear | 
		
			
				 Wysłany: Wto 21:38, 20 Mar 2007    Temat postu:  | 
			 
			
				
  | 
			 
			
				type
  zbior = record
    moc:integer;
    dane:array[1...MAX] of string;
   end;
 
 function zawiera(var A:zbior;var B:zbior):boolean;
 var
  i,j:integer;
  zap:boolean;
  kp1:boolean;
  kp2:boolean;
 begin
  kp1:=false;
  kp2:=false;
  zap:=false;
  i:=0;
  j:=0;
 
  if(A.moc<>B.moc)then
   begin
   zawiera:=false;
   end
  else
   begin
    while((i<=A.moc) and (kp<>true))do
     begin
      i:=i+1;
      while((j<B.moc) and (kp<>true))do
       begin
        j:=j+1;
        if(A.dane[i]=B.dane[j])then
        begin
         kp2:=true;
         kp1:=false;
         zap:=true;
        end else
        begin
         kp2:=false;
        end;
        if(kp2=false)then
        begin
         kp1:=true;
         zap:=false;
        end;
       end;
    end;
   end;
   zawiera:=zap;
 end;
 
 
 Funkcja zawiera na zbiorze stringów. Jak macie jakieś lepsze rozwiązanie, to piszcie(i ewentualne błędy). Inne funkcje też rzucajcie na forum bo kolos tuż tuż | 
			 
		  | 
	
	
		  | 
	
	
		| Fear | 
		
			
				 Wysłany: Wto 20:30, 20 Mar 2007    Temat postu:  | 
			 
			
				
  | 
			 
			
				wszystkie informacje dotyczące zadań jakie robimy na ASD umieszczajcie tutaj.
 Może udało by się "zmusić" do ożywienia to biedne forum! Wystarczy, że ktoś rzuci tu jakiś program lub coś podobnego z ASD i - miejmy nadzieję- tym samym wywoła dyskusję nad POPRAWNYM rozwiązaniem danego zagadnienia.
 Wtedy "słabsi"(czyt. mniej obyci z programowaniem)  będą mieli na czym się oprzeć przy piasani kolosów, a "weterani"... no cóż | 
			 
		  | 
	
	
		  | 
	
	
		| Fear | 
		
			
				 Wysłany: Wto 20:17, 20 Mar 2007    Temat postu: ASD | 
			 
			
				
  | 
			 
			
				| zadania | 
			 
		  | 
	
	
		  |