Современные операционные системы и системное программирование в Delphi контрольная по информатике , Экзамены из Информатика

Скачай Современные операционные системы и системное программирование в Delphi контрольная по информатике и еще Экзамены в формате PDF Информатика только на Docsity! Министерство Образования и Науки Украины Донбасская Государственная Машиностроительная Академия Кафедра КИТ КОНТРОЛЬНАЯ РАБОТА По дисциплине "Системное программирование и операционные системы" раздел "Современные операционные системы и системное программирование в Delphi" Выполнил: Студент гр. ИТ – 01 – 1з Лазебник А.В. Вариант 19 Проверил: Преподаватель Сагайда П.И. Краматорск 2002. СОДЕРЖАНИЕ Часть I 3 Часть II 5 Часть III 6 Основы работы с программами управления и прикладными программами (Windows – приложениями и DOS – приложениями). Цель работы: получение навыков запуска и настройки режима выполнения программ (Windows – приложениями и DOS – приложений) в операционных системах Windows NT/95, изменения различных параметров операционной системы, работая с файлами и документами в приложениях Windows. Работа в текстовом редакторе Microsoft Word. Наберите в окне WinWord текст вашей краткой автобиографии в произвольном виде (10-12стр) с использованием TrueType – шрифта ArialCyr, кеглем 10 пунктов, нормального начертания, с межстрочным интервалом 1,5 строки. В тексте должны быть 2 – 3 абзаца с красной строкой, полученной при помощи табуляции со значением 5 ММ. текст должен иметь выравнивание "По ширине". Заголовок " Краткая автобиография " должен быть набран шрифтом Times New Roman Cyr, кегль 16 пунктов, полужирное начертание, выравнивание по центру, межстрочный интервал 2 строки. Выделите важную часть вашей автобиографии фоном с 10% плотности растра. В верхний левый угол текста вставьте кадр, в который внедрите из Paintbrush свой автопортрет (небольшой рисунок в виде шаржа). Задайте обтекание текстом вокруг кадра, контур вокруг иллюстрации, расстояние от обтекающего текста до иллюстрации. Ниже текста вставьте таблицу следующего вида: Дата Собы тие Примечани я Графы которой заполните соответствующим образом. 5. Задайте формат страницы создаваемого документа А4 (210x297), левое поле 25 мм, правое поле 15 мм, верхнее 20 мм и нижнее 30 мм. Войдите в режим Разметка страницы и рассмотрите внешний вид полученного документа. Введите по необходимости коррективы и сохраните файл. "Краткая автобиография" Я, Лазебник Александр Васильевич, родился 18 сентября 1980 года в городе Горловка, Донецкой области. В 1997 году закончил общеобразовательную школу I-III ступеней № 22. В 1998 году окончил Горловскую автошколу ДОСАФ ОСОУ. Министерства Обороны Украины. Гражданская специальность водитель – профессионал (категории B,C). 25 ноября 1998 года был призван на срочную службу в ряды Вооружённых сил Украины. Службу проходил во внутренних войсках.4 апреля 2000 годы был демобилизован. В настоящее время работаю в должности старшего пожарного в СГПЧ-28 ОГПО-8 Пожарного департамента Украины в городе Горловка. Учусь на заочном отделении Донбасской машиностроительной академии, факультет "Компьютерные науки", группа ИТ-01-1з. Да та Событие Примечание 18. IX. 1980 Родился г. Горловка 1. IX. 1986 Пошёл в первый класс ОШ N 79 25. V. 1997 Окончил школу ОШ I-III ст. N 22 25. XI. 1998 Призыв в армию Рядовой 4. IV. 2000 Демобилизация Старшин а 1. IX. 2001 Поступление в ДГМА ИТ-01-1з Часть III Разработка простого приложения для Windows при помощи средства разработки Delphi. Цель: получить навыки проектирования и разработки простых приложений с использованием различных компонентов Delphi и программированием подпрограмм обработки событий. Индивидуальное задание: Разработайте приложение – электронный калькулятор для операций +,-,*,/ над вещественными числами. Листинг программы: Calc. dfm object Form1: TForm1 Left = 248 Top = 691 BorderIcons = [biSystemMenu] BorderStyle = bsSingle Caption = #1050#1072#1083#1100#1082#1091#1083#1103#1090#1086#1088 ClientHeight = 187 ClientWidth = 157 Color = clBtnFace Font. Charset = DEFAULT_CHARSET Font. Color = clWindowText Font. Height = - 11 Font. Name = 'MS Sans Serif' Font. Style = [] OldCreateOrder = False Position = poScreenCenter PixelsPerInch = 96 TextHeight = 13 object Bevel1: TBevel Left = 5 Font. Color = clBlue Font. Height = - 11 Font. Name = 'MS Sans Serif' Font. Style = [fsBold] ParentFont = False TabOrder = 2 OnClick = BitBtnNumberClick end object BitBtn2: TBitBtn Left = 35 Top = 125 Width = 26 Height = 25 Caption = '2' Font. Charset = DEFAULT_CHARSET Font. Color = clBlue Font. Height = - 11 Font. Name = 'MS Sans Serif' Font. Style = [fsBold] ParentFont = False TabOrder = 3 OnClick = BitBtnNumberClick end object BitBtn3: TBitBtn Left = 65 Top = 125 Width = 26 Height = 25 Caption = '3' Font. Charset = DEFAULT_CHARSET Font. Color = clBlue Font. Height = - 11 Font. Name = 'MS Sans Serif' Font. Style = [fsBold] ParentFont = False TabOrder = 4 OnClick = BitBtnNumberClick end object BitBtn4: TBitBtn Left = 5 Top = 95 Width = 26 Height = 25 Caption = '4' Font. Charset = DEFAULT_CHARSET Font. Color = clBlue Font. Height = - 11 Font. Name = 'MS Sans Serif' Font. Style = [fsBold] ParentFont = False TabOrder = 5 OnClick = BitBtnNumberClick end object BitBtn5: TBitBtn Left = 35 Top = 95 Width = 26 Height = 25 Caption = '5' Font. Charset = DEFAULT_CHARSET Font. Color = clBlue Font. Height = - 11 Font. Name = 'MS Sans Serif' Font. Style = [fsBold] ParentFont = False TabOrder = 6 OnClick = BitBtnNumberClick end object BitBtn6: TBitBtn Left = 65 Top = 95 Width = 26 Height = 25 Caption = '6' Font. Charset = DEFAULT_CHARSET Font. Color = clBlue Font. Height = - 11 Font. Name = 'MS Sans Serif' Font. Style = [fsBold] ParentFont = False TabOrder = 7 OnClick = BitBtnNumberClick end object BitBtn7: TBitBtn Left = 5 Top = 65 Width = 26 Height = 25 Caption = '7' Font. Charset = DEFAULT_CHARSET Font. Color = clBlue Font. Height = - 11 Font. Name = 'MS Sans Serif' TabOrder = 12 OnClick = BitBtnOperationClick end object BitBtnMultiple: TBitBtn Left = 95 Top = 125 Width = 26 Height = 25 Caption = '*' Font. Charset = DEFAULT_CHARSET Font. Color = clGreen Font. Height = - 11 Font. Name = 'MS Sans Serif' Font. Style = [fsBold] ParentFont = False TabOrder = 13 OnClick = BitBtnOperationClick end object BitBtnDivide: TBitBtn Left = 95 Top = 155 Width = 26 Height = 25 Caption = '/' Font. Charset = DEFAULT_CHARSET Font. Color = clGreen Font. Height = - 11 Font. Name = 'MS Sans Serif' Font. Style = [fsBold] ParentFont = False TabOrder = 14 OnClick = BitBtnOperationClick end object BitBtnEq: TBitBtn Left = 125 Top = 125 Width = 26 Height = 55 Caption = '=' Font. Charset = DEFAULT_CHARSET Font. Color = clWindowText Font. Height = - 11 Font. Name = 'MS Sans Serif' Font. Style = [fsBold] ParentFont = False TabOrder = 15 OnClick = BitBtnEqClick end object BitBtnReset: TBitBtn Left = 125 Top = 65 Width = 26 Height = 55 Caption = 'C' Font. Charset = DEFAULT_CHARSET Font. Color = clRed Font. Height = - 11 Font. Name = 'MS Sans Serif' Font. Style = [fsBold] ParentFont = False TabOrder = 16 OnClick = BitBtnResetClick end object BitBtnDecimal: TBitBtn Left = 65 Top = 155 Width = 26 Height = 25 Caption = '. ' Font. Charset = DEFAULT_CHARSET Font. Color = clBlue Font. Height = - 11 Font. Name = 'MS Sans Serif' Font. Style = [fsBold] ParentFont = False TabOrder = 17 OnClick = BitBtnNumberClick end end Calc unit Calc; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls; type TForm1 = class(TForm) EditCalc: TEdit; BitBtn0: TBitBtn; BitBtn1: TBitBtn; BitBtn2: TBitBtn; BitBtn3: TBitBtn; BitBtn4: TBitBtn; begin EditCalc. Text: ='??? Деление на 0'; Exit; end; case LabelOperation. Caption [1] of '+': EditCalc. Text: =FloatToStr(StrToFloat(Label1. Caption) +StrToFloat (Label2. Caption)); '-': EditCalc. Text: =FloatToStr(StrToFloat(Label1. Caption) - StrToFloat (Label2. Caption)); '*': EditCalc. Text: =FloatToStr(StrToFloat(Label1. Caption) *StrToFloat (Label2. Caption)); '/': EditCalc. Text: =FloatToStr(StrToFloat(Label1. Caption) /StrToFloat (Label2. Caption)); else EditCalc. Text: ='????????????? '; end; end; initialization DecimalSeparator: ='. '; v_NextOperation: =true; end. Calculat program Calculat; uses Forms, Calc in 'Calc. pas' {Form1}; {$R *. res} begin Application. Initialize; Application. CreateForm(TForm1, Form1); Application. Run; end.