Теоретические и практические основы работы с компьютером
Контрольная работа - Компьютеры, программирование
Другие контрольные работы по предмету Компьютеры, программирование
?лжна сохранять целостность, конфиденциальность, доступность. Угрозы нарушения целостности, конфиденциальности и доступности являются первичными. Нарушение целостности включает в себя любое умышленное изменение информации, хранящейся в КС или передаваемой из одной системы в другую. Нарушение конфиденциальности может привести к ситуации, когда информация становится известной тому, кто не располагает полномочия доступа к ней. Угроза недоступности информации возникает всякий раз, когда в результате преднамеренных действий других пользователей или злоумышленников блокируется доступ к некоторому ресурсу КС.
Еще одним видом угроз информационной безопасности является угроза раскрытия параметров КС. В результате ее реализации не причиняется какой-либо ущерб обрабатываемой в КС информации, но при этом существенно усиливаются возможности проявления первичных угроз.
2. Практическая часть
.1 Программа построение графика функции на языке Pascal
2.1.1 Исходные данные
Функция: sin(3x) + 0.5sin(x)
Интервал: [0,2П]
Шаг: 2П/36
Вывести график функции y(F(x)):
F(x) на интервале [0,2; ?];
,5, если F(x)<0 на интервале [?; 1,5 ?].
.1.2 Текст программы
program praktika;crt,graphABC;F:text;,dx,y:real;,maxy,minx,miny,px,py,ox,oy,i,x1:integer;,Ay:string;:string;(F,table.dat);(F);(F);:=25;:=240;:=90;:=40;(minx,miny,615,miny);(minx,25,minx,455);(630,miny-5,X);
TextOut(minx,5,Y);:=x1;
Writeln(F, X , Y);(20,200,30,200);(20,80,30,80);(20,310,30,310);(20,385,30,385);(20,120,30,120);(20,160,30,160);(20,275,30,275);(20,345,30,345);(155,230,155,250);(445,230,445,250);(310,230,310,250);(570,230,570,250);(10,190,1);(10,70,4);
textout(10,110,3);(10,230,0);(5,300,-2);(5,375,-4);(10,150,2);(5,265,-1);(5,335,-3);(140,250,0.5pi);(430,250,1.5pi);
textout(305,250,pi);(560,250,2pi);x<=(2*pi) do
begin:=sin(3*X)+sin(0.5*X);
if (y=pi) and (x<=1.5*pi) then begin setpencolor(clred); y:=-0.5; endsetpencolor(clblue);(X:1:8,Ax);(Y:1:8,Ay);(F,Ax,;,Ay);:=minx+round(x*maxx);:=miny-round(y*maxy);x=x1 then Putpixel(px,py,12)(ox,oy,px,py);:=px;:=py;:=x+2*PI/30;:=график функции sin(3x)+0.5sin(x);
textout(370,370,s);
s:=Автор: Исаев Антон;
textout(80,370,s);
s:=График на паскале;
textout(370,20,s);;;(F);.
2.1.3 График полученных значений
Графическая интерпретация полученных значений функции приведена на рисунке ниже.
График значений заданной функции
.1.4 Значения и график функций, выполненные в MS Excel
Значения функции, полученные в MS Excel, приведены в таблице.
Результаты вычислений, полученные в MS Excel
xsin(3x)+0.5sin(x)y=f(x)0,000,0000,170,590,586550,351,041,036690,521,251,249880,701,191,187810,870,880,884031,050,430,434471,22-0,03-0,028651,40-0,37-0,372621,57-0,50-0,51,74-0,37-0,374871,92-0,03-0,032512,090,430,430092,270,880,88042,441,191,186032,621,251,250572,791,041,039822,970,590,591473,140,010,005573,31-0,58-0,53,49-1,03-0,53,66-1,25-0,53,84-1,19-0,54,01-0,89-0,54,19-0,44-0,54,360,020,024784,540,370,370354,710,500,499984,880,380,37715,060,040,036375,23-0,43-0,425715,41-0,88-0,876765,58-1,18-1,184225,76-1,25-1,251225,93-1,04-1,04293
График функций в MS Excel
2.2 Макросы
.2.1 Создание проекта распоряжения
Sub Создание_Проекта_Распоряжения1()
Создание_Проекта_Распоряжения1 Макрос
Проект распоряжения согласно указания №ХХХ
Documents.Add Template:="Normal", NewTemplate:=False, DocumentType:=0.ParagraphFormat.Alignment = wdAlignParagraphRight.ParagraphFormat.Alignment = wdAlignParagraphCenter.TypeBackspace.TypeText Text:="Проект служебного распоряжения "
Selection.InsertDateTime DateTimeFormat:="dd.MM.yyyy H:mm:ss", _:=False, DateLanguage:=wdRussian, CalendarType:= _, InsertAsFullWidth:=False.TypeParagraph.TypeParagraph.TypeText Text:="№ 56".TypeParagraph.TypeText Text:="Пермь".TypeParagraph.Keyboard (1033).TypeText Text:="[".Keyboard (1049).TypeText Text:="О создании".Keyboard (1033).TypeText Text:="]".TypeParagraph.Keyboard (1049).TypeText Text:="ПРЕДЛАГАЮ".TypeParagraph.ParagraphFormat.Alignment = wdAlignParagraphLeft.TypeText Text:="1. Создать..".TypeParagraph.TypeText Text:="2.определить..".TypeParagraph.TypeText Text:="3.Считать...".TypeParagraph.TypeText Text:="4.Распоряжение довести по принадлежности.".TypeParagraph.TypeText Text:= _
"5.контроль за исполнение распоряжения возложить на заместите"
Selection.TypeText Text:="лей начальника по курируемым направлениям"
ActiveDocument.SaveAs FileName:="Проект служебного распоряжения 18.docx", _
FileFormat:= wdFormatXMLDocument, LockComments:=False, Password:="", _
AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended: =False, _:=False, SaveNativePictureFormat: =False, SaveFormsData _
:= False, SaveAsAOCELetter:=FalseSub
2.2.2 Создание рабочего бюджета
Sub Создание_рабочего_проекта2()
Создание проекта рабочего бюджета
Range("A1:G1").Select
Range("G1").ActivateSelection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = FalseWith.Merge.FormulaR1C1 = "Период времени"("A2").Select.FormulaR1C1 = "Дата/время"("B:B").Select("B2").Activate("A:A").EntireColumn.AutoFit("A3").Select.FormulaR1C1 = "Операция"("A4").Select.WindowState = xlMinimized.WindowState = xlNormal("A4").Select.FormulaR1C1 = "№ п/п"("B4").Select.FormulaR1C1 = "Дата"("A3:B3").SelectSelection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = FalseWith.Merge("A2:B2").SelectSelection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = FalseWith.Merge("C4").Select.FormulaR1C1 = "Описание"("D4").Select.FormulaR1C1 = "Сумма"("E4").Select.FormulaR1C1 = "Дебет"("F4").Select.FormulaR1C1 = "Кредит"("F4").Select("C:C").ColumnWidth = 8.57("C:C").EntireColumn.AutoFit("G3:G4").SelectSelection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = FalseWith.Merge.FormulaR1C1 = "Документ"("F:F").Select("F2").Activate("F:F").EntireColumn.AutoFit("G:G").EntireColumn.AutoFit("C3:F3").SelectSelection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.Merg