Отчет о лабораторной работе №7

ПРОЦЕДУРЫ И ФУНКЦИИ

по МДК 01.02 «Прикладное программирование»

Выполнил: ст-т гр. 18КП2

Горин В.В.

Проверил: доцент каф. ИВС

Хохлов А. Е.

2020

1 Формулировка задачи

Для натурального числа k напечатать фразу «мы нашли k грибов в лесу»,

согласовав окончание слова «гриб» с числом k. (Решение оформить в виде функции и проверить ее работу в программе)

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

2.1 Требования к программе

Программа оформлена в виде функции должна напечатать фразу «мы нашли k грибов в лесу», согласовав окончание слова «гриб» с числом k.

2.2 Порядок контроля и приёмки

Для контроля правильности работы программа должна быть разработана в виде функции и ввести фразу «мы нашли k грибов в лесу». В программу надо ввести целое число k и программа должна согласовать окончание слова «гриб» с числом k.. Сравнить результат работы программы с результатом, полученным путем ручного расчета. Если результаты совпадут, то это будет означать, что программа работает правильно.

3 Описание программы

3.1 Общие сведения

Программа разработана в среде Lazarus, её текст приведен в приложении А.

3.2 Функциональное назначение

Программа предназначена для согласования окончание слова «гриб» с числом k..

3.3 Описание логической структуры

Схема программы представлена на рисунке 1.

Решение задачи начинается с ввода данных i:=k mod 10 (блок 2), при вводе данных в Edit1.text. чисел от 5 до 20 полчаем значение if (5< - k) and (k<=20) (блок 3) a2:=a2(k) + "Грибов в лесу"(блок 4).

При вводе числа =1, получаем 1: a2: (k) + "Гриб в лесу".

При вводе чисел закачивающихся на 2, 3, 4 получаем 2. 4: a2: = (k) + "Гриба в лесу".

При вводе чисел закачивающихся на 0,1,2,3,4,5 получаем 0.5. a2: = (k) + "Грибов в лесу" (блок 5).

Рисунок 1 – Схема программы

Текст программы приведен в приложении А.

На форме расположены следующие объекты:

- Button1

- Edit1, - для ввода данных;

-Label1- выводит данные "Гриб в лесу", "Гриба в лесу", "Грибов в лесу"

4 Программа и методика испытаний

Для проверки правильности работы программы подготовлен тестовый набор данных.

Вручную согласуем окончание слова «гриб» с числом k.

1. k = 1 «мы нашли один гриб в лесу»

2. k = 12 «мы нашли двенадцать грибов в лесу»

Для проверки правильности работы программы необходимо запустить ее на выполнение и ввести исходные данные. После этого нажать левой кнопкой мыши на кнопку «Расчет». На форме появляется результат работы программы.

При работе программы с тестовыми данными получены результаты, приведенные в приложении Б на рисунках Б.1. Результаты приведенные в ручном согласование совпадают с результатами на рисунке Б.1. Таким образом, можно сделать вывод, что программа работает правильно

5 Описание применения

После запуска программы на выполнение на экране появляется форма (см. Приложение Б). Пользователь должен заполнить поле «k» и нажать левой кнопкой мыши на кнопку «Расчет». На форме появляется результат работы программы.

Вывод

В ходе выполнения лабораторной работы было сформулировано и утверждено техническое задание на разработку программы. Для натурального числа k напечатать фразу «мы нашли k грибов в лесу», согласовав окончание слова «гриб» с числом k., разработан алгоритм решения задачи, составлена и отлажена программа, оформлена документация на программу. Проведенные испытания показали, что программа работает правильно.

ТЕКСТ ПРОГРАММЫ

Приложение А

(обязательное)

function f(k:integer):string;
var
i:integer;
a2:string;
begin
a2:='';
i:=k mod 10;
if(5<-k)and(k<=20)
then a2:=a2+IntToStr(k)+'Грибов в лесу'
else
case i of
1:a2:=inttostr(k)+ ' Гриб в лесу';
2..4:a2:=inttostr(k)+ ' Гриба в лесу';
0,5..9:a2:=inttostr(k)+ ' Грибов в лесу';
end;
f:=a2;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
k,i:integer;
s:string;
begin
k:=strtoint(Edit1.text);
s:=f(k);
label3.Caption:=s;
end;
end.