Информатика (паскаль) / лаб.11 / 2
.docx2. Техническое задание
Ввести два числа из них найти максимальное. Для решения задачи задачи использовать процедуру и
функцию с параметром. С помощью этой процедуры и функции найти максимум из 5 чисел.
-
Анализ технического задания
Для того чтобы найти максимум из нескольких чисел необходимо задать процедуру и функцию. И впоследствии с помощью вызова процедур и функций сравнивать заданные числа.
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. Модульная структура программы
Программа состоит из одного модуля - самой программы.
-
Спецификация на программные модули
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. Заключение
В результате выполнения лабораторной работы освоены способы выполнения элементарных программ, задание процедур и функций, повторила написание блок-схем.