Free pascalban vicces programot, hogy lehet csinálni, lehet-e?

Milyen "vicces programot" akarsz csinálni?

Technikailag abban is bármit meg lehet írni, csak max kicsit több munka.

Nahát, Éjbenjáró, mi az, hogy nincs értelme? Hol voltál, amikor a programozás főbb trendjeit tanultátok:

Vicces programok, érdekes programok, sípolós programok, lelkesítő programok, olcsó programok, bosszantó- és unalmas programok, valamint olyan programok, amelyikben macska is szerepel.

program nesze_egy_macskas;

uses crt;

const

lab: array[-1..1] of string[7]=('// \\','',' \\ //');

var

x,y,irany,lepes,laballas: integer;

procedure fejrajz;

begin

textcolor(red); gotoxy(x+irany-1,y); write('A_A');

textcolor(lightgreen); gotoxy(x+irany-1,y+1); write('O');

textcolor(red); write('o');

textcolor(lightgreen); write('O');

gotoxy(x+irany-1,y+2);

textcolor(lightgray); write('=');

textcolor(lightred); write('v');

textcolor(lightgray); write('=');

gotoxy(x+irany,y+3); textcolor(red); write('Z');

end;

procedure testrajz;

begin

if irany>0 then begin

gotoxy(x-3,y+2); write('/'); gotoxy(x-3,y+3); write('\');

end

else begin

gotoxy(x+3,y+2); write('\'); gotoxy(x+3,y+3); write('/');

end;

gotoxy(x-2,y+4); write('MMMMM');

gotoxy(x-3,y+5); write(lab[laballas]); laballas:=-laballas;

end;

procedure torles;

var ty: integer;

begin

for ty:=y to (y+5) do begin gotoxy(x-3,ty); write(' '); end;

end;

begin

cursoroff; textcolor(black); clrscr;

textcolor(cyan); gotoxy(35,18); writeln('Tabaki 2012.');

irany:=2; lepes:=1; laballas:=1; x:=4; y:=10;

repeat

fejrajz; testrajz; delay(200); torles; x:=x+lepes;

if x>76 then begin lepes:=-1; irany:=-2; end

else if x<5 then begin lepes:=1; irany:=2; end;

until keypressed;

cursoron;

end.

program viccesmacska;

uses crt;

var i: byte;

Begin

clrscr;

write("Szereted a vicces macskákat?");

readln(i);

clrscr;

if i<50 then writeln("

Két rendőr megy az utcán. Az egyik talál valamit a földön.

Kérdi a másikat:

- Te mi ez?

- Nem tudom.

Lehajol és beleharap.

- Te, ez macskaszar!

- Add ide! - mondja a másik rendőr, és ő is beleharap.

- Te! Ez tényleg macskaszar!

- Hú, még jó, hogy nem léptünk bele!");

else writeln("RETEK!!!");

End.