🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.lang.pascal
Article #92642

Wytęż wzrok...

#92642
From: Andrzej Grażyński
Date: Tue, 21 Oct 2008 08:36
54 lines
1874 bytes
Już było, ale nie zaszkodzi znowu: wytęż wzrok i znajdź szczegół, którym 
różnią się poniższe fragmenty:

(1)

case K of

   1:
      Initialize;

   2:
      Perform;

   3:
      Terminate;

   4:
      if Tracing
      then
        NotifyThreshold
      else
        IgnoreExcess;
end;


(2)

case K of

   1:
      Initialize;

   2:
      Perform;

   3:
      Terminate;

   4:
      if Tracing
      then
        NotifyThreshold;
      else
        IgnoreExcess;
end;


W związku z powyższym, w Turbo Pascalu, wg oryginalnego projektu 
defaultowy wariant CASE miał być oznaczany słowem kluczowym OTHERWISE 
(jak w Pascalu 8000), nie ELSE, ale nie wiedzieć czemu jest jednak ELSE 
(może w haszu zabrakło miejsca na nowe słowo kluczowe? Albo autorzy bali 
się, że zabraknie w przyszłości i nie chcieli mnożyć słów kluczowych?).

Ja, w związku z powyższym, zawsze ujmuję warianty CASE w begin...end.
Technical Details
Message-ID: <gdk4av$n4o$1@news.onet.pl>
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.rmf.pl!agh.edu.pl!news.agh.edu.pl!news.onet.pl!not-for-mail
References: <20080905121945.03f2cdf2.solaris@be.inspired>

Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.rmf.pl!agh.edu.pl!news.agh.edu.pl!news.onet.pl!not-for-mail
From: Andrzej Grażyński <grazynsk@petex.com.pl>
Newsgroups: pl.comp.lang.pascal
Subject: Wytęż wzrok...
Date: Tue, 21 Oct 2008 10:36:37 +0200
Organization: Onet.pl
Lines: 54
Message-ID: <gdk4av$n4o$1@news.onet.pl>
References: <20080905121945.03f2cdf2.solaris@be.inspired>
NNTP-Posting-Host: rt-bras1.welnowiec.net
Mime-Version: 1.0
X-Trace: news.onet.pl 1224578208 23704 83.143.96.27 (21 Oct 2008 08:36:48 GMT)
X-Complaints-To: usenet@news.onet.pl
NNTP-Posting-Date: Tue, 21 Oct 2008 08:36:48 +0000 (UTC)
X-Sender: 2ysppuKZfnIJFd8Xm5/5BA==
In-Reply-To: <20080905121945.03f2cdf2.solaris@be.inspired>
User-Agent: Thunderbird 2.0.0.17 (Windows/20080914)
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit