5. Пример Расчетно-графической работы

Приведем пример оформления и выполнения Расчетно-графической работы на некотором варианте.

5.1. Образец титульного листа

3. Основная часть пояснительной записки Задание 1.

Постановка задачи.

Найти на заданном интервале [n,m] натуральное число, имеющее наибольшее количество делителей.

Решение.

1. 1. Составим алгоритм решения данной задачи.

1.2. Приведем используемые переменные.

имя переменной	смысл переменной	назначение переменной	ограничения
n	нижняя граница интервала	исходная	целое число
m	верхняя граница интервала	исходная	целое число
y	наибольшее количество делителей	результат	целое число
col	количество делителей для каждого числа в интервале [n,m]	промежуточная	целое число
k	натуральное число с наибольшим количеством делителей	результат	целое число
i	число из интервала [n,m]	промежуточная	целое число
j	Значения делителя для числа i	промежуточная	целое число

1.3. Приведем текст программы:

PROGRAM U1;

Uses crt;

Var

k,n,m,i,j,col:integer;

begin

clrscr;

writeln(‘введите n,m’); y:=0;

readln(n,m);

for i:= n to m do

begin

col:=0;

for j:=1 to i-1 do

if i mod j = 0 then

col:=col+1;

if col>y then begin

y:=col;

k:=i;

end;

end;

writeln(‘число = ’, k, ‘количество делителей=’,y);

readkey

end.

Задание 2.

Постановка задачи.

Задана целочисленная матрица А(3,4). Некоторый элемент этого массива назовем седловой точкой, если он является одновременно наименьшим в своей строке и наибольшим в своем столбце. Вывести на экран номер строки и столбца седловой точки матрицы А, если она есть и текст “Седловой точки нет”, если её нет.

Решение задачи.

Решение данной задачи разобьем на несколько этапов.

1. Заполнение матрицы а (3,4) числами, вводимыми с клавиатуры.

2. Для i-ой строки матрицы а определяется k – номер (индекс) столбца содержащего наименьший элемент.

3. Проверяется, является ли элемент а [i, k] наибольшим в k-ом столбце (с = 0) – седловая точка или нет (с = 1).

4. Если седловых точек нет (у = 0), то на экран выводится соответствующее сообщение.

2.1. Составим алгоритм решения данной задачи.

2.2. Рассмотрим переменные, которые потребуются для решения поставленной задачи.

имя переменной	смысл переменной	назначение переменной	ограничения
а		исходная	целочисленная матрица
i	индекс строки элементов матрицы	промежуточная, результат	целое число
j	индекс столбца элементов матрицы	промежуточная	целое число
k	индекс столбца наименьшего i- ой строки	промежуточная, результат	целое число
l	индекс строк	промежуточная	целое число
y		промежуточная	целое число
c		промежуточная	целое число

2.3. Приведем текст программы:

PROGRAM zadanie2;

USES CRT;

Var

A:array[1 ..3,1 ..4] of integer;

i,j,l,k,c,y:integer;

begin

clrscr;

writeln(‘введите a(3,4)’);

for i:= 1 to 3 do

for j:=1 to 4 do read(a[i,j]);

y:=0;

for i:= 1 to 3 do

begin

k:=0;

for j:= 1 to 4 do

if a[i,j]<a[i,k] then k:=j;

c:=0;

for l:= 1 to 3 do

if a[l,k]>a[i,k] then c:=1;

if c=0 then

begin

writeln(‘седловая точка-’,a[i,k],

‘строка=’,i,’столбец’,k);

y:=1;

end;

end;

if y=0 then writeln(‘седловой точки нет’);

readkey;

end.