Автор работы: Пользователь скрыл имя, 09 Октября 2011 в 13:47, курсовая работа
В данной курсовой работе приведено задание, требующее для решения использования современных средств вычислительной техники. Дана структура и описано функциональное назначение блоков ЭВМ. Изложены математические подходы к решению задачи, поставленной в работе. Разработана схема алгоритма реализации ее решения. Предложен текст программы на алгоритмическом языке Turbo Pascal 7, представлены результаты расчетов и проведен их анализ.
Введение………………………………………………………………………….5
1 Теоретическая часть
1.1 Понятие алгоритма. Свойства алгоритма . Представление алгоритмов. Базовые управляющие конструкции алгоритмов(структура «следование», «ветвление», «цикл»)……………………………………………………………..6
1.2 Описание процедур и функций в языке программирования Borland
Pascal 7.0……………………………………………………………………….…13
2 Определение двух параметров геометрической фигуры
2.1 Математическая часть………………………………………………….17
2.2 Описание алгоритма решения задачи…………………………………18
2.3 Анализ результатов вычисления………………………………………20
Заключение………………………………………………………………………21
Список используемых источников…………………………………………….22
Приложение A. Текст программы и распечатка с ЭВМ………………… .….23
Заключение
При разработке данной курсовой работы была составлена схема алгоритма. По данной схеме разработана программа. Она составлена на языке программирования высокого уровня Турбо Паскаль. Были описаны характеристики технических средств и используемой операционной системы, алгоритма, программы. Ошибки при отладке программы были исправлены и проанализированы. При выполнении программы получены результаты поставленной задачи. Следовательно, поставленная цель – достигнута.
Список
используемых источников
Приложение А.
Текст
программы и распечатка
с ЭВМ
program kursovaya;
uses
Crt;
var
r1,r2,k,a,b1,b2,m,c,h1,
begin
ClrScr;
writeln('BBeguTe r1: ');
readln(r1);
writeln('BBeguTe r2: ');
readln(r2);
writeln('BBeguTe IIIar k: ');
readln(k);
writeln('BBeguTe CmopoHy a: ');
readln(a);
writeln('BBeguTe b1: ');
readln(b1);
writeln('BBeguTe b2: ');
readln(b2);
writeln('BBeguTe m: ');
readln(m);
writeln('BBeguTe c: ');
readln(c);
writeln('BBeguTe h1: ');
readln(h1);
writeln('BBeguTe h2: ');
readln(h2);
while (b1 <= b2) and (s1 >= s2) do begin
a1 := (Sqrt( Sqr(2*r1) + Sqr(h2-h1) ))/2;
s1 := 2*pi*r1*h1 + pi*Sqr(r1) + pi*a1*r1 + pi*r1*(h2-h1);
s2 := 2 * (a*b1 + a*c +b1*c);
r1 := r1 + k;
b1 := b1 + m;
end;
r1
:= r1 - k;
writeln('MuHuMaJIbHoe 3Ha4eHue r = ', r1:7:3);
readln;
end.
Рисунок 7 – Результат вычислений.