ПРОЦЕДУРЫ И ФУНКЦИИ
по МДК 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.
РЕЗУЛЬТАТЫ ИСПЫТАНИЙ
Приложение Б
(обязательное)
Рисунок Б.1