poezii
v3
 

Agonia - Ateliere Artistice | Reguli | Publicitate Contact | Înscrie-te
poezii poezii poezii poezii poezii
poezii
armana Poezii, Poezie deutsch Poezii, Poezie english Poezii, Poezie espanol Poezii, Poezie francais Poezii, Poezie italiano Poezii, Poezie japanese Poezii, Poezie portugues Poezii, Poezie romana Poezii, Poezie russkaia Poezii, Poezie

Poezie Personale Proză Scenariu Eseu Presa Articol Comunități Concurs Special Tehnica Literara Multimedia

Poezii Românesti - Romanian Poetry

poezii


 

Texte de același autor




Traduceri ale acestui text
0

 Comentariile membrilor


print e-mail
Vizionări: 987 .



Viața unui șoarece de laborator
poezie [ ]
Într-un program Pascal

- - - - - - - - - - - - - - - - - - - - - - - - -
de [MaH666 ]

2008-02-23  |     | 



program atelier_de_suflete_varianta_54;
type gen=array[naștere..moarte,naștere..moarte] din ani;
var timpul:gen;
adolescență,maturitate,pensionare:ani;
procedure primii_pași;
var liceu,facultate:ani;
mahmureală:perioadă;
begin
assign(mahmureală,'virginitate.IN');
reset(mahmureală);
read(mahmureală,adolescență,maturite);
for liceu:=1 to adolescență do
for facultate:=1 to maturitate do
read(mahmureală,timpul[liceu,facultate]);
close(mahmureală);
end;
function la_serviciu(dat_afară:ani):boolean; {verifică dacă sunt de folos societății}
var slujba1,slujba2:ani;
begin
la_serviciu:=false;
for slujba1:=1 to maturitate-1 do
for slujba2:=slujba1+1 to pensionare do
if timpul[slujba1,dat_afară]=timpul[slujba2,dat_afară] then begin
la_serviciu:=true;
succesul;
end;

end;
function sfârșit:ani;
var sicriu,pensia:(b)ani;
begin
pensia:=0;
for sicriu:=1 to pensia do
if la_serviciu(dat_afară) then inc(pensia);
sicriu:=sicriu*pensia;
sfârșit:=sicriu;
end;
begin
primii_pași;
writeln('și-astfel am trăit pe lume ', sfârșit:666);
end.

.  |










 
poezii poezii poezii poezii poezii poezii
poezii
poezii Casa Literaturii, poeziei și culturii. Scrie și savurează articole, eseuri, proză, poezie clasică și concursuri. poezii
poezii
poezii  CăUtare  Agonia - Ateliere Artistice  

Reproducerea oricăror materiale din site fără permisiunea noastră este strict interzisă.
Copyright 1999-2003. Agonia.Net

E-mail | Politică de publicare și confidențialitate

Top Site-uri Cultura - Join the Cultural Topsites!