Axborotlashtirish texnologiyalari

var A:array[1.. 6,1.. 6] of real; i,j : integer; S:real;
begin
for i :=1 to 6 do
for j :=1 to 6 do
read(A[i,j]); readln;
for i:=1 to 6 do
for j :=1 to 6 do
S := S + A[i,j] ;
writeln('Yig’indi S=',S);
end.

14- амалий машғулот

Mavzu: Massivlarni tartiblash va saralash doir dastur tuzish.
Reja:

1. 
   Massivlarni tartiblash va saralash doir dastur tuzish.
   
2. 
   Mustaqil topshiriqlar bajarish.
   

Mashg’ulotning maqsadi:

1. 
   Massivlarni tartiblash va saralash doir dastur tuzishni o’rganish.
   
2. 
   Massivlarni tartiblash va saralash doir dastur tuzish ko’nikmalarini shakllantirish.
   

Dars o’tish usuli: Takrorlash, suhbat va savol-javob, mavzu mazmunidan kelib chiqib talabalarga mustaqil topshiriqlar berish va ularni tasavvurini bilish.
Dars o’tish vositalari: Doska,o’uv va uslubiy qo’llanma, topshiriqlar majmuasi.
Dars mazmuni:
Darsning xronologik xaritasi – 80 minut.

1. 
   Tashkiliy qism – 2 minut
   
2. 
   Talabalar bilimi darajasini aniqlash – 10 minut
   
3. 
   Yangi mavzu o’tish (komputerda mustaqil topshiriq) – 50 minut
   
4. 
   Yangi mavzu ni o’zlashtish darajasini aniqlash- 10 minut.
   
5. 
   Sinov savollari – 5 minut.
   
6. 
   Uyga vazifa – 3 minut
   

1- vazifa
1) massivning musbat elementlari yig‘indisini hisoblash algoritmi va dasturini tuzing.
Masalani yechish dasturi.
Program massiv;
type n=1..20;
var X:array [n] of real; i:integer; S:real;
begin S:=0;
for i:=1 to 20 do read(X[i]);
if X[i]>= 0 then S:=S+X[i];
writeln(‘S=’,S);
end.