Desenez (30)

www.desenez.net

* Un nou design la pagina de Contact. Culorile vreau să le mai schimb...

Desenez (29)

www.desenez.net

* Am schimbat header-ul la site. Am pus nişte desene de ale voastre. :D

Din vecini (11)

"O minciună cât o zi de post..."

Din vecini (10)

"Nu te pune cu prostul că are mintea odihnită."

Din vecini (9)

"Darwinismul este o religie pentru că crede în minuni." :D

Desenez (29)

www.desenez.net

* Am modificat numărul maxim de caractere pentru link-ul de la Profil ->Website. Acum puteţi scrie şi link-uri mai lungi.

Semănat şi secerat

Un vizitator trecea prin atelierul unei închisori. El ajunsese la un condamnat care cosea din pânză de cânepă, saci de forţă pentru stat. Ochii lor se întâlniră pentru o clipă fugară, şi vizitatorul dorind să se arate prietenos întrebă doar:
- "Coaseţi?"
- "Nu, secer." fu răspunsul morocănos al condamnatului.

Da. Aşa merge. Nu se întâmplă în alt fel. "Nu vă înşelaţi. Ce seamănă omul, aceea va şi secera." (Galateni 6:7)

(din Numărătoarea inversă - Omenirea în balanţă)

Biblia online

http://www.biblia-online.ro/

^ Acces rapid la versete. E utilă când vrei să copiezi versete... ^

Desenez (28)

www.desenez.net

* Am început să lucrez la secţiunea "profile". De azi vă puteţi completa profilul cu datele personale (Vezi: Profil -> Modifică profil).
Profilul cuprinde deocamdată:
- Nickname (cel ales la crearea contului - nu poate fi modificat)
- Data naşterii
- Locaţie
- Hobby-uri
- Data înregistrării contului
- Despre mine (aici puteţi scrie câte ceva despre voi)
- Website (pagina voastră de internet... blog sau site sau ce aveţi)

Urmează să fac să puteţi încărca o poză personală.
Aştept ideile vostre pentru a face pagina de profil cât mai bine.

HTML pentru introducerea datei de naştere

http://snippets.dzone.com/posts/show/867

Free counter pentru blog sau site...

Am luat de aici şi-mi place.
http://forever-counters.com/

Desenez (27)

www.desenez.net

* Utilizatorii pot de azi să-şi şteargă desenele care nu mai vor să apară pe site.

Călătorie

Budureasa, iulie 2010.

Din vecini (8)

"ROMANIA..... ce tara frumoasa... pacat ca e locuita!"

Moment (10)

Internetul meu are reumatism: când plouă îl dor toate. Mai merge, mai pică, mai merge, mai stă...

Curcubeu

Budureasa, iulie 2010

Moment (9)

Am unele suspiciuni când întâlnesc în muzica creştină nume de artişti ca:
Ionuţ, Nicu, Ovidiu, Simi[...], Surorile [...], Fraţii [...], Vadim, Valer, Vasile.

Tind să cred că e vorba de muzică cu tentă populară sau mai rău: manele.
Excepţiile strică regula.

Titularizare 2010 (10)

Am luat 7.45... Sunt al treilea pe judeţ.
Mâine se face repartizarea posturilor pentru cei cu note peste 7.

La informatică e un singur post titularizabil.
E la liceu, se cere limba maghiară şi avizul de la reformaţi.

Merg să asist. Se preconizează că nu va dura mai mult de 10 minute... (11:45-11:55)

Vezi: www.isjbihor.ro (Acum se poate intra. Au reuşit în final să scoată viruşii.)

Titularizare 2010 (9)

Game over.
http://subiecte2010.edu.ro/Titularizare/

Cer

Nu putem intra în Cer dacă nu intră mai întâi Cerul în noi.

Titularizare 2010 (8)

Mâine e ziua mare. :D
http://isjbihor.ro/isj/mobilitate/docs/anunt_prezenta.pdf

Sunt curios ce coduri de bare ne dă... :)
http://www.calificativ.ro/TITULARIZARE_2010_SECURIZAREA_EXAMENULUI_SE_VA_FACE_PRIN_CODURI_DE_BA-a27363.html

Hamacul invizibil...

Mai multe desene de ale mele găsiţi aici: www.desenegratuite.blogspot.com
sau pe Desenez.net: http://desenez.net/index.php?action=selectautor&autor=GhitaB

27 (7)

Nu m-aţi crezut cu 27? :P Uite atunci:
http://www.evz.ro/detalii/stiri/un-caz-ce-merita-sa-fie-intors-pe-toate-fetele-clasa-celor-27-de-genii-900305/pagina-comentarii/3.html

Titularizare 2010 (7)

Vineri am avut proba practică.
A fost ok.
Am luat 5 bilete corespunzător cu probele date:
- Programare (C++)
- Baze de date (FoxPro)
- Sisteme de operare (Windows)
- Internet
- Microsoft Excel
şi am rezolvat cât am ştiut...

La proba practică rezultatul e fie ADMIS, fie RESPINS...
Nu mi-au zis ce am primit, dar bănuiesc că e ok, mai ales că şi acum şi-au amintit de olimpiadele de info la care am participat. :)

Desenez (26)

www.desenez.net

* Pentru utilizatorii care au cont pe site:

V-ar plăcea să vă puteţi crea un profil public pe site?
Acesta ar conţine câteva informaţii despre voi. De exemplu:
vârsta, data naşterii, locaţia, ocupaţie, hobby-uri, link spre site-ul personal sau blog, etc...
Bineînţeles, completarea profilului va fi opţională.

Puteţi comenta aici:
1. Păreri pro şi contra creării acestei secţiuni.
2. Dacă vreţi profil... ce credeţi că ar fi bine să conţină?

Aştept părerile voastre până la sfârşitul lunii iulie.

Cine răspunde?

Când bate la uşă Cel Rău, lasă-L pe Isus să răspundă.

Mass-ul săptămânii (7)

"foto  :D http://ow.ly/28yZX?=http://www.facebook.com/photo.php"

Hei, virusaţilor! :P


(P.S. "Mass-ul săptămânii" e continuare la "Mesajul săptămânii"...)

Din vecini (7)

"Noi scriem româneşte nu r0m@n3sht3."


Amin!

Titularizare 2010 (6)

Dosarul îmi este validat.

A durat vreo două minute... Am prezentat buletinul (Înaintea mea a fost una fără buletin... Aşteptase şi ea să ajungă numărul de ordine cinci sute optzeci şi ceva, dar degeaba. "Mai vii mâine."), mi-am luat dosarul din teancul cu dosare la Informatică şi am verificat informaţiile împreună cu o doamnă de la un calculator. Mi-a scos la imprimantă cele trei foi cu datele mele şi le-am semnat. Mi-a făcut şi mie o copie şi am plecat...

A durat vreo două minute, fără aşteptarea la coadă. Am plecat dimineaţa de acasă şi am ajuns seara... Deşi se lucra la mai multe calculatoare programul pus la dispoziţie de Ministerul Educaţiei, Cercetării Tineretului şi Sportului era suprasolicitat, nu făcea faţă şi se tot bloca. Acţiunea s-a petrecut la Liceul Teoretic "Onifisor Ghibu". Îmi place să cred că dacă ar fi fost la Gojdu ar fi mers mai repede.

Pe la 11:30 mi-am dat seama că o să-mi petrec toată ziua prin Oradea, aşa că m-am dus la plimbare... :D Am revenit pe la 13:30 ca să constat că între timp numai vreo 50 de canditaţi fuseseră verificaţi. Spre seară a început să meargă mai repede. Mulţi s-au obosit aşteptând şi au plecat...

Vineri la ora 9 am proba practică, la C.N."Emanuil Gojdu" Oradea. Şcoala asta îmi aminteşte numai lucruri faine. Mi-a plăcut mult disciplina de acolo când am făcut practica pedagogică. Am mai fost pe acolo cu ocazia olimpiadelor de informatică din liceu şi anul trecut, tot la titularizare.

Din vecini (6)

Avertizarea dată de un moderator unui utilizator ce nu respecta Regulamentul (pe un forum):


"daca mai dai link-uri catre site-uri cu materiale comerciale date raspindite "free", te paste o fosta subdiviziune a leului."


Adică ban... :P

Moment (8)

Bacalaureat 2010. Gata?
Ce s-a dat la informatică oare?

Comparatie - matrice (varianta Turbo Pascal)

{Se dau doua matrice cu m linii si n coloane. Sa se verifice daca
ele sunt egale.}

program matrice;
var     a, b : array[1..100, 1..100] of integer;
        i, j, m, n: integer;
        is_egale : boolean;

begin
{CITIRE MATRICE}
write('Linii: '); readln(m);
write('Coloane: '); readln(n);
for i := 1 to m do
    for j := 1 to n do

    begin
         write('a[',i,',',j,']=');
         readln(a[i,j]);
    end;

{AFISARE MATRICE}
writeln('Matricea este: ');
for i := 1 to m do
begin
     for j := 1 to n do write(a[i,j], ' ');
     writeln;
end;

{CITIRE MATRICE}
for i := 1 to m do
    for j := 1 to n do

    begin
         write('b[',i,',',j,']=');
         readln(b[i,j]);
    end;

{AFISARE MATRICE}
writeln('Matricea este: ');
for i := 1 to m do
begin
     for j := 1 to n do write(b[i,j], ' ');
     writeln;
end;

{COMPARATIE MATRICE}
is_egale := true;
for i := 1 to m do
    for j := 1 to n do
        if (a[i,j] <> b[i,j])
           then
               begin
                    is_egale := false;
                    break;
               end;
if (is_egale = true) then
   write('Sunt egale.')
else
    write('Nu sunt egale.');
readln;
end.

Media aritmetica a elementelor pare ale unui sir (varianta C++)

//Media aritmetica a elementelor pare
#include <stdio.h>
#include <conio.h>

void main()
{
int a[100], i, n, m, suma;
float medie;
clrscr();
// CITIREA SIRULUI
printf("Numarul de elemente: ");
scanf("%d", &n);
m = 0; suma = 0;
for(i=1; i<=n; i++)
{
printf("a[%d]=", i);
scanf("%d", &a[i]);
if(a[i] % 2 == 0)
{
suma = suma + a[i];
m++;
}
}
// AFISARE
medie = suma / m;
printf("Media elementelor pare: %f", medie);
getch();
}

Media aritmetica a elementelor pare ale unui sir (varianta Turbo Pascal)

{Sa se determine media artimetica a elementelor pare dintr-un vector
de numere intregi.}

program vector;
var     a : array[1..100] of integer;
        i, n, m, suma: integer;
        media : real;

begin
{CITIRE VECTOR SI NUMARARE ELEMENTE PE CATEGORII}
suma := 0; m := 0;
write('Numar de elemente: '); readln(n);
for i := 1 to n do
    begin
         write('a[',i,']=');
         readln(a[i]);
         if(a[i] mod 2 = 0)
         then
                 begin
                          suma := suma + a[i];
                          m := m + 1;
                 end;
    end;

{AFISARE REZULTATE}
media := suma / m;
write('Media elementelor pare: ', media);
readln;
end.

Elemente pozitive, negative si nule intr-un sir (varianta C++)

//Pozitive, negative, nule
#include <stdio.h>
#include <conio.h>

void main()
{
int a[100], i, n, poz, neg, nule;
clrscr();
// CITIREA SIRULUI
printf("Numarul de elemente: ");
scanf("%d", &n);
neg = 0; poz = 0; nule = 0;
for(i=1; i<=n; i++)
{
printf("a[%d]=", i);
scanf("%d", &a[i]);
if(a[i] > 0) poz++;
else
if(a[i] == 0) nule++;
else
neg++;
}
// AFISARE
printf("In sirul citit sunt %d numere pozitive, %d numere negative si %d numere nule.", poz, neg, nule);
getch();
}

Elemente pozitive, negative si nule intr-un sir (varianta Turbo Pascal)

{Sa se scrie un program care numara elementele pozitive, negative si
respectiv nule dintr-un vector parcurgandu-l o singura data.}

program vector;
var     a : array[1..100] of integer;
        i, n, pozitive, negative, nule: integer;

begin
{CITIRE VECTOR SI NUMARARE ELEMENTE PE CATEGORII}
pozitive := 0; negative := 0; nule := 0;
write('Numar de elemente: '); readln(n);
for i := 1 to n do
    begin
         write('a[',i,']=');
         readln(a[i]);
         if (a[i] > 0) then pozitive := pozitive + 1;
         if (a[i] = 0) then nule := nule + 1;
         if (a[i] < 0) then negative := negative + 1;
    end;

{AFISARE REZULTATE}
write('In sirul citit sunt ',pozitive,' numere pozitive, ',negative,
' numere negative si ',nule,' numere nule.');
readln;
end.

Construire sir de patrate perfecte (varianta C++)

//Sir de patrate perfecte
#include <stdio.h>
#include <conio.h>
#include <math.h>

void main()
{
int a[100], b[100], i, n, m;
clrscr();
// CITIREA SIRULUI
printf("Numarul de elemente: ");
scanf("%d", &n);
for(i=1; i<=n; i++)
{
printf("a[%d]=", i);
scanf("%d", &a[i]);
}
// AFISAREA SIRULUI
printf("Sirul citit: ");
for(i=1; i<=n; i++)
printf("%d ", a[i]);

// CONSTRUIRE SIR
m = 0; // dimensiunea sirului de patrate perfecte
for(i=1; i<=n; i++)
if(a[i] == floor(sqrt(a[i]))*floor(sqrt(a[i])))
{
m++;
b[m] = a[i];
}

// AFISAREA SIRULUI
printf("Sirul construit: ");
for(i=1; i<=m; i++)
printf("%d ", b[i]);
getch();
}

Construire sir de patrate perfecte (varianta Turbo Pascal)

{Se citeste de la tastatura un vector cu n (1<=n<=100) componente
de tip intreg. Se cere sa se consctruiasca si sa se afiseze un nou
vector cu componentele patrate perfecte din vectorul initial.}
program vector;
var     a, b : array[1..100] of integer;
        i, n, m: integer;

begin
{CITIRE VECTOR}
write('Numar de elemente: '); readln(n);
for i := 1 to n do
    begin
         write('a[',i,']=');
         readln(a[i]);
    end;
{AFISARE VECTOR}
write('Vectorul citit este: ');
for i := 1 to n do
    write(a[i],' ');

{CONSTRUIRE SIR}
m := 0; {m este dimensiunea sirului contruit de noi}
for i := 1 to n do
    if(a[i] = (trunc(sqrt(a[i]))*trunc(sqrt(a[i]))))
             then
                 begin
                      m := m + 1;
                      b[m] := a[i];
                 end;

{AFISARE SIR CONSTRUIT}
write('Vectorul construit este: ');
for i := 1 to m do
    write(b[i],' ');
readln;
end.

Elemente pozitive de rang impar (varianta C++)

//Elemente pozitive de rang impar
#include <stdio.h>
#include <conio.h>

void main()
{
int a[100], i, n;
clrscr();
// CITIREA SIRULUI
printf("Numarul de elemente: ");
scanf("%d", &n);
for(i=1; i<=n; i++)
{
printf("a[%d]=", i);
scanf("%d", &a[i]);
}
// AFISAREA SIRULUI
printf("Sirul citit: ");
for(i=1; i<=n; i++)
printf("%d ", a[i]);

// AFISARE
printf("Solutie: ");
for(i=1; i<=n; i++)
if((a[i] > 0)&&(i % 2 != 0))
printf("%d ", a[i]);
getch();
}

Elemente pozitive de rang impar (varianta Turbo Pascal)

{Sa se afiseze elementele pozitive de rang impar
dintr-un vector de numere intregi.}
program vector;
var     a : array[1..100] of integer;
        i, n: integer;

begin
{CITIRE VECTOR}
write('Numar de elemente: '); readln(n);
for i := 1 to n do
    begin
         write('a[',i,']=');
         readln(a[i]);
    end;
{AFISARE VECTOR}
write('Vectorul citit este: ');
for i := 1 to n do
    write(a[i],' ');

{AFISARE ELEMENTE POZITIVE DE RANG IMPAR}
write('Elementele pozitive de rang impar: ');
for i := 1 to n do
    if((a[i] > 0) and (i mod 2 <> 0)) then write(a[i],' ');
readln;
end.

Elemente pare de pe pozitii divizibile cu 3 (varianta C++)

//Elemente pare de pe pozitii divizibile cu 3 din vector
#include <stdio.h>
#include <conio.h>

void main()
{
int a[100], i, n;

// CITIREA SIRULUI
printf("Numarul de elemente: ");
scanf("%d", &n);
for(i=1; i<=n; i++)
{
printf("a[%d]=", i);
scanf("%d", &a[i]);
}
// AFISAREA SIRULUI
printf("Sirul citit: ");
for(i=1; i<=n; i++)
printf("%d ", a[i]);

// AFISAREA ELEMENTELOR PARE DE PE POZITII DIVIZIBILE CU 3
printf("Elemente pare de pe pozitii divizibile cu 3: ");
for(i=1; i<=n; i++)
if((a[i] % 2 ==0)&&(i % 3 ==0))
printf("%d ", a[i]);
getch();
}

Elemente pare de pe pozitii divizibile cu 3 (varianta Turbo Pascal)

{Scrieti un program care tipareste elementele pare aflate pe pozitii
divizibile cu 3 dintr-un vector de numere intregi.}
program vector;
var     a : array[1..100] of integer;
        i, n: integer;

begin
{CITIRE VECTOR}
write('Numar de elemente: '); readln(n);
for i := 1 to n do
    begin
         write('a[',i,']=');
         readln(a[i]);
    end;
{AFISARE VECTOR}
write('Vectorul citit este: ');
for i := 1 to n do
    write(a[i],' ');

{AFISARE ELEMENTE PARE DE PE POZITII DIVIZIBILE CU 3}
write('Elementele pare de pe pozitii divizibile cu 3: ');
for i := 1 to n do
    if((a[i] mod 2 = 0) and (i mod 3 = 0)) then write(a[i],' ');
readln;
end.

Afisarea elementelor pare dintr-un vector (varianta C++)

//Elemente pare din vector
#include <stdio.h>
#include <conio.h>

void main()
{
int a[100], i, n;

// CITIREA SIRULUI
printf("Numarul de elemente: ");
scanf("%d", &n);
for(i=1; i<=n; i++)
{
printf("a[%d]=", i);
scanf("%d", &a[i]);
}
// AFISAREA SIRULUI
printf("Sirul citit: ");
for(i=1; i<=n; i++)
printf("%d ", a[i]);

// AFISAREA ELEMENTELOR PARE
printf("Elemente pare: ");
for(i=1; i<=n; i++)
if(a[i] % 2 ==0)
printf("%d ", a[i]);
getch();
}

Afisarea elementelor pare dintr-un vector (varianta Turbo Pascal)

{Sa se afiseze doar elementele pare dintr-un vector de numere intregi.}

program vector;

var     a : array[1..100] of integer;

        i, n: integer;

begin

{CITIRE VECTOR}

write('Numar de elemente: '); readln(n);

for i := 1 to n do

    begin

         write('a[',i,']=');

         readln(a[i]);

    end;

{AFISARE VECTOR}

write('Vectorul citit este: ');

for i := 1 to n do

    write(a[i],' ');

{AFISARE ELEMENTE PARE}

write('Elementele pare din vectorul citit sunt: ');

for i := 1 to n do

    if(a[i] mod 2 = 0) then write(a[i],' ');

readln;

end.

Suma elementelor pozitive dintr-un vector (varianta C++)

Fiind dat un vector de numere intregi sa se determine suma
elementelor pozitive din vector.

#include <stdio.h>
#include <conio.h>

void main()
{
int a[100], i, sum_poz, n;

// CITIREA SIRULUI
printf("Numarul de elemente: ");
scanf("%d", &n);
for(i=1; i<=n; i++)
{
printf("a[%d]=", i);
scanf("%d", &a[i]);
}
// AFISAREA SIRULUI
printf("Sirul citit: ");
for(i=1; i<=n; i++)
printf("%d ", a[i]);

// CALCUL SUMA ELEMENTELOR POZITIVE
sum_poz = 0;
for(i=1; i<=n; i++)
if(a[i]>0)
sum_poz = sum_poz + a[i];
printf("Suma elementelor pozitive este: %d.", sum_poz);
getch();
}

Suma elementelor pozitive dintr-un vector (varianta Turbo Pascal)

Nu e cel mai eficient algoritm, dar cred că e destul de clar. Pentru a spori eficienţa se poate renunţa la afişarea vectorului citit, şi de asemenea, suma se poate calcula în for-ul care citeşte elementele. Astfel se poate ajunge la rezolvarea problemei cu o singură parcurgere a şirului.

{ Fiind dat un vector de numere intregi sa se determine suma
elementelor pozitive din vector. }
program vector;
var     a : array[1..100] of integer;
        i, n, sum_poz: integer;

begin
{CITIRE VECTOR}
write('Numar de elemente: '); readln(n);
for i := 1 to n do
    begin
         write('a[',i,']=');
         readln(a[i]);
    end;
{AFISARE VECTOR}
write('Vectorul citit este: ');
for i := 1 to n do
    write(a[i],' ');

{CALCUL SUMA NUMERELOR POZITIVE}
write('Suma elementelor pozitive: ');
sum_poz := 0;
for i := 1 to n do
    if(a[i]>0) then sum_poz := sum_poz + a[i];
writeln(sum_poz);
readln;
end.

Spaţiu

Apus de soare

Din vecini (5)

incomtestabil


Înaintea lui p, b şi t nu se pune niciodată n, nu-i aşa? :P

Moment (7)

Mulţi cântă...
Puţini mă încântă.

Schimb de fişiere între mai mulţi utilizatori? Idee genială... :P

Asta da idee... :D Pe un forum s-au gândit câţiva să creeze o adresă de mail (Yahoo!) unde să încarce toţi diferite fişiere. Schimb gratuit de informaţii. Parola o ştiu toţi... :) Şi probabil că povestea se va termina când unul mai obraznic va schimba parola. :D

Programul "Hello, World" în C++

#include <stdio.h>
void main()
{
printf("Hello, world!");
}

Grafică în Turbo Pascal

Un exemplu de program în Turbo Pascal care foloseşte grafica şi desenează o linie, un cerc şi un dreptunghi.

uses Graph;

var
 grDriver: Integer;
 grMode: Integer;
 ErrCode: Integer;
begin
 grDriver := Detect;
 InitGraph(grDriver, grMode,' ');
 ErrCode := GraphResult;
 if ErrCode = grOk then
 begin  { Do graphics }
   {Culoare de fond: 0..15}
   setbkcolor(1);
   {Stilul liniilor}
   setlinestyle(0,0,3);
   {Linie: x1, y1, x2, y2}
   line(100, 200, 500, 300);
   {Cerc: x, y, raza}
   circle(400,200,100);
   {Dreptunghi: x1, y1, x2, y2}
   rectangle(100,100,500,300);
   Readln;
   CloseGraph;
 end
 else
   Writeln('Graphics error:', GraphErrorMsg(ErrCode));
end.

Exemplu de program în Turbo Pascal

Nu am programat de mult în Pascal, totuşi mi-am amintit... :)
* Ctrl + F9 - pentru a porni programul
* Alt + F5 - pentru a vedea rezultatele
* Ctrl + Insert - copiere / copy
* Shift + Insert - lipire / paste
* F2 - Save
* Alt + F3 - închide
* Alt + X - ieşire din Turbo Pascal
* Comentariile în Pascal se scriu între acolade: {Comentariu}


Programul de mai jos cuprinde câteva lucruri esenţiale... Multe dintre ele se folosesc des în programe. Aşadar, se observă cum se fac: declaraţia de variabile, citirea şi afişarea lor, atribuirea, un exemplu de buclă for şi citirea şi afişarea unui şir de numere întregi.


program numere;
{Declaratia de variabile}
var n,i : integer;
    s, s1 : string;
    x, y : integer;
    a: array[1..100] of integer;
begin
     {Citire si afisare numar}
     write('n=');
     readln(n);
     writeln('Numarul citit este: ',n);
readln;

     {Citire si afisare string}
     write('s=');
     readln(s);
     writeln('Stringul citit este: ',s);
     {Initializare string}
     s1:= '...Cuvant';
     {Concatenare}
     s:= s + s1;
     writeln('Stringul modificat este: ',s);
readln;

     {Suma a doua numere}
     write('x=');
     readln(x);
     write('y=');
     readln(y);
     n := x + y;
     write('Suma numerelor este: ', n);
readln;

     {Citirea unui sir de numere}
     write('Numarul de numere: ');
     readln(n);
     for i:=1 to n do
         begin
              write('a[',i,']=');
              readln(a[i]);
         end;

     {Afisarea unui sir de numere}
     write('Sirul citit: ');
     for i:=1 to n do
          write(a[i],' ');
readln;
end.