Źródło:


Komentarze (2)


Ocena:
1

źródło pochodzi od: fafek

Opis:
Fragment "juzefa". Wymaga solidnego dopracowania.

Język: delphi


function tmain.porownajZdania( z1, z2 : zdanie; roznica : byte ) : bool;
{
  jesli takie same = true, jesli nie = false
  różnica okresla maksymalną ilosc wyrazow,
  jakie mogą się nie zgadzac
}
var i,j : 1..WYRAZOW_W_ZDANIU; b: bool;// r : word;
    r : word;
begin
result := false;
r:=0;
b:=true;

for i:=1 to liczWyrazy( z1 ) do
  begin
//  b:=false;

//  if r <= roznica then

  if b then
    for j:=1 to liczWyrazy( z2 ) do
      begin
      if z1[i] = z2[j] then
        begin
        b:=true;
        break;
        end;
      b:=false;
      inc(r);
      end
//  else inc(r);

//  if not b then inc( r );

  end;

if b and ((abs(liczWyrazy( z1 ) - liczWyrazy( z2 )) <= roznica){ or ( r <= roznica)}) then
  result:=true
else
  result:=false;
end;

powrót

Tagi do źródła:
juzef, porównywanie zdań, delphi


Komentarze:


allo

Wysłany:
2006-08-27 15:52
z tego fragmentu zupełnie nie wynika jak 'juzef' dziala.
doloz wiecej kodu, to bedzie można rzeczowo ustosunkować się do kodu.

fafek

Wysłany:
2006-09-11 07:17
Wcale nie miało wynikać. Fakt, że jest to jego kawałek, to tylko ciekawostka.

assembler baza danych bot c crawler delphi html java kontakt box loader mail obsługa sieci obsługa zapyt(..) own os php pop3 porównywanie (..) przeszukiwanie(..) robot sieciowy rozmowa symulator rozm(..) system operacy(..) voteban stop wysyłanie e-m(..) boot dekodowanie mim(..) java juzef kolejny skrypt (..) mysql pobieranie zawa(..) przeglądanie e(..) sdl whois wysyłanie e-ma(..)

Wszystkie...


sources.pl to strona przeznaczona dla programistów, początkujących programistów i zupełnych amatorów programowania. Tu możesz umieścić swój kod, program napisany przez Ciebie, lub po prostu skomentować kod innego programisty.

Szukaj:


Źródeł: 30, oczekujących: 3, odrzuconych: 11

O stronie | kontakt |

Sources.pl

Ilość wejść: dzisiaj - 288 (unikalne: 283), ogółem - 534709 (unikalne: 464735)