Kolik je 2 na druhou?
Prvák bez zaváhání odpoví, že to jsou 4.
Druhák se trošku zamyslí, ověří všechny předpoklady a na kalkulačce spočítá, že to jsou čtyři.
Třeťák napíše několikastránkový program v Pascalu nebo Céčku a po několika hodinách práce doje k výsledku čtyři, ovšem s přesností omezenou kapacitou počítače.
Čtvrťák se zamyslí a už sedí u počítače a vymýšlí nový programovací jazyk vhodný právě pro tento druh úlohy. Po probdělé noci strávené usilovnou prací dostane odpověď, že jsou to asi čtyři, ale není si výsledkem zcela jist, protože použitá metoda je pouze aproximativní a přesnější výsledek by si vyžádal mnohem větší úsilí
Pokud tu samou otázku položíte páťákovi před státnicemi,zoufale složí hlava do dlaní a rozpláče se se slovy: “Copak si musím všechny konstanty pamatovat?”
——————————————————————————————
Malá příhoda závěrem
Alenka:
”program:facka
begin;
readln(facka);”
Irushka:
“writeln(’au’);
end;”
——————————————————————————————
(pro rejpaly a podobné šťourající individua)
var:
dim Target as Osoba
set Target = Irushka
sub Lisk()
pocet = Inputbox “kolikrat:
for i = 0 to pocet
fceFacka(Target, Ruka_Prava, 10)
end sub
public function fceFacka(Cil as Osoba, Cim as Zbran, Sila as integer)
dim Time as double
Time = 0
Do while abs(Cil.x-Cim.x) > 0
Cim.x = Cim.x + 1/2 * Sila / Cim.weight * Time
Time = T+1
Loop
end function
Uložte si tento článek:
Jaggni to!
2. Březen 2008 v 22:20
k opravě tě asi nepřinutím takže si ju pisnu sám.
dim Target as Osoba
set Target = Iruska
sub Lisk()
pocet = Inputbox “kolikrat si to zaslouzi?”
for i = 0 to pocet
fceFacka(Target, Ruka_Prava, 10)
end sub
public function fceFacka(Cil as Osoba, Cim as Zbran, Sila as double)
dim Time as integer, A as double,
Time = 0
A = Sila/ Cim.weight
Do while abs(Cil.x-Cim.x) > 0
A = A * (1-0.5*Time)
Cim.x = Cim.x + 1/2 * A * Time ^ 2
Time = T+1
Loop
Msgbox (”Au!!!”, vbAlert)
end function