Современные средства хранения информации на сменных жестких магнитных дисках

 

Максимальное значение центрального угла нижнего основания шарового слоя = 63 градуса.

Радиус нижнего основания  шарового слоя = 2,35.

Радиус верхнего основания  шарового слоя = 1,16.

Высота шарового слоя = 0,51.

Объем куба = 5,83.

Максимальное значение объема шарового слоя не превосходит объем куба.

Анализ этих результатов дает возможность сделать вывод, что составленная программа позволяет правильно решить поставленную задачу (смотри рисунки 7, 8, 9).

 

 

Рисунок 7 – Ввод данных

 

Рисунок 8 – Результат выполнения программы

Рисунок 9 – Результат выполнения программы (продолжение)

 

 

Заключение

В курсовой работе решена задача определения параметров шарового слоя  и куба, при которых их объемы соответствуют поставленным требованиям. Составлена и отлажена программа, реализующая указанный алгоритм. С ее помощью проведены расчеты, проанализированы полученные результаты. Анализ результатов показал, что поставленная задача успешно решена.

 

Список использованных источников

1. Абрамов, С. А. Начало программирования на языке Paskal / С. А. Абрамов. – М. : Наука, 1987. – 112 с.
2. Выгодский, М.  Я. Справочник по элементарной математике / М. Я. Выгодский. – М. : Наука, 1976. – 220 с.
3. Каймин, В. А. Информатика / В. А. Каймин. – М. : ИНФРА, 2000. – 232 с.
4. Леонтьев, В. П. Новейшая энциклопедия персонального компьютера / В. П. Леонтьев. – М.: ОЛМА Медиа Групп, 2009. – 960 с.
5. Леонтьев, В. П. ПК универсальный справочник пользователя / В. П. Леонтьев. – М. : 2000. – 320 с.
6. Макарова, Н. В. Информатика / Н. В. Макарова, В. Б. Волков. – СПб. : 2011. – 576 с.
7. Рудометов, Е.  В. Архитектура ПК, комплектующие, мультимедиа / Е  В. Рудометов. – СПб. : 2000. – 576 с.
8. Соболь, Б. В. Информатика / Б. В. Соболь, А. Б. Галин, Ю. В. Панов. – М : Феникс, 2007. – 446 с.
9. Фаронов, В. В. Программирование на персональных ЭВМ в среде Turbo Paskal / В. В. Фаронов. – М. : Изд.МГТУ, 1990. – 443 с.
10. Фигурнов, В. Э. IBM PC для пользователя Изд. 5-е / В. Э. Фигурнов. – СПб. : «Коруна»,1994. – 432 с.

 

 

 

 

 

 

 

Приложение 1

program kursovoy;

uses crt;

const pi=3.14;

 

var alfa,beta,g,r1,r2,rad,Vkub,h,Calc:real;

    a1,a2,g_gr,t,r,beta_gr:real;

 

procedure Vvod;

begin

  Write('a1='); Readln(a1);

  Write('a2='); Readln(a2);

  Write('g='); Readln(g_gr);

  Write('t='); Readln(t);

  Write('r='); Readln(r);

  Write('beta='); Readln(beta_gr);

  readkey;

  clrscr;

end;

 

function r_find(ugol:real):real;

begin

  r_find:=r*sin(ugol/2);

end;

 

function h_find(ugola,ugolb:real):real;

begin

  h_find:=r*(cos(ugolb/2)-cos(ugola/2));

end;

 

function Vshsl(h_func,r1_func,r2_func:real):real;

begin

  Vshsl:=pi*h_func/6*(sqr(h_func)+3*sqr(r1_func)+3*sqr(r2_func));

end;

 

begin

  clrscr;

  Vvod;

  Calc:=0;

  rad:=pi/180;

  alfa:=a1*rad;

  beta:=beta_gr*rad;

  g:=g_gr*rad;

 

  Vkub:=t*t*t;

 

  r2:=r_find(beta);

  r1:=r_find(alfa);

  h:=h_find(alfa,beta);

  Writeln('alfa=',alfa/rad:0:0,' | r1=',r1:0:2,' | h=',h:0:2,' | Vshsl=',Vshsl(h,r1,r2):0:2,' | Vkub=',Vkub:0:2);

  repeat

    alfa:=alfa+g;

    Calc:=Calc+1;

    r1:=r_find(alfa);

    h:=h_find(alfa,beta);

    Writeln('alfa=',alfa/rad:0:0,' | r1=',r1:0:2,' | h=',h:0:2,' | Vshsl=',Vshsl(h,r1,r2):0:2,' | Vkub=',Vkub:0:2);

 

    if Calc=23 then

      begin

        Calc:=0;

        readkey;

        clrscr;

      end;

  until (Vshsl(h,r1,r2)>Vkub)or(alfa>a2*rad);

 

  alfa:=alfa-g;

  r1:=r_find(alfa);

  h:=h_find(alfa,beta);

  Writeln;

  Writeln('REZULTAT:');

  Writeln('alfa=',alfa/rad:0:0,' | r1=',r1:0:2,' | r2=',r2:0:2,' | h=',h:0:2);

  readkey;

end.

Приложение 2