КУРСОВАЯ РАБОТА
Программа вычисления идеального веса
Выполнила ________________ _________ _ Рудская М.Р.
(Подпись) (Дата) (Фамилия, инициалы)
Руководитель ________________ _________ Пеканова О.И.
(Подпись) (Дата) (Фамилия, инициалы)
Воронеж 2016
Содержание
Введение. 3
1. Постановка задачи. 4
2. Тект программы.. 5
3. Использованные операторы.. 7
4. Рекомендации для пользователя. 8
5.Отчет о тестировании программы.. 9
Список использованной литературы.. 11
Введение
Целью курсовой работы является более подробное изученное материала по теме:<< Основы алгоритмизации и программирования>>
Задачами курсовой работы являются:
1.Разработка постановки задачи;
2.Написание программы на языке программирования Pascal
3.Тестирование и откладка программы.
Актуальность программы<<…..>>состоит в том, что……
Программа имеет практическое применение…..
Её можно использовать в домашних условиях для выяснения своего идеального веса.
В наше время тема похудения актуальна как никогда. Есть много способов похудеть. Разнообразные диеты,сайты по похудению, но многим людям не хватает времени на диетологов,на то чтобы часами сидеть и искать программы для похудения. Поэтому программа которую создала я будет очень удобной. Она не отнимет много времени и проста в использовании, её можно проходить на рабочем месте, в школе,в институте,на улице или просто дома.
1. Постановка задачи
Составить программу для вычисления идеального веса и на сколько надо похудеть или сколько нужно набрать.
Для определения идеального веса и на сколько надо похудеть или сколько нужно набрать нужно ввести свой рост и вес также программа даст рекомендации.
Тект программы
program zero;
uses crt;
label 1;
var q,w,e,r,t,u:real;
y:string;
begin
textcolor(lightred);
writeln('Как вас зовут?');
readln(y);
textcolor(lightgreen);
writeln('Здравствуите ',y,'. Вы открыли программу Идеальный вес. Желаете её пройти? да-1,нет-2');
readln(u);
if u=2 then goto 1
else
begin
textcolor(lightmagenta);
writeln('введите свой рост');
readln(q);
textcolor(lightmagenta);
writeln('введите свой вес');
readln(w);
e:=q-110;
if e<w then
begin
r:=w-e;
textcolor(red);
writeln('Ваш вес больше положенного на ',r,'кг Кушайте поменьше сладкого и мучного,занимайтесь спартом.');
end;
if e>w then
begin
t:=e-w;
textcolor(yellow);
writeln('ваш вес меньше положенного на ',t,'кг Питайтесь больше,но не слишком много и не вредной едой. ');
end;
if e=w then
begin
textcolor(green);
writeln('ваш вес идеален.');
end;
end;
textcolor(magenta);
1:writeln('Спосибо за прохождение программы!')
end.
3. Использованные операторы
Для написания программы были использованы операторы:
WRITELN – оператор вывода на экран информации для пользователя. READLN - оператор ввода информации в память компьютера.
:= -оператор присваивания.
IF <условие> THEN <оператор 1> ELSE <оператор 2> - условный оператор.
USES CRT – библиотека цветa
GOTO-оператор безусловного перехода
Рекомендации для пользователя
Чтобы воспользоваться программой, необходимо:
1. Вставить диск в дисковод;
2. Войти в «Мой компьютер»-съемный диск;
3. Кликнуть двойным щелчком по пиктограмме «Идеальный вес»;
4. Выполнять все команды по сообщениям на экране.
Отчет о тестировании программы
Для проверки правильности работы программы, она была неоднократно протестирована.Для этого были видены различныеисходные данные и полученные разные результаты.
Если ввести свое имя, потом ответить 1,потом ввести рост, и вес который подойдёт под значение w в уравнение w < r-110, то программа выдаст вам этот ответ:
Если ввести свое имя, потом ответить 1,потом ввести рост, и вес который подойдёт под значение w в уравнение w > r-110, то программа выдаст вам этот ответ:
Если ввести свое имя, потом ответить 1,потом ввести рост, и вес который подойдёт под значение w в уравнение w = r-110, то программа выдаст вам этот ответ:
Список использованной литературы
1. http://slavclinic.com/hochu-pohudet-chto-dalshe/
2. http://www.zdorovieinfo.ru/sbros-lishnee/stati/
3. http://kaloriyka.ru/blogs/statya
