Информатика (паскаль) / лаб.11 / 2

2. Техническое задание

Ввести два числа из них найти максимальное. Для решения задачи задачи использовать процедуру и

функцию с параметром. С помощью этой процедуры и функции найти максимум из 5 чисел.

3. Анализ технического задания

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

4. Блок-схема

procedure and function

MaxNumber1

MaxNumber

Н

ввод x,y

x : y

<=

max=y

>

max=x

MaxNumber1=max

К

Н

ввод x,y

x : y

<=

MaxNumber=y

>

MaxNumber=x

К

5. Модульная структура программы

Программа состоит из одного модуля - самой программы.

6. Спецификация на программные модули

1) Имя модуля pr1.

2) Имя вызывающего модуля – нет.

3) Выполняемые функции- вычисление значения.

4) Входные данные: x,y,q,w,e, типа Integer.

5)Выходные данные: n, m типа Integer.

6)Особенности, ограничения – нет.

7.Текст программы

program procedure and function;

uses crt;

var x,y,q,w,e,m,n,max1:integer;

function MaxNumber1(a,b:integer):integer;

var max:integer;

begin

if a>b then

max:=a

else

max:=b;

MaxNumber1:=max;

end;

procedure MaxNumber(a,b:integer;var max:integer);

begin

if a>b then

max:=a

else

max:=b;

end;

Begin

clrscr;

write('x=');

readln(x);

write('y=');

readln(y);

write('q=');

readln(q);

write('w=');

readln(w);

write('e=');

readln(e);

m:=MaxNumber1(x,maxnumber1(maxnumber1(y,q),maxnumber1(w,e)));

writeln('m=',m);

MaxNumber(x,y,n);

maxnumber(m,q,n);

maxnumber(m,w,n);

maxnumber(m,e,n);

writeln('n=',n);

readln;

end.

8.Результаты тестирования:

1)

Режим тестирования	x	y	q	w	e				Результат:
Корректные значения	2	5	89	78	33				m=89 n=89
Корректные значения	66	56	76	97	3				m=97 n=97
Некорректные значения	-6	77	6	43	8				m=77, n=77
Некорректные значения	a								Ошибка ввода
Граничные значения	0	2	5	6	35				m=35, n=35

ВЫВОД: программа работает некорректно в случае ввода символа вместо числового значения. Во всех остальных случаях результаты соответствуют действительности.

9. Заключение

В результате выполнения лабораторной работы освоены способы выполнения элементарных программ, задание процедур и функций, повторила написание блок-схем.