Re: Random function - PASCAL - Article 597 - go-pugleaf

Article View: comp.lang.pascal.borland

Article #597

Back to comp.lang.pascal.borland Previous Next

Re: Random function - PASCAL

#597

From: Alexander Mueller
Date: Mon, 06 Dec 1999 00:00

18 lines
1536 bytes

var Students:array[0..5] of string=('John','Peter','Lukas','Mario','Manuel','Victory');

begin
  Randomize;
  repeat
    Writeln(Students[Random(High(Students)+1)]);
  until 1=2;
end;


Alex
-- 
** Pepsi Cola and Animal protection **  ||  Demonstration gegen Pelzhandel am 11.12.1999
**  http://www.pepsibloodbath.com/  **  ||        http://www.vgt.at/grossdemo.htm/

Author of the free Chatsystem PINO!  ||  Website: http://www.alcomp.net
Available at http://pino.cjb.net     ||  Chat   : pinochat.dhs.org:8080

Technical Details

Message-ID: <384C4D84.1F625BA7@gmx.at>

Path: arc1-ca.pugleaf.net!unknown!not-for-mail

References: <384c42e3.0@news1.mweb.co.za>

Show Full Headers

Complete Article Headers

X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: fd1d1,22f85d6fecf732ec,start
X-Google-Attributes: gidfd1d1,public
X-Google-Thread: 102601,22f85d6fecf732ec,start
X-Google-Attributes: gid102601,public
X-Google-Thread: 10261c,22f85d6fecf732ec,start
X-Google-Attributes: gid10261c,public
X-Google-Thread: 111659,22f85d6fecf732ec,start
X-Google-Attributes: gid111659,public
From: Alexander Mueller <alexm@gmx.at>
Subject: Re: Random function - PASCAL
Date: 1999/12/06
Message-ID: <384C4D84.1F625BA7@gmx.at>
X-Deja-AN: 557478109
Content-Transfer-Encoding: 7bit
References: <384c42e3.0@news1.mweb.co.za>
X-Accept-Language: en
Content-Type: text/plain; charset=us-ascii
X-Complaints-To: news@telekabel.at
X-Trace: news.chello.at 944524555 212.186.131.198 (Tue, 07 Dec 1999 00:55:55 MET)
Organization: Chello Austria
MIME-Version: 1.0
NNTP-Posting-Date: Tue, 07 Dec 1999 00:55:55 MET
Newsgroups: comp.lang.pascal.borland,comp.lang.pascal.misc,ctdl.lang.pascal,de.comp.lang.pascal

Reply to Parent Message