Iкомпьютер көмегімен есептер шығарутехнологиясы


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



бет9/20
Дата20.12.2021
өлшемі1,43 Mb.
#104168
1   ...   5   6   7   8   9   10   11   12   ...   20
Байланысты:
Iкомпьютер к мегімен есептер шы арутехнологиясы

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

Есеп. Кітапханада математика бөлімінде n қатардан тұратын, әр қатарда m кітаптан бар. Әр кітаптың бағасы әр түрлі. Кітапханада берілген кітаптардың барлығының қосындысын және бағасы 2000 теңгеден аспайтын кітаптар санын, жатық жолдағы ең қымбат кітаптарды табу керек. Екінші және үшінші орындағы кітаптарды ауыстыру керек.

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



1-кезең Есептің қойылуы

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

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

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

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

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

sum =?

S=?


K=?

Max=?


1.5 Нәтижелерді алу формасы

sum :нақ.

K:бүтін

Max: нақты.


2-кезең Есептің математикалық моделіретінде алынатын формулалар:

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

S= деп алуға болады.

  1. K-2000 теңгеден арзан кітаптар саны.

  2. Max[ ]-ең үлкен элементті анықтау.

  3. a[n,2]:=a[n,3] екінші және үшінші тік жолдағы орналасқан кітаптарды ауыстыру формуласы.


3-кезең Есептеу жүргізудудің ең тиімді жолын көрсету.

  1. Матрицаның барлық элементтерінің қосындысын табу.

  2. Құны 2000-теңгеден арзан тұратын кітаптарды анықтау.

  3. Кітаптардың бағаларының ішіндегі ең үлкенін анықтау.

  4. Екінші және үшінші тік жолдағы кітаптардың орнын ауыстыру (меншіктеу операторын пайдалану арқылы)


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   ...   5   6   7   8   9   10   11   12   ...   20




©engime.org 2024
әкімшілігінің қараңыз

    Басты бет