Springen naar inhoud

Search procedure in modula 2


  • Log in om te kunnen reageren

#1

In physics I trust

    In physics I trust


  • >5k berichten
  • 7384 berichten
  • Moderator

Geplaatst op 20 januari 2010 - 22:41

...

  CONST

	SIZE = ...; (*Number of records in array *)

	... 

  TYPE

	KeyType = ...;

	(* any type accepting relational operators *)

	ArrayType  = ARRAY[0..Size] OF RecordType;

	RecordType = RECORD

				   Key : KeyType;

				   ...

				 END

	...

  VAR

	Data : ArrayType;

	Key  : KeyType;

	Found: [0..Size];

	...

 BEGIN

	...

	Key := ...;

	Found := Search(Data,Key);

	IF Found = 0

	  THEN WrStr(“Item not found”)

	  ELSE (* Write contents of Data[Found] *)

		...

	END (* IF *);

  ...


Klopt het dat de Found een out-of-range detectie vervult in bovenstaande code?

Alvast bedankt!

Veranderd door In fysics I trust, 20 januari 2010 - 22:43

"C++ : Where friends have access to your private members." — Gavin Russell Baker.

Dit forum kan gratis blijven vanwege banners als deze. Door te registeren zal de onderstaande banner overigens verdwijnen.




0 gebruiker(s) lezen dit onderwerp

0 leden, 0 bezoekers, 0 anonieme gebruikers

Ook adverteren op onze website? Lees hier meer!

Gesponsorde vacatures

Vacatures