ПРАКТИЧЕСКАЯ ЧАСТЬ
АНАЛИЗ ЗАДАНИЯ
Задание к курсовой работе:
Найти максимальное значение стороны малого основания правильной усеченной пирамиды а1 (а1 изменяется от 1 до nс шагом m) и соответствующие значения f1 и f2 (f1- площадь верхнего, f2 – площадь нижнего основания правильной усеченной пирамиды), для которых объем правильной усеченной пирамиды не превышает объем куба со стороной b; а2 – сторона нижнего основания и h – высота правильной усеченной пирамиды остаются неизменными. Вычисления выполнить по таблице:
№ | 1 | n | m | b | a2 | h |
1 | 0.8 | 6.1 | 0.1 | 6.8 | 6.2 | 5.1 |
2 | 2.6 | 10.3 | 0.1 | 16.2 | 13.1 | 14.9 |
3 | 0.1 | 1.1 | 0.01 | 0.91 | 1.3 | 0.37 |
4 | 2.2 | 7.9 | 0.1 | 9.6 | 9.5 | 7.2 |
5 | 0.7 | 2.6 | 0.1 | 6.3 | 3.9 | 11.1 |
Проанализировав задание курсовой работы, я пришла к выводу, что в данной курсовой работе необходимо реализовать ввод значений пределов изменения основания правильной усеченной пирамиды, шаг изменения основания, стороны куба, значение стороны нижнего основания и высоту правильной усеченной пирамиды. Расчеты необходимо выполнить по приведенной в задании к курсовой работе таблице.
Было принято решение реализовывать выполнение данной работы на языке программирования Pascalв среде TurboPascal 7.0.
МАТЕМАТИЧЕСКАЯ ЧАСТЬ
Рассматриваемые в задаче геометрические фигуры изображены на рисунке 1.
Рис.1. Правильная усеченная пирамида
Правильная усеченная пирамида — это многогранник, у которого одна грань — основание пирамиды — правильный многоугольник, а остальные — боковые грани — равные треугольники с общей вершиной. Высота опускается в центр основания из вершины. Сечение параллельное основанию пирамиды делит пирамиду на две части. Часть пирамиды между ее основанием и этим сечением — это усеченная пирамида.
Объем усеченной пирамиды равен одной трети произведения высоты h (OS) на сумму площадей верхнего основания S1 (abcde), нижнего основания усеченной пирамиды S2 (ABCDE) и средней пропорциональной между ними:
Объем куба равен
.ОПИСАНИЕ ПРОГРАММЫ
Данная программа предназначена для нахождения максимального значения стороны малого основания правильной усеченной пирамиды (а1 изменяется от 1 до nс шагом m) и соответствующие значения f1 и f2 (f1- площадь верхнего, f2 – площадь нижнего основания правильной усеченной пирамиды), для которых объем правильной усеченной пирамиды не превышает объем куба со стороной b. При этом меньшая а2 – сторона нижнего основания и h – высота правильной усеченной пирамиды остаются неизменными.
После того как запустили программу, на экране монитора появляется запрос на ввод исходных значений – значений пределов изменения радиуса основания усеченного круглого цилиндра, шага изменения радиуса, стороны куба, меньшей и большей высоты усеченного круглого цилиндра. Ввод данных осуществляется с клавиатуры, при помощи процедурыввода значенийRead. В качестве подсказки выдается сообщение о том, какие именно данные необходимо вводить. Выполнить это удалось с помощью процедуры вывода сообщений Write / Writeln. В случае выполнении всех значений происходит расчет объема куба, который понадобиться для проверки главного условия - объем усеченного круглого цилиндра не превышает объема куба. Расчет производится в функции подсчета объема:
function kub (a:real):real;
begin
kub:=exp(3*ln(a));
end;
Функция вызывается в теле основной программы:
Vk:=kub(a);
В качестве фактического параметра выступает переменная a, являющаяся стороной куба.
В переменную a1 присваиваем значение начального изменения радиуса l.
Открываем цикл с постусловием repeat…until. В условие цикла записываем Vp>Vk, таким образом цикл будет выполняться до тех пор, пока объем куба Vk не превысит объем пирамиды Vp.
Затем в программе происходит выполнение цикла While, который необходим для изменения стороны малого основания a1 от начального значения l до конечного n с шагом m.
В теле цикла происходит вычисление объема правильной усеченной пирамиды путем вызова функцииVp:=pir(h,f1,f2):
function pir (h,f1,f2:real):real;
begin
pir:=1/3*h*(f1+sqrt(f1*f2)+f2);
end;
В качестве фактических параметров выступают переменные h (высота), f1 (площадь верхнего основания пирамиды) и f2 (площадь нижнего основания пирамиды).
С помощью условного оператора if max<a1 then max:=a1 находится максимальное значение стороны малого основания правильной усеченной пирамиды, переприсваивается значение площадей пирамиды и выводится на экран.
В завершении программы на экране появляется сообщение со значением максимального малого основания правильной усеченной пирамиды, площадей основания пирамиды:
writeln ('maksimalnoe znachenie storoni malogo osnovaniya pravilnoi usechennoi piramidi = ', max:2:2);
writeln ('S verhnego osnovaniya = ', Sv:2:2);
writeln ('S nignego osnovaniya = ', Sn:2:2);
Так как переменная max – вещественного типа, то при ее выводе устанавливается формат вывода 2:2.
ИСПЫТАНИЯ
Для проверки правильности работы программы необходимо провести испытания. Для этого нам понадобиться таблица значений, данная с заданием курсовой работы:
№ | r1 | r2 | k | a | h1 | h2 |
1 | 0,3 | 22,3 | 0,1 | 3,7 | 6,3 | 8,6 |
2 | 0,51 | 3,72 | 0,01 | 1,3 | 0,32 | 0,91 |
3 | 5,2 | 25,3 | 0,1 | 21,1 | 1,6 | 12,3 |
4 | 1,4 | 8,2 | 0,1 | 9,6 | 3,9 | 9,7 |
5 | 2,6 | 10,1 | 0,1 | 7,8 | 5,7 | 15,3 |
Открыв программу TurboPascal, открываем нашу программу (max_storona).Чтобы программа открылась, она должна находиться в корневом каталоге вместе с приложением программы. Открыв код, необходимо запустить его на компиляцию и отладку.
При правильности кода программы, начинается запрашивание данных. Ввод осуществляется с клавиатуры, заканчивается нажатием клавиши Enter. Переходим к следующему вводу данных.
После того, как все переменные станут заполнены, программа выполнит расчеты и выведет результат-сообщение на экран. Для эксперимента № 1 окно программы будет выглядеть следующим образом:
Рис. 1. Эксперимент №1
Для второго эксперимента необходимо вернуть в код программы. Для этого нажать любую клавишу на клавиатуре.
И снова запустить программу на выполнение. Вводятся 2-й ряд данных. Результат:Рис.2. Эксперимент №2
Аналогично со вторым испытанием выполняем третье, четвертое и пятое:
Рис.3. Эксперимент №3Рис.4. Эксперимент №4
Рис.5. Эксперимент №5
Таким образом, мы выполнили все требуемые расчеты по представленной таблице.
КОД ПРОГРАММЫ
program max_storona;
uses crt;
var a1,a2,f1, f2, n,m, b, h,l,max,Vk,Vp, Sv,Sn:real; k:integer;
function kub (a:real):real;
begin
kub:=exp(3*ln(b));
end;
function pir (h,f1,f2:real):real;
begin
pir:=1/3*h*(f1+sqrt(f1*f2)+f2);
end;
begin
clrscr;
writeln ('vvedite nachalnoe znachenie izmeneniya storoni malogo osnovaniya');
read (l);
writeln ('vvedite konechnoe znachenie izmeneniya storoni bolshogo osnovaniya');
read (n);
writeln ('vvedite shag izmeneniya storoni');
read (m);
writeln ('vvedite znachenie visoti piramidi');
read (h);
writeln ('vvedite znachenie storoni bolshego osnovaniya ');
read (a2);
writeln ('vvedite storonu kuba');
read (b);
writeln ('vvedite kol-vo storon');
read (k);
max:=0;
Vk:=kub(b);
a1:=l;
repeat
while a1<=n do
begin
f1:=a1*k;
f2:=a2*k;
Vp:=pir(h,f1,f2);
if max<a1 then begin max:=a1;
Sv:=f1;
Sn:=f2;
end;
a1:=a1+m;
end;
until Vp>Vk;
writeln ('maksimalnoe znachenie storoni malogo osnovaniya pravilnoi usechennoi piramidi = ', max:2:2);
writeln ('S verhnego osnovaniya = ', Sv:2:2);
writeln ('S nignego osnovaniya = ', Sn:2:2);
readkey;
end.
БЛОК-СХЕМА ПРОГРАММЫ
ЗАКЛЮЧЕНИЕ
Информация о видео может быть записана аналоговым и цифровым способом. При аналоговой записи на видеокассеты информация, которая представляется в данном случае намагниченной последовательностью металлических частиц, носит непрерывный характер, так как вся намагниченная лента видеокассеты при записи на неё видео подвергалась непрерывному воздействию магнита записывающей головки. Дискретная информация, с которой работает компьютер, представленная в двоичной системе счисления, всегда состоит из отдельных единичек и ноликов, которые сменяют друг друга в некоторой последовательности, которая и составляет видеозапись. Эти единицы и нолики кодируют моменты видеозаписи, и чем больше таких моментов закодировано за единицу времени, тем более качественное видео.