[Delphi] Ciekawostka...

[Toster]

Na forum tym widze same pytania i odpowiedzi, wiec dla niepoznaki postanowilem wrzucic mala ciekawostke. Zabawa polega na tym aby popatrzec na program podany na konc postu i odpowiedziec na bardzo proste pytanie. Ile wynosi wartosc zmiennej y na koncu ? (wartos przekazana do showmessage). Caly myk polega na tym aby najpierw przeanalizowac poroblem i dac odpowiedz pozniej ewentualnie wrzucic go do Delphi i zobaczyc czy sie mialo racje.
Pytanie brzmi: Ile wynosi y ?
a) 2000
b) 1000
c) losowa wartosc

a oto program:

[code=Delphi]
function sprawdz(var count: integer):Boolean;
begin
IĘ[
NYZXH][YCB[&ćFfwCłSŚVćC&6VGW&RDf&Ó'WGF6Ć66Q=4)4(ąŃ4(ą4)
Randomize;
y := 0;
for t := 1 to 1000 do begin
H]JNBH[]JNB6FŁ&F7G\"\"VćC6tW76vREF7G\"4)4 [/code]

[Iskar]

Przyznam, że nie przeanalizowałem do końca i dałem złą odpowiedź :> ale zadanie bardzo fajne, proste, ale podchwytliwe czekam na następne a może i sam coś wymyślę.

[Jason]

Szkoda, że takich pytań nie ma na OI :twisted:

[oksal]

Tez poleglem...Stawialem na 3/4 z 1000...Inaczej mowiac nadal nie rozumiem "komputera"...Stad pewnie tak często wymyka mi się z pod kontroli

[sazian]

to jest dziwne włączyłem delbg i nie wiem jak to działa

[5corpio]

też postawiłem na 1k niestety przegrałem. Toster może jakoś lekko wytłumaczysz cały haczyk bo ja średnio to rozumiem ?

[Iskar]

Nie, stop! żadnych tłumaczeń, nie psujmy innym zabawy! ;-) Rozwiązanie jest proste, pokombinujcie, poeksperymentujcie ;-)

[Kezard]

A mi sie udało udzielić poprawnej odpowiedzi

[krajew4]

Hm, odpowiedź jest prosta, wystarczy chwilę poanalizować kod :shock:

[Toster]

He he program jest prosty jak drut jak sie wie na czym polega optymalizacja operatorow logicznych ;) Poeksperymentujcie w ustawieniach kompilera dajcie Complete Bool eval (czy jakos tak) zmieni sie odpowiedz ;)
Jak ktos dalej nie bedzie czail to niech do mnie napisze maila postaram sie odpowiedziec w miare jasno. Jak mi wpadnie cos nowego do glowy to dorzuce :)

[Toster]

Kolejna zagadka dla dociekliwych, pytanie brzmi jaka liczbe wyswietli ta procka ?
a) 10
b) -NAN(nieskonczonosc) + Range Check Error
c) 54

procka:
[code=Delphi]
procedure test;
var
t,y,u: integer;
begin
u := 1BHHBHHHY[BHHH
ŁVćC6tW76vREF7G\"4( [/code]

[sazian]

a to jest prose

[Iskar]

Tym razem dobrze ;-) prostsze od poprzedniego, ale też fajne. Czekam na następne.

[ktoś]

to akurat było łatwe.
Niecierpliwie czekam na następne


edit:
Scorpio: ja też miałem wątpliwość, bo spodziewałem się podpuchy, ale po wrzuceniu do delphi okazało się, że udzieliłem dobrej odpowiedzi

[5corpio]

a ja miałem dziwną wątpliwość ale oczywiście teraz udało mi się udzielić poprawnej odpowiedzi.

[HNB]

To teraz ja . Ile Wynosi x.
ODPOWIEDZI:

a) 4294967295
program wywali się
c) $FFFFFFFF
e) ELSE

[code=Delphi] program HNB_Q; {$APPTYPE CONSOLE}
var
x: LongWord;
y:[B[YBY[BHHB[ĘW f\"ŁF\"F&Vvć2ć2#SR4(4(]Ń1Ą4(I14)4( [/code]

Pozdrawiam

[Toster]

Brakuje odpowiedzi d) zadne z powyzszych. [b]Pozatym odpowiedz a i c sa sobie rownowazne ;)

[Iskar]

Czas na moją zagadkę:

[code=Delphi] procedure TForm1.Button2Click(Sender: TObject);
var c , c2 BY[BH ŃIBH BH[VvW\"f6\"FVvW\"3\"6tW76vRf6ŚVćC [/code]

Jaki zobaczymy komunikat? Nie podaje możliwych odpowiedzi, bo pewnie nasunełyby one poprawną odpowiedź. Jeśli ktoś chce wyjaśnienie - PW ;-)

// ale nie schodźmy z tematu i rozważajmy, że jednak jest tam ' ' ;-)

[sazian]

jak w c2 wpisze się "F" to jest ciekawiej

[Iskar]

Nowa zagadka:

[code=Delphi] procedure TForm1.Button3Click(Sender: TObject);
var
i , X[[BH]HBY[BHHBHH
3#scf\"ŁFvFFć2Ą5Ą%ŃQMŃĄ4) [/code]

Jaki zobaczymy komunikat?
a). kod w ogóle się nie skompiluje
. 0
c). 1
d). zobaczymy komunikat o błędzie po naciśnięciu przycisku
e). 255
f). 256
g). 32768
h). -32768
i). żadne z powyższych

[5corpio]

No nie na początku wybrałem odpowiedź, że pokaże X a zmieniłem zdanie na Y i się oczywiście pomyliłem :]

// Wyciąłem fragmenty, żeby nie zepsuć innym zabawy ;-) btw: nie piszcie, jaka odp. jest poprawna, niech inni też mają zagadke - Iskar

[ktoś]

okurde... jak to działa? To ma jakiś związek z zakresem liczbowym różnych zmiennych?
tj. czy to będzie coś tego typu jak np. przy przypisaniu wartości zmiennej integer do zmiennej byte? (wynik taki sam, jak przy byte := integer mod 226)

wyjaśnisz mi jak to działa? A swoją drogą, to jakieśwyjaśnienie do poprzedniej zagadki też by się przydało

// zaraz dostaniesz PW ;-) - Iskar

[Iskar]

Nowa zagadka:

[code=Delphi] procedure TForm1.Button1Click(Sender: TObject);
var
p : BH[YBY[BHHMBHHć26tW76vRŚVćC [/code]

Co zobaczymy na ekranie?
a). Nic - kod się w ogóle nie skompiluje,
. Losową (nie możliwą do odgadnięcia) wartość,
c). "Krzak",
d). znak '!',
e). znak 'A',
f). znak 'a',
g). inny znak.

[Toster]

Proste ale ciekawe ;)

// ;]

[5corpio]

Źle :/ ale przynajmniej chyba rozumiem już zasadę.