Logare

Utilizator:
Parola:

Inregistrare

Ultimele noutăţi

IREX Europe
Marți, 05 decembrie 2018, instituția noastră a avut onoarea de a găzdui un expert media din Bulgaria, Petco Georgiev, care a avut misiunea de a monitoriza și evalua activitatea IREX Europe, în cadrul proiectului ,, Consolidarea presei Independente și a Educației Mediatice in Moldova, în par..

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