agonia
romana

v3
 

Agonia - Ateliere Artistice | Reguli | Mission 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

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

Poezii Romnesti - Romanian Poetry

poezii


 


Texte de acelaşi autor


Traduceri ale acestui text
0

 Comentariile membrilor


print e-mail
Vizionări: 2232 .



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!