George Bacovia

Önbizalom mérleg

Néha pofára kell esni, hogy felébredj...Ha túl magabiztos vagy nagyot csalódhatsz ha nem jön össze valami, ha meg nem bízol magadban akkor sem jó...Minden nap vár valami új...valami kiszámíthatatlan.

ÖNBIZALOM

12.év a Kemény János Elméleti Liceumba

Sulim weboldala

Ne bújj el,mert úgyis látnak...

“Egyikünk élete sem könnyű. És akkor? Legyen bennünk kitartás, és mindenekelőtt bízzunk önmagunkban. Hinnünk kell benne, hogy tehetségesek vagyunk valamiben, és ezt a valamit -kerül, amibe kerül- meg tudjuk valósítani.” (Marie Curie)

O experienţă de neuitat

În weekendul acesta ca şi bursieră am avut parte de o experienţa absolut minunată. Am participat la Tabăra Olimpicilor organizată de Fundaţia Dinu Patriciu în Hotelul Internaţional din Sinaia.

 

M-am întâlnit cu oameni extrem de importanţi. Am ascultat cu atenţie discursul,de fapt discuţia a unor modele precum Dinu Patriciu, Corina Drăgotescu, Petre Roman. Am asistat la workshopuri, teambuildinguri conduse de echipa FOR PEOPLE.Am învăţat să fim egoişti cu Marian Staş,o persoană admirabilă,gândindu-ne la ce ne dorim să realizăm pe plan personal şi profesional peste un an,peste cinci şi zece ani. În urma acestui exerciţiu ne-am dat seama că e mai uşor să ne gândim la 2020 decât la 2011, deoarece în prezent suntem descurajaţi şi nu găsim soluţiile necesare pentru a realiza tot ce ne dorim,dar pe termen lung viitorul sună mult mai tentant.

Sunt foarte recunoscătoare Fundaţiei Dinu Patriciu în special Doamnei Tincuţa Baltag, Aurora Buleandra şi tuturora care se află în spatele acestui eveniment extraordinar.Totodată vreau să mulţumesc olimpicilor şi voluntarilor, în special echipei mov din care am făcut parte, pentru experienţele împărtaşite. Sloganul echipei mele era: "Fă-ţi de cap"cu CAP, la fel am făcut şi noi şi am fost desemnaţi fiind cea mai populară echipă din cele 12 participante.

Sence and sensibility...

Lumea e a noastră

Lumea poate însemna universul,umanitatea, societatea, mulţimea, viaţa, existenţa, etc. Pentru mine însă e mediul în care nemuritorii pot pătrunde cu condiţia de-a schimba ceva.

Fiecare persoană trece prin diferite etape ale vieţii. Copilăria este o lume plină de întrebări,dar totuşi  o perioadă ferită de griji. Apoi urmează adolescenţa, perioada care le da multe bătăi de cap părinţilor reprezintând o perioadă iniţiatică, în care fiecare începe să cunoască mai bine lumea, să-i descopere secretele, să pornească pe cărările neumblate ale vieţii, să se orienteze spre diferite domenii.Adolescentul începe să se cunoască pe sine, descoperă laturile personalităţii lui şi realizează schimbările esenţiale ce îi marchează existenţa. Tentaţiile sunt mari şi riscăm să devenim victimele unor inamici precum alcoolul, ţigările, drogurile sau chiar si internetul. După ce trecem de adolescenţă,ne preocupă tot mai mult întrebări de genul: Cine sunt? Care este scopul meu în viaţa? Cum aş putea să realizez acest scop? şi multe alte întrebări, care dau dovadă că nouă chiar ne pasă, şi chiar vrem să luăm măsuri ceea ce priveşte schimbarea. E greu să iniţiezi ceva, dar totuşi merită, chiar dacă succesul nu e garantat! Privim încrezători spre viitor! Chiar dacă zi de zi la televizor auzim de politicieni arivişti, trebuie să demonstrăm că lumea are nevoie de schimbare.

"Tineretul de ziua de azi..."adeseori auzim această expresie fiind asociată cu valori negative,dar uităm să luăm în considerare acei tineri model care sunt valoroşi şi se luptă pentru a crea o lume mai bună.O lume în care  avem datoria de a-ne asuma responsabilitatea pentru faptele noastre.

Adeseori mă descurajez,dar ascultând următorul refren îmi dau seama că întradevăr noi suntem cei care pot schimba lumea:

"We are the world
We are the children
We are the ones who make a brighter day
So let's start giving
There's a choice we're making
We're saving our own lives
It's true we'll make a better day
Just you and me…"

Ne stă în putere să ne creăm propria lume. Noi, copii şi tineri, reprezentăm viitorul acestei societăţi.Trebuie să fim conştienţi de acest aspect. În viziunea noastră totul are un termen de valabilitate foarte scurt, ne bucurăm cu intensitate de tot ceea ce este trecător, dorind să scăpăm de monotonie şi plictiseală,noi suntem cei mai receptivi schimbării.

Lumea e a noastră!Să trăim în ea din plin folosindu-ne de oportunităţi!

Borsec

EU Tábor 2o1o

türelem rózsát terem...

a GYTIT menedékhelye

Isten hozott mindenkit Marosfőre

bemutatkoznak a csapatok

...mert a kellemes pillanatok hamar elszálnak...

henna

gyöngyfűzés

gipsz festés

kötélmászás

az öreg zsidónak akkor vagyon jókedve mikor táncol az Eu Tábor minden résztvevője 

Isten hozott, hisz csak a jók jöhetnek el
Ülj hát közel, a szeretet éltet, átölel
S ki a csillagok közt él, mind aki rég odaköltözött
Most visszatér s leül a tűz mögött....

telefonfénynél énekelünk... 

nagy a buleee...

rekordkísérlet

kiértékelés...

szily művészkedte,a többit pedig a csapatok 

vége lett...sziasztok 

itt néhány link az EU Táborról szóló videokkal:

http://www.youtube.com/watch?v=Iv8Uql2dgK0
http://www.youtube.com/watch?v=63pcBsmZ2Mk
http://www.youtube.com/watch?v=QLYViMmZtuo
http://www.youtube.com/watch?v=Au3cmzWRmG4 

Ballagási beszéd

Szeretettel és tisztelettel köszöntök mindenkit a 2009/2010-es tanév ballagási ünnepségén.

"A búcsúzónak minden emlék drága,
Egy száraz lomb, egy moha, egy kis kavics,
Hogy emlékezzék a távolban is
A helyre, melyre visszavonja vágya,
Tanú lesz az érzéseiről halálig,
S egy semmi így legdrágább kincsé válik."(Goethe)

Kedves végzősök idén ti vagytok a búcsúzok.Továbblépve magatok után hagyjátok 12 év koktélját.A tapasztalat, tudás, barátság, szerelem, és még ezernyi boldog perc halmozodott föl gazdagabbá téve mindenkit közületek. Első osztályba új környezetbe kerültetek és a szüleitek kíváncsian vártak haza érdeklődve:Milyen volt első iskolanap?Írni, olvasni és számolni tanultatok.Teltek múltak az évek és nehezebb időszak vette kezdetét,a felső tagozat következett,új tantárgyak: fizika, kémia, biológia,és sok érdekes ismeret. Tanáraitoknak sok jót köszönhettek,hogy eljuttattak idáig benneteket és segítettek leendő célotok felé egy lépést tenni,mert ne feledjétek soha: a tudás hatalom, mit nem lehet megvásárolni.Ki gondolta volna,hogy ilyen gyorsan Tovaröppenek a hosszunak a velt diakevek? Vagy, hogy idáig fajul a helyzet: mire a rég várt nap, az iskola vége eljön…Valljuk be…lassan már hiányzik… Van, ami visszahozhatatlanul mögöttetek marad. Mert végul is, ez a sok osztály,a tornaterem,a Kemény János Elméleti Líceum, valahogy mégis összetartozik. Sokan érezhettétek az évek folyamán, hogy a világ változik,hogy a kicsik egyre kisebbek, az újak egyre gyerekesebbek… A végbement változás jelentős: itt váltatok gyerekből felnőtté. Itt formálódott egyéniségetek a sokat látott és sok mindent megért falak között. Nem lesz több szünetbeli nevetés,pletyka,puskázás a “kockafejű” osztálytárstól, óráról való lógás, kosárbajnokság, focimecs, osztálykirándulás, conterstrike verseny.Nem kell szervezzetek maturanduszt,vagy golyabált,többet nem fárasztanak a karácsonyi vagy március 15.-i készülődésekkel sem.A tanulásban ti voltatok a példaképeink, kiemelkedő eredményeket értetek el különböző versenyeken és minden tevékenységen aktivan résztvettetek.Köszönjük nektek a közös élményeket és reméljuk,hogy ti is szivesen örzitek emlékezetetekben. A középiskola megtanított tűrni és elviselni a fájdalmas perceket, megtanított úgy nézni a világra, ahogyan előtte még nem próbáltál. Szoros kapcsolatok alakultak ki,a mindennapok új érzelmeket tápláltak,könnyeket és mosolyt fakasztottak az arcokon. Most vegyes érzelmekkel tele a szivetek:örültök,hogy új dolgokat fedezhettek fel, de könnyeztek a múltért. Fiatalok vagytok, lázadók, tettre készek.Mindeddig csak álmodni mertetek, tervezgetve a jövöt .Itt az idö,hogy érvenyesüljetek a mindennapokba ahol az élet, a munka tárt karokkal vár,s hogy milyen is lesz csupán rajtatok áll.

 

Búcsúzok diáktársaim nevében.Sok sikert kivánunk a vizsgákhoz és döntéseitekhez is!

Nagykorúsítási bálra készült

Nézz a természet szemével, adj esélyt mindenkinek(diszkriminációról)

Türelmetlenül vártam már az első hóvirág megjelenését, a daloló kismadarat, a reményadó napsugarat és a csiklandozó meleg szelőt! Tavasz van, szabadság! - kiáltok fel boldogan, es hangomat elnyeli a természet csendje. Oly csodálatos a természet! Mindig befogad, és nem kérdezi meg honnan jöttél, hova tartasz vagy, hogy ki fia vagy… Őt nem érdekli a bőr színe, a kinézet, a származás, az anyanyelv… Előtte minden ember születésétől fogva egyenlő! Tudós vagy oktalan, koldus vagy gazdag, az ő szeme egyformán néz mindenkire.
Egy szikláról lógatom a lábam, a hátam mögötti fenyőfák közül bújik elő a nap, és árnyékom a völgybe nyúlik. Letekintek kis városomra… Rozsdás sínek, szürke tömbházak, csikorgó kapuk, lyukas kukák, melyben a szemét jobbra-balra nyújtózódik, mint akit éjjel meggyűrt az ágy. Szomorú látvány. Ilyen körülmények közt vajon mi lehet az emberek fejében?!
A tavasz az utcákra csalogatta a város lakóit, és úgy nyüzsögnek-forognak, mint megzavart hangyák a hangyabolyban. Román, magyar, rroma együtt élnek ugyanabban a környezetben, ugyanazon törvények szerint. És mégis másképp néznek egymásra! Jelen vannak a mindig visszatérő konfliktusok, melyek feszültséget okoznak. A kisebbségek megvetése nem megoldás!

Minden ember méltóságát és jogát tisztelni kell! Mi is lenne, ha nem léteznének a megszokott sztereotípiák?!... Sajnos az emberek csak azt látják meg, akit és amit akarnak. Legtöbbször csalódnak azok, akik az első benyomás alapján mondanak ítéletet, de hibájukból nem tanulnak. Ezek az emberek nem a műveltség fegyverét használják.
Mindenki jogos, hogy esélyt kapjon a kibontakozásra. Esélyt kell adnunk mindenkinek a tanulásra, hogy a hátrányos helyzetben levő rromák is erkölcsös életet éljenek, és ne a tudatlanság tengerébe motoszkáljanak. Segítenünk kell nekik, hogy életcélokat tűzzenek maguk elé és vállalják a felelősséget tetteikért! NEM elítélni kellene őket, hanem útbaigazítani, megmutatni mi a jó es mi a rossz! Ez épp olyan, mintha kényszerítenénk egy kisgyereket autót vezetni, és felelőségre vonnánk őt ha elütne valakit.
Semmit változást nem lehet előidézni erőszakkal, kényszerrel. Néha könnyű a gyengébbekkel szembeszállni, mint megbirkózni a problémákkal…
Árnyékom már magam alá süllyedt, a nap nyugovóra tért, a szikla tetején állok, és csak gondolkodok… a megvetés, a különbségtevés, az undor, amivel mindenki rájuk tekint, túl nagy büntetés. Lesz-e valaha igazság számukra is, élvezhetik-e valaha a tavasz szabadságát? Vagy csak a reménnyel maradnak és azzal, hogy a természet előtt mindenki egyenlő!

Feladatok

1.

program sorozat_szamitas;

const Max=100;

var sorozat: array[1..Max] of Real;

n, i: Integer;

novekvo, csokkeno: Boolean;

F: Text;

begin

Assign(F, 'sorozat.in');

{$I-}Reset(F);{$I+}

if IOResult <> 0 then begin

WriteLn('A SOROZAT.IN allomany nem talalhato!');

Halt(1)

end;

n:=0;

while not Eof(F) do begin

n:=n+1;

Read(F, sorozat[n])

end;

novekvo := sorozat[1] <= sorozat[2];

csokkeno := sorozat[1] >= sorozat[2];

for i := 2 to n-1 do begin

if novekvo then novekvo := sorozat[i] <= sorozat[i+1];

if csokkeno then csokkeno := sorozat[i] >= sorozat[i+1];

end;

if novekvo or csokkeno then

WriteLn('IGEN')

else

WriteLn('NEM');

Close(F);

ReadLn;

end.

2.

program pontok_szama;

var n, i, korben: Integer;

r, x, y: Real;

F: Text;

begin

Assign(F, 'pontok.in');

{$I-}Reset(F);{$I+}

if IOResult <> 0 then begin

WriteLn('A PONTOK.IN allomany nem talalhato!');

ReadLn;

Halt(1)

end;

ReadLn(F, n, r);

korben:= 0;

for i:=1 to n do begin

ReadLn(F, x, y);

if x*x + y*y < r*r then

Inc(korben)

end;

Close(F);

Assign(F, 'pontok.out');

Rewrite(F);

WriteLn(F, korben);

Close(F);

end.

3.

program abc_sorrend;

const Maganhangzok = ['A', 'E', 'I', 'O', 'U', 'a', 'e', 'i', 'o', 'u'];

Massalhangzok = ['B', 'C', 'D', 'F', 'G', 'H', 'J', 'K', 'L', 'M', 'N',

'P', 'Q', 'R', 'S', 'T', 'V', 'W', 'X', 'Y', 'Z',

'b', 'c', 'd', 'f', 'g', 'h', 'j', 'k', 'l', 'm', 'n',

'p', 'q', 'r', 's', 't', 'v', 'w', 'x', 'y', 'z'];

StrMagan = 'AEIOUaeiou';

StrMassal = 'BCDFGHJKLMNPQRSTVWXYZbcdfghjklmnpqrstvwxyz';

NrMagan = 10;

NrMassal = 42;

var F: Text;

magan: array[1..NrMagan] of byte;

massal: array[1..NrMassal] of byte;

i: byte;

c: char;

begin

Assign(F, 'szoveg.in');

{$I-}Reset(F);{$I+}

if IOResult<>0 then begin

Write('A "szoveg.in" allomany nem erheto el.');

Readln;

Halt(1)

end;

for i:=1 to NrMagan do magan[i]:=0;

for i:=1 to NrMassal do magan[i]:=0;

while not EOF(F) do begin

Read(F,c);

if c in Maganhangzok then begin

i:= Pos(c, StrMagan);

Inc(magan[i])

end else

if c in Massalhangzok then begin

i:= Pos(c, StrMassal);

Inc(massal[i])

end;

end;

Close(F);

Assign(F, 'eredmeny.out');

Rewrite(F);

Writeln(F, 'Maganhangzok:');

for i:=1 to NrMagan do

if magan[i]<>0 then

Writeln(F, StrMagan[i], '----', magan[i], ' db');

Writeln(F, 'Massalhangzok:');

for i:=1 to NrMassal do

if massal[i]<>0 then

Writeln(F, StrMassal[i], '----', massal[i], ' db');

Close(F)

end.

4.

program elemek_indexei;

const Max=100;

type PNod=^TNod;

TNod=record

szam, index: byte;

bal, jobb: PNod;

end;

var n: Byte;

x: array[1..Max] of byte;

Gyoker: PNod;

F: Text;

procedure Init(var P: PNod);

begin

P^.szam:= 0;

P^.index:= 0;

P^.bal:= nil;

P^.jobb:= nil

end;

procedure Beolvas;

var i: byte;

begin

Assign(F, 'tomb.in');

{$I-}Reset(F);{$I+}

if IOResult<>0 then begin

Write('A "tomb.in" allomany nem erheto el.');

Readln;

Halt(1)

end;

Readln(F, n);

for i:=1 to n do

Read(F, x[i]);

Close(F)

end;

procedure FatEpit(var Gyoker: PNod);

var P: PNod;

i: byte;

procedure Hozzaad(var Gyoker: PNod; P: PNod);

begin

if Gyoker=nil then

Gyoker:= P

else

if P^.szam < Gyoker^.szam then

Hozzaad(Gyoker^.bal, P)

else

Hozzaad(Gyoker^.jobb, P)

end;

begin

for i:=1 to n do begin

New(P);

Init(P);

P^.szam:= x[i];

P^.index:= i;

if i=1 then

Gyoker:= P

else

Hozzaad(Gyoker, P)

end

end;

procedure Kiir;

procedure Atjar(Gyoker: PNod);

begin

if Gyoker<>nil then begin

Atjar(Gyoker^.bal);

Write(F, Gyoker^.index, ' ');

Atjar(Gyoker^.jobb)

end

end;

begin

Assign(F, 'sorrend.out');

Rewrite(F);

Atjar(Gyoker);

Close(F)

end;

procedure FatTorol(var Gyoker: PNod);

begin

if Gyoker<>nil then begin

FatTorol(Gyoker^.bal);

FatTorol(Gyoker^.jobb);

Dispose(Gyoker)

end

end;

begin

Beolvas;

FatEpit(Gyoker);

Kiir;

FatTorol(Gyoker)

end.

5.

program matrix_szamitas;

const Max = 10;

var matrix: array[1..Max, 1..Max] of Byte;

i, j, n: Byte;

F: Text;

begin

repeat

Write('n= '); ReadLn(n);

if (n<2) or (n > Max) then

WriteLn('2 <= n <= ', Max);

until (n>=2) and (n<= Max);

for i:= 1 to n do

for j:= 1 to n do begin

if (i=j) or (i=n+1-j) then

matrix[i,j]:= 0;

if (i>j) and (i<n+1-j) then

matrix[i,j]:= 1;

if (i<j) and (i<n+1-j) then

matrix[i,j]:= 2;

if (i<j) and (i>n+1-j) then

matrix[i,j]:= 3;

if (i>j) and (i>n+1-j) then

matrix[i,j]:= 4;

end;

Assign(F, 'matrix.txt');

Rewrite(F);

for i:= 1 to n do begin

for j:= 1 to n do

Write(F, matrix[i,j]:2);

WriteLn(F);

end;

Close(F);

end.

6.

program oszthatosag;

var n: LongInt;

F: Text;

function Osszeg(n: Longint): LongInt;

var s: LongInt;

begin

s:= 0;

while n>0 do begin

s:= s+ (n mod 10);

n:= n div 10

end;

Osszeg:= s

end;

begin

Assign(F, 'szam.in');

{$I-}Reset(F);{$I+}

if IOResult <> 0 then begin

WriteLn('A SZAM.IN allomany nem talalhato!');

Halt(1)

end;

Read(F, n);

Close(F);

Assign(F, 'valasz.out');

Rewrite(F);

if n mod Osszeg(n) = 0 then

Write(F, 'IGEN')

else

Write(F, 'NEM');

Close(F)

end.

7.

program szamtani_kozeparanyos;

var n, i, szam, min, max: Byte;

atlag: Real;

F: Text;

begin

Assign(F, 'szam.in');

{$I-}Reset(F);{$I+}

if IOResult <> 0 then begin

WriteLn('A SZAM.IN allomany nem talalhato!');

Halt(1)

end;

ReadLn(F, n);

if n>0 then begin

Read(F, min);

max:= min;

for i:= 2 to n do begin

Read(F, szam);

if szam < min then

min:= szam;

if szam > max then

max:= szam

end;

atlag:=(max+min)/2;

Close(F);

Assign(F, 'atlag.out');

Rewrite(F);

Write(F, atlag:5:2);

end;

Close(F)

end.

8.

program szot_kiir;

var F: Text;

szo: string;

i, j, n: byte;

begin

Assign(F, 'szo.in');

{$I-}Reset(F);{$I+}

if IOResult<>0 then begin

Write('A "szo.in" allomany nem erheto el.');

Readln;

Halt(1)

end;

ReadLn(F, szo);

Close(F);

Assign(F, 'szo.out');

Rewrite(F);

n:= Length(szo);

for i:= n downto 1 do begin

for j:=i to n do

Write(F, szo[j]);

WriteLn(F)

end;

Close(F)

end.

9.

program max_szamjegy;

var n, i, szam, s, max, smax: integer;

F: Text;

function osszeg(n: integer): integer;

var s: integer;

begin

s:=0;

while n>0 do begin

s:=s+ n mod 10;

n:= n div 10

end;

osszeg:=s

end;

begin

Write('n='); ReadLn(n);

i:=1;

Write(i,'. szam: '); ReadLn(szam);

max:=szam;

smax:=osszeg(szam);

for i:=2 to n do begin

Write(i,'. szam: '); ReadLn(szam);

s:=osszeg(szam);

if s>smax then begin

max:=szam;

smax:=s

end;

end;

Assign(f, 'out.txt');

Rewrite(F);

Write(F, max);

Close(F);

ReadLn;

end.

10.

program paros_paratlan;

var n, paros, paratlan: Integer;

F: Text;

begin

Assign(F, 'in.txt');

{$I-}Reset(F);{$I+}

if IOResult <> 0 then begin

WriteLn('Az IN.TXT allomany nem talalhato!');

Readln;

Halt(1)

end;

paros:= 0;

paratlan:= 0;

repeat

Read(F, n);

if n<>0 then

if n mod 2 = 0 then

paros:=paros+1

else

paratlan:=paratlan+1

until n=0;

Close(F);

Assign(F, 'out.txt');

Rewrite(F);

WriteLn(F, 'Paros szamok szama: ', paros);

WriteLn(F, 'Paratlan szamok szama: ', paratlan);

Close(F)

end.

11.

program szam_forgatas;

var szam: string;

c: char;

n, i, j: Integer;

F, G: Text;

begin

Assign(F, 'in.txt');

{$I-}Reset(F);{$I+}

if IOResult<>0 then begin

Write('A "in.txt" allomany nem erheto el.' );

Readln;

Halt(1)

end;

ReadLn(F, szam);

Close(F);

n:= Length(szam);

Assign(G, 'out.txt');

Rewrite(G);

WriteLn(G, szam);

for i:= 1 to n-1 do begin

c:=szam[1];

for j:= 1 to n-1 do

szam[j]:=szam[j+1];

szam[n]:=c;

WriteLn(G, szam)

end;

Close(G)

end.

12.

program faktorialis_szamitas;

var n: Byte;

nstart, nveg, i, nr: LongInt;

F: Text;

function osszeg(n: LongInt): LongInt;

var s: LongInt;

function faktorialis(n: LongInt):LongInt;

begin

if n<=1 then faktorialis:=1

else faktorialis:= faktorialis(n-1)*n

end;

begin

s:= 0;

while n>0 do begin

s:=s+faktorialis(n mod 10);

n:=n div 10

end;

osszeg:=s

end;

begin

Assign(F, 'in.txt');

{$I-}Reset(F);{$I+}

if IOResult <> 0 then begin

WriteLn('Az IN.TXT allomany nem talalhato!' );

Readln;

Halt(1)

end;

ReadLn(F, n);

Close(F);

nstart:=1;

nveg:= 9;

for i:=2 to n do begin

nstart:=nstart*10;

nveg:=nveg*10+9

end;

Assign(F, 'out.txt');

Rewrite(F);

nr:=0;

for i:=nstart to nveg do begin

if i=osszeg(i) then begin

WriteLn(F, i);

nr:=nr+1

end;

end;

if nr=0 then

WriteLn(F, 'Nincs ilyen szam!');

Close(F)

end.

13.

program matrix;

const Max = 10;

var matrix: array[1..Max, 1..Max] of Byte;

i, j, n: Byte;

F: Text;

begin

repeat

Write('n= '); ReadLn(n);

if (n<2) or (n > Max) then

WriteLn('2 <= n <= ', Max);

until (n>=2) and (n<= Max);

for i:= 1 to n do

for j:= 1 to n do begin

if i=j then

matrix[i,j]:= 0;

if i>j then

matrix[i,j]:= 1;

if i<j then

matrix[i,j]:= 2;

end;

Assign(F, 'matrix.txt');

Rewrite(F);

for i:= 1 to n do begin

for j:= 1 to n do

Write(F, matrix[i,j]:2);

WriteLn(F);

end;

Close(F);

end.

14.

program szimmetrikus_tomb;

const max=10;

var tomb: array[1..max, 1..max]of integer;

n, i, j: integer;

szimetrikus: boolean;

F: Text;

begin

Assign(F, 'matrix.txt');

{$I-}Reset(F);{$I+}

if IOResult <> 0 then begin

WriteLn('A MATRIX.TXT allomany nem talalhato!' );

Halt(1)

end;

ReadLn(F, n);

for i:=1 to n do

for j:=1 to n do

Read(F, tomb[i,j]);

Close(F);

szimetrikus:= true;

for i:=1 to n do

for j:=1 to n do

if tomb[i,j]<>tomb[j,i] then

szimetrikus:=false;

if szimetrikus then

WriteLn('Szimetrikus matrix')

else

WriteLn('Nem szimetrikus matrix');

WriteLn('ENTER - folytatas...');

ReadLn;

end.

15.

program primszamok;

var n, szam, talaltprimek: Integer;

F: Text;

function prim(szam: Integer): Boolean;

var p:boolean;

i: Integer;

begin

if (szam=1) or (szam=2) then p:= true

else

if szam mod 2 = 0 then p:= false

else begin

p:= true;

for i:= 3 to round(sqrt(szam)) do

if szam mod i = 0 then p:= false

end;

prim:= p;

end;

begin

Write('n= '); ReadLn(n);

Assign(F, 'primek.out');

Rewrite(F);

talaltprimek:= 0;

szam:=1;

repeat

if prim(szam) then begin

Writeln(F, szam);

talaltprimek:= talaltprimek+1;

end;

szam:=szam+1;

until talaltprimek>=n;

Close(F)

end.

16.

program fibonacci_szam;

var n: Integer;

F: Text;

function fibonacci(szam: Integer): Boolean;

var a, b, c: Integer;

begin

if (szam=0) or (szam=1) then fibonacci:= true

else begin

a:=0;

b:=1;

c:=1;

repeat

a:=b;

b:=c;

c:=a+b;

until c>=szam;

if c=szam then fibonacci:= true

else fibonacci:= false

end;

end;

begin

Assign(F, 'szam.txt');

{$I-}Reset(F);{$I+}

if IOResult<>0 then begin

Write('A "szam.txt" allomany nem erheto el.' );

Readln;

Halt(1)

end;

Read(F, n);

if fibonacci(n) then

WriteLn(n, ' fibonacci szam.')

else

WriteLn(n, ' nem fibonacci szam.');

Close(F);

WriteLn;

WriteLn('ENTER - folytatas...');

ReadLn;

end.

17.

program binaris_szam;

var binaris: string;

n, i, szam, hatvany: Integer;

F: Text;

begin

Assign(F, 'binaris.txt');

{$I-}Reset(F);{$I+}

if IOResult<>0 then begin

Write('A "binaris.txt" allomany nem erheto el.' );

Readln;

Halt(1) {ki és leállítjuk a programot }

end;

ReadLn(F, binaris);

Close(F);

n:= Length(binaris);

hatvany:= 1;

for i:= 1 to n-1 do

hatvany:= 2*hatvany;

szam:= 0;

for i:= 1 to n do begin

if binaris[i]='1' then

szam:= szam+hatvany;

hatvany:=hatvany div 2

end;

WriteLn('A ', binaris, ' binaris szam tizes szamrendszerben= ' , szam);

WriteLn;

WriteLn('ENTER - folytatas...');

ReadLn

end.

18.

 program prim_osztoi;

var n, i: Integer;

F: Text;

function prim(szam: Integer): Boolean;

var p:boolean;

i: Integer;

begin

if (szam=1) or (szam=2) then p:= true

else

if szam mod 2 = 0 then p:= false

else begin

p:= true;

for i:= 3 to round(sqrt(szam)) do

if szam mod i = 0 then p:= false

end;

prim:= p;

end;

begin

Assign(F, 'szam.txt');

{$I-}Reset(F);{$I+}

if IOResult<>0 then begin

Write('A "szam.txt" allomany nem erheto el.' );

Readln;

Halt(1)

end;

ReadLn(F, n);

Close(F);

Write('A(z) ', n, ' szam prim osztoi: ');

for i:= 1 to n do

if n mod i = 0 then

if prim(i) then

Write(i, ' ');

WriteLn;

WriteLn('ENTER - folytatas...');

ReadLn

end.

19.

program kettes_szamrendszer;

var n, m: Integer;

s: string;

F: Text;

begin

Assign(F, 'szam.txt');

{$I-}Reset(F);{$I+}

if IOResult<>0 then begin

Write('A "szam.txt" allomany nem erheto el.' );

Readln;

Halt(1)

end;

Read(F, n);

Close(F);

s:='';

m:= n;

while m>0 do begin

if m mod 2 = 0 then

s:='0'+s

else

s:='1'+s;

m:=m div 2

end;

WriteLn(n, ' kettes szamrendszerben: ', s);

WriteLn;

WriteLn('ENTER - folytatas...');

ReadLn

end.

20.

program palindrom;

var n: Integer;

F: Text;

function fordit(n: Integer): Integer;

var m: Integer;

begin

m:= 0;

while n>0 do begin

m:= 10*m + n mod 10;

n:= n div 10

end;

fordit:= m

end;

begin

Assign(F, 'szam.txt');

{$I-}Reset(F);{$I+}

if IOResult<>0 then begin

Write('A "szam.txt" allomany nem erheto el.' );

Readln;

Halt(1)

end;

Read(F, n);

Close(F);

if n=fordit(n) then

WriteLn(n, ' palindrom szam.')

else

WriteLn(n, ' nem palindrom szam.');

WriteLn;

WriteLn('ENTER - folytatas...');

ReadLn

end.

21.

program szam_csere;

const max=100;

var n, i: Integer;

a: array[1..max] of Integer;

F, G: Text;

procedure rendez;

var i, seged: Integer;

vancsere: boolean;

begin

repeat

vancsere:= false;

for i:=1 to n-1 do

if a[i]<a[i+1] then begin

seged:= a[i];

a[i]:= a[i+1];

a[i+1]:= seged;

vancsere:= true

end;

until not vancsere;

end;

begin

Assign(F, 'szamok.txt');

{$I-}Reset(F);{$I+}

if IOResult<>0 then begin

Write('A "szamok.txt" allomany nem erheto el.' );

Readln;

Halt(1)

end;

ReadLn(F, n);

for i:= 1 to n do

Read(F, a[i]);

Close(F);

rendez;

Assign(G, 'rendez.txt');

Rewrite(G);

for i:= 1 to n do

Write(G, a[i], ' ');

Close(G)

end.

22.

program osszeg;

var x, tag, s: Real;

n, i: Integer;

F: Text;

begin

Write('x= '); ReadLn(x);

Write('n= '); ReadLn(n);

s:= 1;

tag:= 1;

for i:= 1 to n do begin

tag:= tag*x/i;

s:= s+ tag

end;

Assign(F, 's.txt');

Rewrite(F);

Write(F, s:8:2);

Close(F)

end.

23.

program primszam;

var n: Integer;

F: Text;

function prim(szam: Integer): Boolean;

var p:boolean;

i: Integer;

begin

if (szam=1) or (szam=2) then p:= true

else

if szam mod 2 = 0 then p:= false

else begin

p:= true;

for i:= 3 to round(sqrt(szam)) do

if szam mod i = 0 then p:= false

end;

prim:= p;

end;

begin

Assign(F, 'in.txt');

{$I-}Reset(F);{$I+}

if IOResult<>0 then begin

Write('A "in.txt" allomany nem erheto el.' );

Readln;

Halt(1)

end;

while not Eof(F) do begin

ReadLn(F, n);

Write(n:6);

if prim(n) then

WriteLn(' IGEN')

else

WriteLn(' NEM');

end;

Close(F);

WriteLn('ENTER - folytatas...');

ReadLn

end.

24.

program  max_paros;

var n, max, paros: Integer;

F: Text;

begin

Assign(F, 'be.txt');

{$I-}Reset(F);{$I+}

if IOResult<>0 then begin

Write('A "be.txt" allomany nem erheto el.' );

Readln;

Halt(1)

end;

if not Eof(F) then

ReadLn(F, n);

max:= n;

if n mod 2 = 0 then

paros:= 1

else

paros:= 0;

while not Eof(F) do begin

ReadLn(F, n);

if n>max then

max:= n;

if n mod 2 = 0 then

paros:= paros+1

end;

Close(F);

WriteLn('A legnagyobb szam: ', max);

WriteLn('A paros szamok szama: ', paros);

WriteLn('ENTER - folytatas...');

ReadLn

end.