5 * pi) then begin setpencolor (clred); y: = -0.5; then Putpixel (px, py, 12) (ox, oy, px, py);: = px;: = py;: = x +2 * PI/30;: = 'графік функції sin (3x) +0.5 sin ( 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
Графік функцій в 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 Створення робочого бюджету ...