Создание программы на языке Delphi (стр. 2 из 3)

6. Вывести полученный пользователем балл на монитор.

В конце следует проанализировать насколько верно были даны на вопросы тестирования и подсчитать результирующий балл..

Детальное описание разработанной программы, алгоритмов и их программной реализации приведено в последующих разделах.

Описание переменных

В разделе описаний переменных описаны переменные, назначение которых приведено в таблице 3.1.

Таблица 3.1– Описание переменных программы

Наименование	Тип	Назначение
QCheck	Boolean	Логическая переменная отвечающая за наличие введенного имени и фамилии
QNomber	integer	Целочисленная переменная определяющая номер текущего вопроса
ball	real	Переменная в которой содержится результирующий балл по прохождении тестирования

Описание вспомогательной процедуры

В программе приведено описание одной вспомогательной процедуры.

Процедура FormCreateвывода исходных значений в компоненты формы для корректного отображения формы в начале работы программы.

Алгоритм основной программы

Алгоритм выполнения основного тела программы приведен на рисунке А.1 в приложении А. Так в процедуре в первую очередь осуществляется проверка имени и фамилии пользователя на правильность ввода.

Затем производится вывод на экран вопроса.

Затем ожидаем ответа от пользователя.

По получению ответа на вопрос от пользователя определяем правильность ответа.

Подобным образом происходит все тестирование до момента ответа пользователем на последний вопрос.

Затем ведется результирующий подсчет заработанного балла.

В ходе выполнения работы использовались следующие операции для условного перехода: case;

Вопросы задаются непосредственным выводом в компоненту Label1 определенного текста. Варианты ответа выводятся в компоненты RadioButton1, RadioButton2, RadioButton3 и RadioButton4. На основании выбора пользователя одной из компонент RadioButton и происходит оценка правильности ответа пользователя.

RadioButton1.Checked:=False/True;

Подсчет результирующего балла производится с помощью коэффициента получаемого при нахождении среднего арифметического.

После подсчета среднего арифметического необходимо еще учесть наличие округления в балле пользователя.

4. ОПИСАНИЕ ВХОДНЫХ ДАННЫХ

Исходными данными для выполнения является набор вопросов по теме офисного приложения MSPowerPoint.

5. ОПИСАНИЕ ВЫХОДНЫХ ДАННЫХ

Выходными данными являются:

- сообщение о завершении тестирования;

- вывод полученного пользователем балла на монитор;

6. ИНСТРУКЦИЯ ОПЕРАТОРУ

Разработанная программа представляет собой исполняемый файл sheik.exe размером 395 Кбайт. В программе реализован алгоритм знаний пользователя по приложению MSPowerPoint.

После запуска программы появляется окно, изображенное на рисунке 4.1.

Рисунок 4.1 – Главное окно программы

После этого пользователь должен ввести свои Имя и Фамилию и нажать на кнопку "Начать". На рисунке 4.2 показан пример ввода.

Рисунок 4.2 – Пример ввода имени и фамилии

Пример выполнения проверки приведен на рисунке 4.3.

Рисунок 4.3– Пример вопроса в тестировании

Рисунок 4.4– Результат тестирования

Результат тестирования выводится на экран.

Функционирование программы полностью соответствует заданию.

ВЫВОДЫ

Данная курсовая работа была выполнена в полном соответствии поставленному заданию и отлажена в среде Delphi 7.0. В ходе выполнения курсовой работы была разработана программа для проверки текстового файла.

В ходе выполнения курсового проекта были проведен - анализ технического задания и постановка задачи проектирования.

Были выделены функции, которыми должна обладать разрабатываемая программа.

Был разработан алгоритм программы, предназначенной для выполнения сформированных функций.

Согласно разработанному алгоритму была составлена и отлажена программа алгоритмическом языке программирования Delphi. В ходе разработки программы проводилось ее тестирование и отладка на тестовых наборах. Для написанной программы разработана инструкция оператора с указанием порядка выполняемых действий .

Результаты работы оформлены в виде пояснительной записки.

В ходе разработки программы были закреплены навыки работы:

- командами ввода-вывода как на экран, так и в текстовые файлы,

- использования процедур,

- команды обработки массивов,

- команды для реализации циклов с заданным числом повторений;

- команды проверки условий и реализации ветвлений.

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

Перечень ссылок

1. Зуев Е.А. Программирование на языке Delphi6.0,7.0. – М.: Радио и связь, Веста, 1993.

2. Фаронов В.В. Delphi7.0. Начальный курс. - М.: Нолидж, 2000.

ПРИЛОЖЕНИЕ А

Алгоритм программы

Рисунок А.1 – Алгоритм программы

ПРИЛОЖЕНИЕ Б

Листингпрограммы

1.unit Unit1;

3.interface

5.uses

6.Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

7.Dialogs, StdCtrls;

9.type

10. TForm1 = class(TForm)

11. Edit1: TEdit;

12. Label1: TLabel;

13. Button1: TButton;

14. RadioButton1: TRadioButton;

15. RadioButton2: TRadioButton;

16. RadioButton3: TRadioButton;

17. RadioButton4: TRadioButton;

18. procedure FormCreate(Sender: TObject);

19. procedure Button1Click(Sender: TObject);

20.

21. { Private declarations }

22. public

23. { Public declarations }

24. end;

25.

26. var

27. Form1: TForm1;

28. QNomber:integer;

29. ball:real;

30.

31. implementation

32.

33. {$R *.dfm}

34.

35. procedure TForm1.FormCreate(Sender: TObject);

36. begin

37. Label1.Caption:='Введите свое Имя и Фамилию';

38. Edit1.Text:='';

39. RadioButton1.Visible:=False;

40. RadioButton2.Visible:=False;

41. RadioButton3.Visible:=False;

42. RadioButton4.Visible:=False;

43. Button1.Caption:='Начать';

44. QNomber:=0;

45. ball:=0;

46. end;

47.

48. procedure TForm1.Button1Click(Sender: TObject);

49. var

50. QCheck:Boolean;

51. rezball:real;

52. rezint:integer;

53. begin

54. QCheck:=False;

55. f (RadioButton1.Checked=True)or(RadioButton2.Checked=True)or(RadioButton3.Checked=True)or(RadioButton4.Checked=True)then QCheck:=True;

56. case QNomber of

57. 0:begin

58. Label1.Caption:='Перечень пунктов главного меню содержит:';

59. Edit1.Visible:=False;

60. RadioButton1.Visible:=True;

61.

62. RadioButton1.Caption:='Испкавление, Редактирование, Компиляция';

63. RadioButton2.Visible:=True;

64. RadioButton2.Caption:='Рендеринг, Превью, Правка';

65. RadioButton3.Visible:=True;

66. RadioButton3.Caption:='Файл, Правка, Вставка';

67. RadioButton4.Visible:=True;

68. RadioButton4.Caption:='Отсчет, Компиляция, Рендеринг';

69. Button1.Caption:='Следующий вопрос';

70. inc(QNomber);

71. end;

72. 1:if QCheck=True then begin

73. if RadioButton3.Checked=True then ball:=ball+1;

74. RadioButton1.Checked:=False;RadioButton2.Checked:=False;RadioButton3.Checked:=False;RadioButton4.Checked:=False;

75. Label1.Caption:='Меню "Файл" содержит пункты:';

76. RadioButton1.Caption:='Создать, Открыть, Сохранить';

77. RadioButton2.Caption:='Вырезать, Вставить, Заменить';

78. RadioButton3.Caption:='Начать показ, Смена слайдов';

79. RadioButton4.Caption:='Шрифт, Оформление слайда, Разметка слайда';

80. inc(QNomber);

81. end;

82. 2:if QCheck=True then begin

83. if RadioButton1.Checked=True then ball:=ball+1;

84. RadioButton1.Checked:=False;RadioButton2.Checked:=False;RadioButton3.Checked:=False;RadioButton4.Checked:=False;

85. Label1.Caption:='Меню "Показ слайдов" содержит пункты:';

86. RadioButton1.Caption:='Создать, Открыть, Сохранить';

87. RadioButton2.Caption:='Вырезать, Вставить, Заменить';

88. RadioButton3.Caption:='Начать показ, Смена слайдов';

89. RadioButton4.Caption:='Шрифт, Оформление слайда, Разметка слайда';

90. inc(QNomber);

91. end;

92. 3:if QCheck=True then begin

93. if RadioButton3.Checked=True then ball:=ball+1;

94. RadioButton1.Checked:=False;RadioButton2.Checked:=False;RadioButton3.Checked:=False;RadioButton4.Checked:=False;

95. Label1.Caption:='Меню "Правка" содержит пункты:';

96. RadioButton1.Caption:='Создать, Открыть, Сохранить';

97. RadioButton2.Caption:='Вырезать, Вставить, Заменить';

98. RadioButton3.Caption:='Начать показ, Смена слайдов';

99. RadioButton4.Caption:='Шрифт, Оформление слайда, Разметка слайда';

100. inc(QNomber);

101. end;

102. 4:if QCheck=True then begin

103. if RadioButton2.Checked=True then ball:=ball+1;

104. RadioButton1.Checked:=False;RadioButton2.Checked:=False;RadioButton3.Checked:=False;RadioButton4.Checked:=False;

105. Label1.Caption:='Меню "Формат" содержит пункты:';

106. RadioButton1.Caption:='Создать, Открыть, Сохранить';

107. RadioButton2.Caption:='Вырезать, Вставить, Заменить';

108. RadioButton3.Caption:='Начать показ, Смена слайдов';

109. RadioButton4.Caption:='Шрифт, Оформление слайда, Разметка слайда';

110. inc(QNomber);

111. end;

112. 5:if QCheck=True then begin

113. if RadioButton4.Checked=True then ball:=ball+1;

114. RadioButton1.Checked:=False;RadioButton2.Checked:=False;RadioButton3.Checked:=False;RadioButton4.Checked:=False;

115. Label1.Caption:='Панель "Рисование" содержит:';

116. RadioButton1.Caption:='Возможность добавления рисунка';

117. RadioButton2.Caption:='Добавление обьекта WordArt';

118. RadioButton3.Caption:='Объекты рисования фигур, линий и стрелок';

119. RadioButton4.Caption:='Возможность изменения толщины линий таблиц и границ';

120. inc(QNomber);

121. end;

122. 6:if QCheck=True then begin

123. if RadioButton3.Checked=True then ball:=ball+1;

124. RadioButton1.Checked:=False;RadioButton2.Checked:=False;RadioButton3.Checked:=False;RadioButton4.Checked:=False;

125. Label1.Caption:='Панель "Таблицы и границы" содержит:';

126. RadioButton1.Caption:='Возможность добавления рисунка';

127. RadioButton2.Caption:='Добавление обьекта WordArt';

128. RadioButton3.Caption:='Объекты рисования фигур, линий и стрелок';

129. RadioButton4.Caption:='Возможность изменения толщины линий таблиц и границ';

130. inc(QNomber);

131. end;

132. 7:if QCheck=True then begin

133. if RadioButton4.Checked=True then ball:=ball+1;

134. RadioButton1.Checked:=False;RadioButton2.Checked:=False;RadioButton3.Checked:=False;RadioButton4.Checked:=False;

135. Label1.Caption:='Панель "WordArt" содержит:';

136. RadioButton1.Caption:='Возможность добавления рисунка';