Екі өлшемді массив көмегімен есеп шығару

Берілген есепті алдында айтылған кезеңдер бойынша талдайық:

1.1 Есептің мазмұнын түсіну, есепке талдау жүргізу, оның мақсаты;

1.2 Бастапқы берілгендерді анықтаймыз

n-қатар, m-кітап бар, max-ең қымбат кітап, k-кітап саны, S-барлық кітап бағаларының қосындысы.

1.3 Аралық шамалар: n,m

1.4 Есептің нәтижесі ретінде

sum =?

S=?

Max=?

sum :нақ.

K:бүтін

Max: нақты.

1. 
   Кітаптың бағаларының қосындысын табу үшін:
   

2. 
   K-2000 теңгеден арзан кітаптар саны.
   
3. 
   Max[ ]-ең үлкен элементті анықтау.
   
4. 
   a[n,2]:=a[n,3] екінші және үшінші тік жолдағы орналасқан кітаптарды ауыстыру формуласы.
   

1. 
   Матрицаның барлық элементтерінің қосындысын табу.
   
2. 
   Құны 2000-теңгеден арзан тұратын кітаптарды анықтау.
   
3. 
   Кітаптардың бағаларының ішіндегі ең үлкенін анықтау.
   
4. 
   Екінші және үшінші тік жолдағы кітаптардың орнын ауыстыру (меншіктеу операторын пайдалану арқылы)
   

соңыS

,K, maxm

ax:= m

ax< k

:=k+1

<2000S

:=S+

1




J:=m

i:=1,n,1

S:=0



j:=1,n,1

K, n, m, max

i:=1,m,1



5-кезең Есептің алгоритіміне сай программасын құру.

Program esep1

Usescrt

Var n: integer;

m: integer;

k: integer;

max: integer;

S: integer;

a: array[1..n, 1..m] of integer;

begin

clrscr;

S:=0;

writeln (‘Массив элементтерін еңгіз’);

for i:=1 to n do

for j:=1 to m do

Begin

read (a[i, j]);

S:=S+ a[i, j]

End;

k:=0

Begin

for i:=1 to n do

for j:=1 to m do

if a[i, j]<2000 then

writeln (k=’);

if max

write (max);

for i:=1 to n do

for j:=1 to m do

write (a[i,j],’);

writeln;

end;

begin

for i:=1 to n do

for j:=1 to m do

k= a[i, j];

a[i, 2]= a[i, 3];

a[i, j]=k;

end;

writeln;

for i:=1 to n do

begin

for j:=1 to m do

write (a[i, j])

жүктеу/скачать 1,43 Mb.

Достарыңызбен бөлісу: