Logare

Utilizator:
Parola:

Inregistrare

Ultimele noutăţi

25 de ani de la fondare
În ziua de 21 noiembrie la ora 12 00 în sala de festivităţi sunt invitaţi toţi doritorii la sărbătoarea "25 de ani de la fondarea colegiului". Aşteptăm cu drag toţi absolvenţii colegiului, colegi de ramură, oaspeţi şi părinţi...

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