humor3.txt

************

********

Rodzaje dowodow matematycznych 

Dowod optyczny, zwany tez dowodem "przez oglad" - "...Prosze panstwa, to widac!!..." 

Dowod przez zdrowy rozsadek - "...Prosze panstwa, ale to przeczy zdrowemu rozsadkowi.." 

Dowod przez autorytet - "...Prosze panstwa, tak po prostu jest..." 

Dowod przez rozbicie na dostatecznie duza ilosc przypadkow. 
(I zbagatelizowanie kazdego przypadku.) 

Dowod przez machanie rekami - "tu mozna pomachac rekami na ten temat .." 

Dowod przez zakrzyczenie 

Dowod przez zbagatelizowanie: "alez to jest trywialne.." 

Dowod przez sprowadzenie do przerwy. 

Dowod lekkoatletyczny; "Rzut oka na tablice i widac..." 

Dowod przez oglad i indukcje : "Dla pieciu wymiarow to widac, a dalej przez indukcje." 

Dowod przez przeksztalcenie: "Bierzemy zalozenia, przeksztalcamy, przeksztalcamy, i teza." 

J.w., i przez zaprzeczenie "Bierzemy zalozenia, przeksztalcamy, przeksztalcamy, o rety, co mi
wyszlo!" 

Dowod przez zamachanie rekami 

Dowod przez skorzystanie z tezy 

Dowod przez przeniesienie do pracy domowej 

Dowod perswazyjno-optyczny - "Do cholery, przeciez to widac, no nie?" 

Oryginalny tekst s.p. prof. Jesmanowicza: 
"Profesor na wykladzie mysli A, mowi B, a na tablicy pisze C. A student slyszy D, widzi E, do
kajetu pisze F, a i tak g.. z tego 
rozumie..." 
  




*******






{*******************************}
{*  Kobieta v 1.0 First Beta   *}
{*   (c)  God Software Ltd.    *}
{*-----------------------------*}
{* wersja PC - Marcin Szumiela *}
{*******************************}

program NewKobieta;
uses zebro, biofunkcje;
type umysl_kobiety = record
                           wrazliwosc   : real;
                           inteligencja : shortint;
                           pamiec       : double;
                           szybkosc     : integer;
                           blyskotliwosc: boolean;
                           end;
type zmysly_kobiety = record
                           wzrok, sluch, dotyk, smak, wech,
                           szosty_zmysl : array[1..1000] of byte;
                           end;
type cialo_kobiety = record
                           glowa, szyja, tulow, piersi, rece,
                           siedzenie, lono,
                           nogi : array[1..1000] of byte;
                           end;

type Kobieta_Ptr = ^Kobieta;
     Kobieta     = OBJECT(zebro)
                      umysl     : umysl_kobiety;
                      zmysly    : zmysly_kobiety;
                      cialo     : cialo_kobiety;
                      uroda     : integer; {level}
                      sexapeal  : longint; {level}
                      swiadomosc: array[1..20] of string[100];
                      CONSTRUCTOR init;
                      PROCEDURE make_kobieta_body;
                      PROCEDURE make_attributes; VIRTUAL;
                      FUNCTION ladna: boolean;
                      FUNCTION potwor: boolean;
                      PROCEDURE make_Kobieta;
                      end;

procedure Error(tekst:string);
begin
     writeln(tekst);
     Halt;
end;

Constructor Kobieta.init;
begin
randomize;
     with umysl do
     begin
        wrazliwosc   :=random(1000000);
        inteligencja :=random(127);
        pamiec       :=random(1000000);
        szybkosc     :=random(32767);
        blyskotliwosc:=false;
        end;
if LoadZMYSLY(Zmysly)<>0 then Error('Blad ladowania zmyslow');
end;

Procedure Kobieta.Make_Kobieta_Body;
begin
randomize;
if LoadCIALO(random(10000),random(100),NO_MALE_ATTR,cialo)<>0
      then GetDefaultBody(cialo);
end;

Procedure Kobieta.Make_Attributes;
type attrpoint=^atrybuty;
     atrybuty = array[1..1000] of byte;
var  Kob_attr:attrpoint;

begin
randomize;
sexapeal:=random(1000000);
Kob_attr:=Get_Zebro_Attributes(sexapeal);
if MixAttr(Kob_attr^,Female_Predefined,cialo)<>0
   then Error('Blad dodawania atrybutow kobiecosci!');
end;

Function Kobieta.Ladna:boolean;
var resul:boolean;
begin
uroda:=porownaj_cialo(ideal_body,cialo);
if uroda>50 then resul:=true else resul:=false;
Ladna:=resul;
end;

Function Kobieta.Potwor:boolean;
var resul:boolean;
begin
uroda:=porownaj_cialo(ideal_body,cialo);
if uroda<10 then resul:=true else resul:=false;
Potwor:=resul;
end;

Procedure Kobieta.Make_Kobieta;
begin
Make_Kobieta_Body;
Make_Attributes;
if not ladna then
                 begin
                      if (potwor)
                      then umysl.inteligencja:=umysl.inteligencja+10
                      else inc(umysl.inteligencja);
                      if umysl.wrazliwosc>0 then
                                              dec(umysl.wrazliwosc);
                      umysl.blyskotliwosc:=true;
                 end;
             else
                 begin
                      if umysl.inteligencja>0 then
                                             dec(umysl.inteligencja);
                      inc(umysl.wrazliwosc);
                      umysl.blyskotliwosc:=false;
                 end;
AddSelfInfo(Swiadomosc);
end;

var NowaKobieta:kobieta_ptr;

begin
     New(NowaKobieta);
     NowaKobieta.Init;
     NowaKobieta.Make_Kobieta;
     Writeln('Nowa Kobieta Gotowa !!!');
end.

{Ciekawe Jaka Wam Wyjdzie!}
'

*************




-Jakie jest naczelne haslo Microsoftu od roku 1995?
-"Klopoty to nasza specjalnosc"

-Jak sie nazywa system ochrony plikow w Windows '95?
-"Co ma wisiec, nie utonie!"

-Co to jest Workbench3.1?
-To takie Windows '95, ktore dziala


-Czym sie rozni Maluch '75 od Windows '95?
-Taki Maluch czasem jezdzi

-Windows '95 to system dla ludzi z klasa. Dlaczego?
-Bo zeby ich uzywac trzeba miec wyzsze studia
informatyczne

-Jakie sa trzy najwieksze katastrofy XX wieku?
-Hiroszima '45, Czarnobyl '86 i Windows '95

-Czym sie rozni Windows '95 od granatu?
-Granat ma zawleczke...

-Czemu Windows '95 sa tylko dla doroslych?
-Bo tam sie ciagle cos pieprzy.

-Ile pecetow potrzeba do uruchomienia Windows 3.1?
-Trzy. Na pierwszym cos nie pasuje w konfiguracji, na
drugim nie dziala mysza a na trzecim Windowsy poszly.
Co nie znaczy ze aplikacja tez...

-Czy pecet to dobry komputer?
-Oczywiscie, tylko nie ma dobrego systemu operacyjnego
:)

-Windows '95 dziala. O czym to swiadczy?
-Cos musiales przeoczyc.



                          Microsoft i Windows 

W miesi�czniku XXXX znalaz�em przypadkowy dowcip. Tytu� szpalty: "2 Konfiguracja funkcji Dial-Up Notworking"...I dobrze, bo nie ma prawa working.