Path: csiph.com!fu-berlin.de!uni-berlin.de!individual.net!not-for-mail
From: Hermann Riemann <nospam.ng@hermann-riemann.de>
Newsgroups: de.alt.folklore.computer
Subject: Re: Pascal auf Nr. 10 ;-)
Date: Wed, 10 Sep 2025 05:57:23 +0200
Lines: 76
Message-ID: <micb94FaogkU1@mid.individual.net>
References: <mht0p1FlctiU3@mid.individual.net> <26f84d3bd29d92a0485841d3dc2c08f1@wxp-nb-01.mouse.local> <mhthkpFpupfU1@mid.individual.net> <mhtoa0FlcthU20@mid.individual.net> <mhu0qvFsac3U1@mid.individual.net> <109p409$3n8s$1@solani.org> <Pascal-20250909131712@ram.dialup.fu-berlin.de> <Python-20250909151904@ram.dialup.fu-berlin.de> <109pupi$4gdm$1@solani.org> <f-20250909203719@ram.dialup.fu-berlin.de>
Mime-Version: 1.0
Content-Type: text/plain; charset=utf-8; format=flowed
Content-Transfer-Encoding: 8bit
X-Trace: individual.net kM5luGi/9F6oJFO73wMZBw0sOVmPem7JGvPiMhP53r2aNMRz2U
Cancel-Lock: sha1:yK4CZGFrLbbPSsbvTemvS1jPMpw= sha256:be38EmuJV0ZdNVAr78r2mYXsf+eqcbZJlHbvjxRjPC8=
User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:68.0) Gecko/20100101 Thunderbird/68.2.1
In-Reply-To: <f-20250909203719@ram.dialup.fu-berlin.de>
Content-Language: de-DE
Xref: csiph.com de.alt.folklore.computer:52080

Am 09.09.25 um 21:38 schrieb Stefan Ram:
> Sebastian Barthel <naitsabes@freenet.de> schrieb oder zitierte:
>> Also cih finde ja, daß ein print( f"{i = }" ) für einen Uneingeweihten so
>> gut wie überhaupt nicht sinnvoll "lesbar" ist. Das kann alles Mögliche
>> bedeuten.
> 
>    Ja. Das ist richtig.
> 
>    Zum Vergleich:
> 
>    FORTRAN
> 
> WRITE(*,'(1X,4(E12.5,1X),I7.4,/,2(1PE11.3,2X))') A,B,C,D,N,E,F
> FORMAT(1P,E15.7E3,3X,I12.8,/,2H**,T15,F10.4)
> 
>    C
> 
> printf("%-08.3E\t%#12.6o\n%+20.15g %*.*s\n", x, number, y, width, precision, str);
> 
>    C++
> 
> std::cout << std::setw(15) << std::setfill('0') << std::hex << std::showbase
>            << std::uppercase << std::scientific << std::setprecision(9)
>            << value << '\n';
> 
>    Rust
> 
> println!("{:0>12X} {:<+15.8e} {:#018b}", n, x, bits);
> 
>    Ada
> 
> Put(Item => X, Fore => 6, Aft => 4, Exp => 3);
> Put(Item => N, Base => 16, Width => 12);
> 
>    Common Lisp
> 
> (format t "~10,5,2,0,'*,'fe ~:@(~12,'0,'*d~) ~,3e" x y z)
> 
>    COBOL
> 
> DISPLAY FUNCTION NUMVAL(FIELD) UPON CONSOLE.
> DISPLAY A UPON CONSOLE WITH CONVERSION FORMAT "ZZ,ZZZ,ZZ9.99CR".
> 
> 77 AMOUNT   PIC $$,$$9.99CR.
> DISPLAY AMOUNT.
> 
>    SNOBOL
> 
> OUTPUT = "Value: " (FENCE (IDENT(X) LT(100)) . , , (X))
> OUTPUT = TAB(10) ">>" RPOS(20) . Y
> 
>    Smalltalk
> 
> Transcript show: (12345.6789 printPaddedWith: $0 to: 12 decimals: 4); cr.
> Transcript show: (String streamContents: [:s | 16 printOn: s base: 16 length: 8 padded: true]); cr.
> 
>    Auch bei "PRINT X,Y;Z" in BASIC muß man "eingeweiht" sein, um zu
>    wissen, was "," und ";" jeweils bedeutet. Relativ lesbar scheint da:
> 
>    Simula
> 
> OutText("Result: ");
> OutFix(X, 12, 6);
> OutInt(I, 8);
> OutReal(Y, 14, 3);
> 
>    , aber, ob "12" nun die Feldlänge oder Stellenzahl ist, muß man
>    wohl auch wissen . . .
> 

Bei allen "debuggen" über Manual.
Und das Wissen verhindert wegen "out of memory" im Gehirn
die Beschäftigung mit den Inhalten.

-- 
<http://www.hermann-riemann.de>