ЗАДАНИЕ №3. ПРОГРАММИРОВАНИЕ НА АЛГОРИТМИЧЕСКОМ ЯЗЫКЕ ПАСКАЛЬ

В заданной целочисленной матрице 6x6 вывести индексы всех ее седловых точек (элемент матрицы называется седловой точкой, если он является наименьшим в своей строке и одновременно наибольшим в своем столбце, или наоборот, наибольшим в своей строке и наименьшим в своем столбце).

 

 

3.1 Программа на языке Паскаль

Исходный текст

program new;

const size = 6;

type point = record

x:integer;

y:integer;

value:integer;

end;

var count:integer;

var arr:array[1..size] of array [1..size] of integer;

var arr1:array[1..size] of array [1..size] of integer;

var maxString: array[1..size] of point;

var minString: array[1..size] of point;

var maxCol : array[1..size] of point;

var minCol : array[1..size] of point;

var t:integer; i:integer; j:integer;

var result:array[1..size*size] of point;

begin

count := 0;

for i:=1 to size do

begin

for j:=1 to size do

begin

     writeln('vvedite ',j,' element ',i,' stroki');

     readln(arr[i][j]);

end;

end;

for i:=1 to size do

begin

for j:=1 to size do

begin

     write(arr[i][j]:5,' ')

end;

writeln;

end;

for i:=1 to size do

begin

maxString[i].y := 1;

maxString[i].value := arr[i][1];

minString[i].y := 1;

minString[i].value := arr[i][1];

for j:=1 to size do

begin

      maxCol[j].y := 1;

     maxCol[j].value := arr[1][j];

     minCol[j].y := 1;

     minCol[j].value := arr[1][j];

     if(arr[i][j]>maxString[i].value)

     then

     begin

          maxString[i].value := arr[i][j];

          maxString[i].y := j;

     end;

     if(arr[i][j]<minString[i].value)

     then

     begin

          minString[i].value := arr[i][j];

          minString[i].y := j;

     end;

end;

end;

for j:=1 to size do

begin

maxCol[j].y := 1;

maxCol[j].value := arr[1][j];

minCol[j].y := 1;

minCol[j].value := arr[1][j];

for i:=1 to size do

begin

     if(arr[i][j]<minCol[j].value)

     then

     begin

          minCol[j].value := arr[i][j];

          minCol[j].y := i;

     end;

 

     if(arr[i][j]>maxCol[j].value)

     then

     begin

          maxCol[j].value := arr[i][j];

          maxCol[j].y := i;

     end;

end;

end;

 

Программа разработана для ПЭВМ типа IBM PC и отлажена в среде Turbo-Pascal.

Программа почти полностью соответствует приведенной ниже блок-схеме.

3.2 Блок-схема программы

 

 

3.3 Результаты расчета

 

После компиляции и запуска программы произведено задание исходных данных и получен требуемый результат.

Экран работы программы имеет вид:

 

        

        

 

 

литература

 

1. Гладкий, А.А. Excel. Трюки и эффекты [Текст]/ А.А. Гладкий. – СПб.: Питер, 2006. – 368 с.: ил.

2. Информатика и информационные технологии [Текст]: учебное пособие/ под ред. Ю.Д. Романовой. – 3-е изд., перераб. и доп. – М.: Эксмо, 2008. – 592 с. 

3. Информатика: Практикум по технологии работы на компьютере [Текст]/ под ред. Н.В. Макаровой. - 3-е изд., перераб. - М.: Финансы и статистика, 2005. - 256 с.: ил.

4. Немнюгин, С.А. Turbo Pascal. Программирование на языке высокого уровня [Текст]/ С.А. Немнюгин. - СПб.: Питер, 2003. - 544 с.

5. Симонович, С.В. Информатика: Базовый курс [Текст]: учебник/ С.В.Симонович. – М.: АСТ, 2002. – 640 с.

6. Соболь, Б.В.  Информатика [Текст]: учебник/ Б.В. Соболь. - 3-е изд., доп. и перераб. - Ростов н/Д: Феникс, 2007. — 446 с.

7. Степанов, А.Н. Информатика [Текст]: учебник для вузов/ А.Н. Степанов. - 4-е изд. - СПб.: Питер, 2006. — 684 с.

8. Угринович, Н.Д. Информатика и информационные технологии [Текст]: учебник для 10-11 классов/ Н.Д. Угринович. – М.: БИНОМ. Лаборатория знаний, 2003. – 512 с.: ил.