On Monday, November 23, 1998 at 9:00:00 AM UTC+1, AD wrote:
> Czesc
> Napisalem program do mnozeni dwoch liczb o max zakresie do 10 (szkolna
> tabliczka mnozenia). Co o nim sadzicie?
>
>
> program mnozenie;
>
> var
> i, j, iloczyn : integer;
>
> begin
> writeln('Mnozenie dwoch liczb do 10');
> write('Podaj pierwsza liczbe: ');
> readln(i);
> write('Podaj druga liczbe: ');
> readln(j);
> if (i = 1) and (j = 1) then iloczyn:=1;
> if (i = 1) and (j = 2) then iloczyn:=2;
> if (i = 1) and (j = 3) then iloczyn:=3;
> if (i = 1) and (j = 4) then iloczyn:=4;
> if (i = 1) and (j = 5) then iloczyn:=5;
> if (i = 1) and (j = 6) then iloczyn:=6;
> if (i = 1) and (j = 7) then iloczyn:=7;
> if (i = 1) and (j = 8) then iloczyn:=8;
> if (i = 1) and (j = 9) then iloczyn:=9;
> if (i = 1) and (j = 10) then iloczyn:=10;
> if (i = 2) and (j = 1) then iloczyn:=2;
> if (i = 2) and (j = 2) then iloczyn:=4;
> if (i = 2) and (j = 3) then iloczyn:=6;
> if (i = 2) and (j = 4) then iloczyn:=8;
> if (i = 2) and (j = 5) then iloczyn:=10;
> if (i = 2) and (j = 6) then iloczyn:=12;
> if (i = 2) and (j = 7) then iloczyn:=14;
> if (i = 2) and (j = 8) then iloczyn:=16;
> if (i = 2) and (j = 9) then iloczyn:=18;
> if (i = 2) and (j = 10) then iloczyn:=20;
> if (i = 3) and (j = 1) then iloczyn:=3;
> if (i = 3) and (j = 2) then iloczyn:=6;
> if (i = 3) and (j = 3) then iloczyn:=9;
> if (i = 3) and (j = 4) then iloczyn:=12;
> if (i = 3) and (j = 5) then iloczyn:=15;
> if (i = 3) and (j = 6) then iloczyn:=18;
> if (i = 3) and (j = 7) then iloczyn:=21;
> if (i = 3) and (j = 8) then iloczyn:=24;
> if (i = 3) and (j = 9) then iloczyn:=27;
> if (i = 3) and (j = 10) then iloczyn:=30;
> if (i = 4) and (j = 1) then iloczyn:=4;
> if (i = 4) and (j = 2) then iloczyn:=8;
> if (i = 4) and (j = 3) then iloczyn:=12;
> if (i = 4) and (j = 4) then iloczyn:=16;
> if (i = 4) and (j = 5) then iloczyn:=20;
> if (i = 4) and (j = 6) then iloczyn:=24;
> if (i = 4) and (j = 7) then iloczyn:=28;
> if (i = 4) and (j = 8) then iloczyn:=32;
> if (i = 4) and (j = 9) then iloczyn:=36;
> if (i = 4) and (j = 10) then iloczyn:=40;
> if (i = 5) and (j = 1) then iloczyn:=5;
> if (i = 5) and (j = 2) then iloczyn:=10;
> if (i = 5) and (j = 3) then iloczyn:=15;
> if (i = 5) and (j = 4) then iloczyn:=20;
> if (i = 5) and (j = 5) then iloczyn:=25;
> if (i = 5) and (j = 6) then iloczyn:=30;
> if (i = 5) and (j = 7) then iloczyn:=35;
> if (i = 5) and (j = 8) then iloczyn:=40;
> if (i = 5) and (j = 9) then iloczyn:=45;
> if (i = 5) and (j = 10) then iloczyn:=50;
> if (i = 6) and (j = 1) then iloczyn:=6;
> if (i = 6) and (j = 2) then iloczyn:=12;
> if (i = 6) and (j = 3) then iloczyn:=18;
> if (i = 6) and (j = 4) then iloczyn:=24;
> if (i = 6) and (j = 5) then iloczyn:=30;
> if (i = 6) and (j = 6) then iloczyn:=36;
> if (i = 6) and (j = 7) then iloczyn:=42;
> if (i = 6) and (j = 8) then iloczyn:=48;
> if (i = 6) and (j = 9) then iloczyn:=54;
> if (i = 6) and (j = 10) then iloczyn:=60;
> if (i = 7) and (j = 1) then iloczyn:=7;
> if (i = 7) and (j = 2) then iloczyn:=14;
> if (i = 7) and (j = 3) then iloczyn:=21;
> if (i = 7) and (j = 4) then iloczyn:=28;
> if (i = 7) and (j = 5) then iloczyn:=35;
> if (i = 7) and (j = 6) then iloczyn:=42;
> if (i = 7) and (j = 7) then iloczyn:=49;
> if (i = 7) and (j = 8) then iloczyn:=56;
> if (i = 7) and (j = 9) then iloczyn:=63;
> if (i = 7) and (j = 10) then iloczyn:=70;
> if (i = 8) and (j = 1) then iloczyn:=8;
> if (i = 8) and (j = 2) then iloczyn:=16;
> if (i = 8) and (j = 3) then iloczyn:=24;
> if (i = 8) and (j = 4) then iloczyn:=32;
> if (i = 8) and (j = 5) then iloczyn:=40;
> if (i = 8) and (j = 6) then iloczyn:=48;
> if (i = 8) and (j = 7) then iloczyn:=56;
> if (i = 8) and (j = 8) then iloczyn:=64;
> if (i = 8) and (j = 9) then iloczyn:=72;
> if (i = 8) and (j = 10) then iloczyn:=80;
> if (i = 9) and (j = 1) then iloczyn:=9;
> if (i = 9) and (j = 2) then iloczyn:=18;
> if (i = 9) and (j = 3) then iloczyn:=27;
> if (i = 9) and (j = 4) then iloczyn:=36;
> if (i = 9) and (j = 5) then iloczyn:=45;
> if (i = 9) and (j = 6) then iloczyn:=54;
> if (i = 9) and (j = 7) then iloczyn:=63;
> if (i = 9) and (j = 8) then iloczyn:=72;
> if (i = 9) and (j = 9) then iloczyn:=81;
> if (i = 9) and (j = 10) then iloczyn:=90;
> if (i = 10) and (j = 1) then iloczyn:=10;
> if (i = 10) and (j = 2) then iloczyn:=20;
> if (i = 10) and (j = 3) then iloczyn:=30;
> if (i = 10) and (j = 4) then iloczyn:=40;
> if (i = 10) and (j = 5) then iloczyn:=50;
> if (i = 10) and (j = 6) then iloczyn:=60;
> if (i = 10) and (j = 7) then iloczyn:=70;
> if (i = 10) and (j = 8) then iloczyn:=80;
> if (i = 10) and (j = 9) then iloczyn:=90;
> if (i = 10) and (j = 10) then iloczyn:=100;
> writeln('Iloczyn tych liczb: ', iloczyn);
> end.

do góry

On 2017-02-21 20:17, m...@g...com wrote:
>> Napisalem program do mnozeni dwoch liczb o max zakresie do 10 (szkolna
>> tabliczka mnozenia). Co o nim sadzicie?

Czy to jakaś prowokacja?

do góry

On Tue, 21 Feb 2017 23:43:38 +0100, Sebastian
Biały<h...@p...onet.pl> wrote:
> Czy to jakaś prowokacja?

Ajtam.

Pytanie było: "co sądzimy"?

Jeżeli to jest Pascal, to nieużywanie operatora mnożenia jest
nieuzasadnione. Jeżeli chodzi o prędkość, to instrukcje if są
wyjątkowo szkodliwe. Jeżeli chodzi o odporność, to user wpisze xxx i
będzie nieszczęście. Nienajciekawiej też gdy zapoda -13 i 666.

Jeżeli chodzi o styl, to świetny przykład JAK NIE PISAĆ. Jest bardzo
łatwo zrobić błąd, np. 5*5 będzie nie 25 a 52 i to nie da się łatwo
zweryfikować.

Przy pewnych założeniach taki sposób podejścia mógłby mieć sens...
gdyby każda z linijek realizowana była hardwareowo bezpośrednio przez
bramki logiczne. Równolegle.

Jeżeli to czyjś Pierwszy Program w Pascalu... to całkiem nieźle. Nie
zniechęcać się, choć trochę potrwa osiągnięcie poziomu
profesjonalisty.

do góry

On 21.02.2017 23:43, Sebastian Biały wrote:
> On 2017-02-21 20:17, m...@g...com wrote:
>>> Napisalem program do mnozeni dwoch liczb o max zakresie do 10 (szkolna
>>> tabliczka mnozenia). Co o nim sadzicie?
>
> Czy to jakaś prowokacja?

Ojtam prowokacja, post jest stary, ale słowo trollowanie już istniało;-)

Ktoś wyciągnał trollposta sprzed 19 lat.
Całkiem ładnego zresztą, ale dlaczego nie napisał słowa komentarza?
Może chciał skopiować treść i wysłąć jako swoj post (w wiadomym
celu rozrywkowym) ale usenetowanie okazało się trudne?
:)

Z drugiej strony, to jest oczywisty dowcip, ale widziałem
podobnej klasy twórczość, która miała pochodzić z używanego
kodu. Pewnośći oczywiscie nie ma.

http://thedailywtf.com/articles/negative-creativity
Hmm, coś podobnego już widziałem...
https://twitter.com/MarcosBL/status/6411104241932328
97
Wygląda na to, że powszechnie znany standard;-)
http://stackoverflow.com/a/32468663
Ten kod ogolnie wspaniały jest:)

Od drugiej strony, w podobnym miejscu na "prawdopodobnie autentyki"
widziałem kod, w którym wypełnienie jakiejś kontrolki rozwijelnej, gdzie
trzeba było wybrać rok urodzenia, ręczni w kodzie wpisano stringi
odpowiadajace liczbom od 1900 do 2000 z hakiem.

Zamiana timestamp na godziny za pomocą wielkiego switch-case.

Coś podobnego do tego:
http://thedailywtf.com/articles/Switched_on_Loops




pzdr
bartekltg

do góry

On Wed, 22 Feb 2017 02:21:45 +0100, bartekltg <b...@g...com>
wrote:
> widziałem kod

Bardzo Ważny Program przeliczający tensory, używany jako referencyjny
dla sprawdzania poprawności publikowanych wyników, napisany w
Hongkongu (przed przyłączeniem)...

... macierz 6x6 czytana w ten deseń:

write(2,293)
READ(1,857) A(1,1)
write(2,574)
READ(1,532) A(1,2)

itd. Oczywiście gdzieś tam 72 instrukcje FORMAT.

do góry

On Wed, 22 Feb 2017 02:21:45 +0100, bartekltg <b...@g...com>
wrote:
> Od drugiej strony, w podobnym miejscu na "prawdopodobnie autentyki"
> widziałem kod, w którym wypełnienie jakiejś kontrolki rozwijelnej,
gdzie
> trzeba było wybrać rok urodzenia, ręczni w kodzie wpisano stringi
> odpowiadajace liczbom od 1900 do 2000 z hakiem.

To akurat sensowne: da się lokalizować na polski, niemiecki,
koreański, hebrajski czy japoński.

do góry

oj tacy powscy eksperci, a na takim prostym przykładzie polegli...

to jest bardzo dobry przykład jak należy pisać kod dla kompilatorów...

w nowoczesnej europejskiej edukacji, abiturienci prześcigają się kto
lepiej skompiluje kod na etapie jego tworzenia...

dla mnie to trochę śmieszne... no ale ja jestem debil, nie to co europa...

do góry

że już nie wspomnę o sukcesie zmiennej pomocniczej...

do góry