олданылатын техникалық жабдықтар

Практика бөлімі.

Жалпы түсініктер

Бұл есептің программасы Turbo Pascal тілінде жазылған. Программаның орындалуы үшін MS-DOS операция жүйесі Microsoft Windows XP Professional графикалық операциялық жүйесі және Turbo Pascal программалары қажет.

Функционалдық тағайындалу

Turbo Pascal программасы арқылы екі еселі массивті жүзеге асырамыз.

Логикалық құрылымын сипаттау.

1. Программаның аты немесе басы

2-Тұрақты мән беру

3-4.Айнымалыларды сипаттау бөлімі

5. Негізгі программа басы

6. Шығару

7-8.Қайталау операциясы

9.Матрицаны енгізу

10. Қайталау операциясы

11. Құрамды оператор басы

12-13. Меншіктеу

14. Қайталау операциясы

15. Шарт

16-17-18.Құрамды оператор басы, меншіктеу, құрамды оператор соңы

19-20. Меншіктеу, құрамды оператор соңы

21-22-23. Меншіктеу, шарт, құрамды оператор басы

24. Меншіктеу

25-26. Құрамды оператор соңы, меншіктеу

27. Қайталау операциясы

28. Құрамды оператор басы

29. Қайталау операциясы

30-31.шығару

32. Құрамды оператор соңы,программа соңы.

олданылатын техникалық жабдықтар

Процессор

Монитор

Пернетақта

Тышқан

Turbo Pascal есептеуіш программасы

1.Берілгені: А [6,6] массиві берілген. Әр жолдың ең үлкен элементін және әр бағанның ең кіші элементін табу. Табылған элементтердің сәйкес жолдары мен бағандарының орнын ауыстыру;

иә

жоқ

иә

жоқ

иә

жоқ

1 Program Anuar;

2 const n=6;

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

4 max,min,I,j,l,m,e,c:integer;

5 begin

6 writeln (‘vvod’);

7 for i:=1 to n do

8 for j:=1 to n do

9 read (a[i,j]);

10 for l:=1 to n do

11 begin

12 max:=a[l,1];;

13 m:=1;

14 for j:=1 to n do

15 if a[l,j]>max then

16 begin;

17 max:=a[l,j]; m:=j;

18 end;

19 min:=a[1,l]; e:=1;

20 end;

21 min:=a[1,l]; e:=1;

22 if min>a[i,l] then

23 begin

24 min:=a[i,l]; e:=I;

25 end;

26 c:=a[l,m]; a[l,m]:=a[e,l]; a[e,l]:=c;

27 for i:=1 to n do

28 begin

29 for j:=1 to n do

30 write(a[i,j]:4);

31 writeln;

32 end; end.