Logare

Utilizator:
Parola:
Retine-ma
Inregistrare

Ultimele noutăţi

Concurs sef de sectie
La prima etapă a concursului pentru ocuparea funcţiei şef de secţie au fost admişi candidaţii: Popovici Tatiana, Florean Mihai şi Edu Inga.Pe data de 19 septembrie 2017 ora 14 10 în sala de lectură a colegiului va avea loc etapa a 2-a - Interviul..

Lucrarea de laborator nr.1
Inapoi la lista cursurilor

Scopul lucrării:

· Argumentarea necesităţii structurării datelor.

· Recunoaşterea şi utilizarea formulelor metalingvistice şi a diagramelor sintactice ale declaraţiilor de tipuri de date în studiu.

· Prelucrarea datelor structurate.

· Alegerea structurii de date, adecvate rezolvării unei

 

Sarcina:

Să se declare un vector bidimensional de mărimea 5x5 cu component de tip întreg, să se introducă valori de la tastatură, se va afișa componentele vectorului și se va calcula conform variantei (nr. calculatorului):

  1. Suma elementelor pare
  2. Suma elementelor impare
  3. Suma elementelor pe diagonala principal
  4. Suma elementelor pe coloana 2
  5. Suma elementelor pe rindul 2
  6. Suma elementelor positive
  7. Numărul elementelor positive
  8. Numărul elementelor negative
  9. Numărul elementelor pare
  10. Numărul elementelor impare
  11. Numărul elementelor = 10
  12. Numărul elementelor divizibile cu 3.
  1. Suma elementelor pare
  2. Suma elementelor impare
  3. Suma elementelor pe diagonal principala
  4. Suma elementelor pe coloana 2
  5. Suma elementelor pe rindul 2
  6. Suma elementelor positive
  7. Numărul elementelor positive
  8. Numărul elementelor negative
  9. Numărul elementelor pare
  10. Numărul elementelor impare
  11. Numărul elementelor = 10
  12. Numărul elementelor divizibile cu 3.

 

Programul exemplu:

Program Vector;

type Matrice=array[1..3, 1..4] of real;

var m : Matrice;

    i, j : integer;    s : real;

begin

 writeln('Dați componentele m[i,j]:');

 for i:=1 to 3 do

   for j:=1 to 4 do

     begin

       write('m[', i, ',', j, ']=');

       readln(m[i,j]);

     end;

 writeln('Ați introdus:');

 for i:=1 to 3 do

   begin

     for j:=1 to 4 do

       write(m[i,j]);

     writeln;

   end;

s:=0;

 for i:=1 to 3 do

   for j:=1 to 4 do

     s:=s+m[i,j];

 writeln('Suma=', s);

readln;

end.

 

Concluzie:

 

lucrarea in format electronic <<>>

ComentariiReinoieste comentariile

Logare

Utilizator:
Parola:
Retine-ma
Inregistrare
Twitter   facebook facebook Mail.ru