Forum of Horatiu Roman - Enjoy
 
AcasaAcasa  CalendarCalendar  FAQFAQ  CautareCautare  InregistrareInregistrare  MembriMembri  GrupuriGrupuri  Harta vizitatorilorHarta vizitatorilor  Conectare  
Conectare
Utilizator:
Parola:
Conectare automata: 
:: Mi-am uitat parola
Cautare
 
 

Rezultate pe:
 
Rechercher Cautare avansata
Ultimele subiecte
» pacat ca acest forum nu mai este activ
Scris de crr_ro 12th Septembrie 2016, 3:42 pm

» CULOAREA VIETII
Scris de EUGEN 19th Iunie 2012, 3:43 pm

» Povestea lui Iov
Scris de Genesis 7th Aprilie 2011, 8:50 am

» transpun.txt
Scris de Horace 24th Ianuarie 2011, 7:32 am

» MAZEGAME
Scris de Horace 2nd Iunie 2010, 1:31 pm

» nebunie
Scris de Vizitator 24th Februarie 2010, 8:50 am

Cine este conectat?
In total este 1 utilizator conectat: 0 Inregistrati, 0 Invizibil si 1 Vizitator

Nici unul

Recordul de utilizatori conectati a fost de 13, 5th Iunie 2009, 12:33 am
Statistici
Avem 57 membri inregistrati
Cel mai nou utilizator inregistrat este: alinatim

Membrii nostri au postat un numar de 1064 mesaje în 108 subiecte

Distribuiți | 
 

 nebunie

Vezi subiectul anterior Vezi subiectul urmator In jos 
AutorMesaj
Horace
Admin
Admin
avatar

masculin Numarul mesajelor : 298
Varsta : 24
Muzica : psihedelica
Reputatie : 10
Data de inscriere : 12/05/2007

MesajSubiect: nebunie   8th Ianuarie 2010, 9:54 am

un joc nou:
Cod:
program unjoc;
uses crt;
var k:char;
right,exit:boolean;
n,i:byte;
speed:word;
score,time:longint;


procedure init;
begin
speed:=5;
time:=100;
score:=0;
end;

begin
init;
exit:=false;
n:=1;
right:=true;
repeat
while not keypressed do
  begin
  for i:=1 to 49 do begin
  if n in [30..50] then textcolor(yellow) else textcolor(white);
  gotoxy(n-1,i);write(' ');gotoxy(n,i); write(char(3)); gotoxy(n+1,i);write(' ');
  end;
  if right then begin if n<79 then n:=n+1 else begin {capat dr}
                                              right:=false;
                                              sound(800);delay(10);nosound;
                                              end;
                                              end
          else if n>1 then n:=n-1 else begin {capat stf}
                                        right:=true;
                                        sound(400);delay(10);nosound;
                                        end;
  delay(speed);time:=time-1;
  end;
k:=readkey;
case k of
  #27: exit:=true;
  'p': if n in [30..50] then time:=time+10 else time:=time-10;
  end;
until exit;
end.

_________________
de obicei nu am dreptate. dovedeste!
Sus In jos
Vezi profilul utilizatorului http://horacehomepage.great-forum.com
spam lin
Vizitator



MesajSubiect: Rx9l   17th Ianuarie 2010, 7:26 pm

Cod:
http://e-castig.com/index.php?r=Rx9l
Sus In jos
hor
Vizitator



MesajSubiect: asdf   12th Februarie 2010, 9:48 am

Cod:
program unjoc;
uses crt;
var k:char;
right,exit:boolean;
n,i:byte;
speed:word;
score,time:longint;


procedure init;
begin
clrscr;
speed:=5;
time:=100;
score:=0;
end;

procedure drawstats;
begin
gotoxy(1,1);
writeln(time,'  ');
gotoxy(1,2);
writeln(score,'  ');
gotoxy(1,3);
writeln(speed,'  ');
end;



procedure step;
  begin
  textcolor(white);
  drawstats;
  for i:=1 to 49 do begin
  if n in [30..50] then textcolor(yellow) else textcolor(white);
  gotoxy(n-1,i);write(' ');gotoxy(n,i); write(char(3)); gotoxy(n+1,i);write(' ');
  end;
  if right then begin if n<79 then n:=n+1 else begin {capat dr}
                                              right:=false;
                                              sound(800);delay(10);nosound;
                                              end;
                                              end
          else if n>1 then n:=n-1 else begin {capat stf}
                                        right:=true;
                                        sound(400);delay(10);nosound;
                                        end;
  delay(speed);time:=time-1;
  end;


procedure keys;
begin
k:=readkey;
case k of
  #27: exit:=true;
  'p': if n in [30..50] then time:=time+10 else time:=time-10;
  end;
end;


begin
init;
exit:=false;
n:=1;
right:=true;
repeat
while not keypressed do step;
keys;
until exit;
end.
Sus In jos
electron
Vizitator



MesajSubiect: info   19th Februarie 2010, 9:53 am

Cod:

{sa se creeze un simulator al unor puncte cu sarcina electrostatica.
punctele pot fi de 2 tipuri, statice si dinamice si pot avea sarcina de la
-100 pana la 100, real.
Cand 2 puncte se intalnesc, fac schimb de sarcina si se comporta ca atare.}
program electrostatic;
uses crt;
type punct=record
    x,y:real;
    s:integer;
    dir:0..360;
    speed:real;
    dyn:0..1;
    end;
var x,y:array[1..100] of punct;
i,j,n:integer;
f:text;
sim,esc:boolean;

procedure init;
begin
assign(f,'date.pun');
reset(f);
readln(f,n);
for i:=1 to n do begin
  with x[i] do readln(f,x,y,s,dir,speed,dyn);
  y[i]:=x[i];
  end;
close(f);
end;

procedure keys;
var k:char;
begin
if keypressed then
  k:=readkey;
  case k of
  #27:esc:=true;
  's': sim:=not sim;
  end;
end;

procedure draw;
begin
gotoxy(1,1);writeln(n);
for i:=1 to n do
  with x[i] do begin
  gotoxy(trunc(x),trunc(y));if s>0 then write('+') else write('-');
  end;
end;






procedure step;
begin
for i:=1 to n do begin
    for j:=1 to n do begin

    end;
    x[i]:=y[i];
end;
sim:=not sim;
draw;
end;

begin
init;
draw;
repeat
keys;
if sim then step;
until esc;
writeln;writeln;writeln;
end.
Sus In jos
joc info
Vizitator



MesajSubiect: Re: nebunie   24th Februarie 2010, 8:50 am

Cod:
program unjoc;
uses crt;
var k:char;
setscore,music,right,exit:boolean;
n,i:byte;
speed:word;
score,time:longint;
c:char;

procedure init;
begin
clrscr;
randomize;
music:=false;
speed:=8;
time:=1000;
score:=0;
exit:=false;
c:='p';
end;

procedure drawstats;
begin
gotoxy(1,1);
writeln(time,'  ');
gotoxy(1,2);
writeln(score,'  ');
gotoxy(1,3);
writeln(speed,'  ');
gotoxy(1,4);
write('PRESS ');textcolor(cyan);write(c);
end;



procedure step;
begin
textcolor(white);
drawstats;
inc(score);
for i:=1 to 49 do begin
  if n in [30..50] then textcolor(yellow) else textcolor(white);
  gotoxy(n-1,i);write(' ');gotoxy(n,i); write(char(3)); gotoxy(n+1,i);write(' ');
  end;
if right then begin if n<79 then n:=n+1 else begin {capat dr}
                                              right:=false;
                                              if music then sound(800);
                                              delay(10);nosound;
                                              end;
                                              end
          else if n>1 then n:=n-1 else begin {capat stf}
                                        right:=true;
                                        if music then sound(400);
                                        delay(10);nosound;
                                        end;
delay(speed);time:=time-1;
if random(50)=1 then right:=not right;
if random(500)=1 then c:=char(ord(random(27)+96));
if time<=0 then begin
              setscore:=true;
              exit:=true;
              end;
end;


procedure keys;
begin
k:=readkey;
case k of
  #27: exit:=true;
  else if (k=c) and (n in [30..50]) then time:=time+100 else time:=time-50;
  end;
if speed in [7..12] then inc(speed,random(3)-1);
if random(2)=1 then right:=not right;
end;

procedure drawscore;
begin
clrscr;
gotoxy(1,20);writeln('You ran out of time. Your score was ',score);
end;

begin
init;
exit:=false;
n:=1;
right:=true;
repeat
step;
if keypressed then keys;
until exit;
if setscore then begin drawscore;
                      readln
end;
end.

jocul in varianta beta
Sus In jos
Continut sponsorizat




MesajSubiect: Re: nebunie   

Sus In jos
 
nebunie
Vezi subiectul anterior Vezi subiectul urmator Sus 
Pagina 1 din 1

Permisiunile acestui forum:Nu puteti raspunde la subiectele acestui forum
Forum || Horace Homepage :: Discutii :: Informatica si calculatoare-
Mergi direct la: