Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!watmath!clyde!cbatt!cbosgd!ukma!psuvm.bitnet!psuvax1!vu-vlsi!cbmvax!daveh
From: daveh@cbmvax.cbm.UUCP (Dave Haynie)
Newsgroups: net.lang.pascal
Subject: Re: Re: Pascal vs C, again (was: Pascals Origins)
Message-ID: <550@cbmvax.cbmvax.cbm.UUCP>
Date: Tue, 22-Jul-86 13:02:22 EDT
Article-I.D.: cbmvax.550
Posted: Tue Jul 22 13:02:22 1986
Date-Received: Wed, 23-Jul-86 07:48:10 EDT
References: <2943@ism780c.UUCP>
Organization: Commodore Technology, West Chester, PA
Lines: 34

> What's wrong with this one?
>
>       label 1,2;
>       var i: integer;
>       ...
>       i :=1 ;
>       while i<=1000 do
>               if x[i] = 0 then goto 1
>               else i := i+1;
>
>       writeln('not found');
>       goto 2;
> 1:      writeln('zero at location', i )
> 2:      ...
>
>                 Martin Smith

"...avoid the use of jumps to express regular iterations and conditional
execution of statements, for such jumps destroy the reflection of the
structure of computation in the textual (static) structure of the program."

                        Pascal User Manual and Report, p. 32
--
/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
Dave Haynie    {caip,ihnp4,allegra,seismo}!cbmvax!daveh

        "I don't feel safe in this world no more,
         I don't want to die in a nuclear war,
         I want to sail away to a distant shore
         And live like an ape man."
                                -The Kinks

        These opinions are my own, though for a small fee they be yours too.
\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/