Создание программы на языке Delphi

МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ

СЄВЄРОДОНЕЦЬКЕ ВИЩЕ ПРОФЕСІЙНЕ УЧИЛИЩЕ

Спеціальність: 5.091504"Обслуговування комп’ютерних та інтелектуальних систем та мереж"

















ПОЯСНЮВАЛЬНА ЗАПИСКА ДО КУРСОВОЇ РОБОТИ

З ПРЕДМЕТУ "ПРОГРАМУВАННЯ ТА АЛГОРИТМИЧНІ МОВИ"

НА ТЕМУ: "РОЗРОБКА ПРОГРАМИ ЗА ДОПОМОГОЮ МОВИ ПРОГРАМУВАННЯ DELPHI"







Студент групи № Т-09-4 Шейко Інна Олегівна

Керівник роботи Руднєв Максим Миколайович









Сєвєродонецьк 2010


МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ

СЄВЄРОДОНЕЦЬКЕ ВИЩЕ ПРОФЕСІЙНЕ УЧИЛИЩЕ

ЗАТВЕРДЖУЮ:

Заступник директора з УВР

_____________ О.П. Лимар

" " ______ 2010 р.



ЗАВДАННЯ

НА КУРСОВУ РОБОТУ СТУДЕНТА ГРУПИ № Т-09-4

Шейко Інна Олегівна

Спеціальність: 5.091504 "Обслуговування комп’ютерних та інтелектуальних систем та мереж"

1. Тема роботи "Розробка програми за допомогою мови програмування Delphi"

2. Термін подання студентом закінченої роботи. .2010 р.

3. Вихідні данні до дипломної кваліфікаційної роботи: методичний посібник з дисципліни

4. Зміст пояснювальної записки (перелік питань, які підлягають розробці ): 1.Постановка задачі 2. Математичний опис задачі 3.Розробка алгоритму 4.Структура програми 5.Описання початкових даних, на які розрахована програма 6.Інструкція оператора 7.Описання отриманих результатів

5. Перелік додатків: 1. Блок-схема алгоритму. 2. Лістинг програми. 3. Результати роботи програми

6. Дата видачі завдання . .2010 р.

 Керівник роботи 

Завдання прийняв до виконання 




МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ

СЄВЄРОДОНЕЦЬКЕ ВИЩЕ ПРОФЕСІЙНЕ УЧИЛИЩЕ

ЗАТВЕРДЖУЮ:

Заступник директора з УВР

_____________ О.П. Лимар

" " 2010 р.











КАЛЕНДАРНИЙ ПЛАН

НА КУРСОВУ РОБОТУ СТУДЕНТА ГРУПИ № Т-09-4

Шейко Інна Олегівна

Спеціальність: 5.091504 "Обслуговування комп’ютерних та інтелектуальних систем та мереж"



№ п/п

Найменування етапів дипломної кваліфікаційної роботи

Термін виконання етапів роботи

Примітка

1

Постановка задачі





2

Математичний опис задачі





3

Розробка алгоритму програми





4

Структура програми, опис її структурних компонентів





5

Описання початкових даних, на які розрахована програма





6

Розробка інструкції оператору





7

Тестування програми та її оптимізація





8

Оформлення пояснювальної записки до курсової роботи







Випускник 

Керівник роботи 




МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ

СЄВЄРОДОНЕЦЬКЕ ВИЩЕ ПРОФЕСІЙНЕ УЧИЛИЩЕ



















ВІДГУК

НА КУРСОВУ РОБОТУ СТУДЕНТА ГРУПИ № Т-09-4

Шейко Інна Олегівна

Спеціальність: 5.091504 "Обслуговування комп’ютерних та інтелектуальних систем та мереж"

		Тема роботи "Розробка програми за допомогою мови програмування Delphi"

		Керівник роботи Руднєв Максим Миколайович___

		Загальна характеристика курсової роботи: 

		Попередня оцінка:

		Робота захищена з оцінкою:

Керівник роботи   М. М. Руднєв

"____"___________2010 р.




СОДЕРЖАНИЕ



РЕФЕРАТ

ВВЕДЕНИЕ

1. Анализ технического задания и постановка задачи проектирования

2. Разработка алгоритма программы

3. ОПИСАНИЕ СТРУКТУРЫ ПРОГРАММЫ

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

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

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

ВЫВОДЫ

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

ПРИЛОЖЕНИЕ А

ПРИЛОЖЕНИЕ Б

ПРИЛОЖЕНИЕ В




РЕФЕРАТ



Пояснительная записка к курсовой работе содержит:

страниц - 28;

рисунков - 6;

таблиц – 1 ;

приложений – 3.

Цель работы: разработать программу тестирования студентов по программе MS PowerPoint с кодом на языке Delphi.

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

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

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

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

Алгоритмы процедур приведены в приложении А.

Листинг программы содержится в приложении Б.

Результат тестового запуска приведен в приложении В.

Программа разработана с использованием языка Delphi.

УСЛОВНЫЙ ОПЕРАТОР, ДИАЛОГ С ПОЛЬЗОВАТЕЛЕМ, РАБОТА С ВАРИАЦИЯМИ ОТВЕТОВ, ВЫЧИСЛЕНИЕ БАЛЛА НА ОСНОВАНИИ ПОЛУЧЕННЫХ РЕЗУЛЬТАТОВ




ВВЕДЕНИЕ



Данный курсовой проект был разработан в среде Delphi 7 с базовым языком программирования Delphi. Среди множества языков Delphi является наиболее универсальным и легко изучаемым языком. На сегодня Delphi поддерживает все современные возможности объектно-ориентированного программирования в такой мощной системе проектирования как Delphi 7. 

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

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

Согласно заданию дан набор вопросов для тестирования.

В ходе выполнения курсового проекта не обходимо выполнить следующие этапы:

- анализ технического задания и постановка задачи проектирования;

- выделение функций, которые выполнять разрабатываемая программа;

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

- составление программы согласно разработанным алгоритмам на языке Delphi;

- отладка программы на тестовых наборах;

- составление и оформление пояснительной записки.

Теоретическая и практическая значимость заключается в закреплении навыков составления алгоритмов поставленных задач и программирования на языке Delphi.






1. Анализ технического задания и постановка задачи проектирования



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

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

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

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

Подытожив все вышесказанное можно сформулировать требования к разрабатываемому программному обеспечению и выполнить постановку задания на проектирование. Так, согласно заданию, программа должна быть реализована в среде Delphi и должна выполнять следующие функции:

- вывод на экран информации о задании и назначении программы;

- ввод пользователем последовательности символов, определяющих его фамилию и имя;

- проверка полученного от пользователя ответа на каждый вопрос тестирования;

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

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




2. Разработка алгоритма программы



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

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

Далее необходимо подсчитать общее количество правильных ответов и на основании этого поставить пользователю соответствующий балл, для этого необходимо выполнение следующих условий:

В каждом вопросе предусмотреть проверку правильности ответа;

По результатам всех ответов подсчитать результирующий балл;

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

Составим следующий алгоритм:

По запуску программы запросить пользователя его имя и фамилию. Переходить к пункту 2 только по вводу пользователем имени и фамилии.

Задавать вопрос с первого по последний до тех пор пока не закончатся вопросы. Когда будет задан последний вопрос перейти к пункту 5.

В вопросе поверить правильность ответа на него. Если ответ верен, то нарастить счетчик правильных ответов, иначе счетчик не наращивать.

Перейти к следующему вопросу и к пункту 2.

Подсчитать количество правильных ответов и на основании этого подсчитать итоговый балл.

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

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

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



3. ОПИСАНИЕ СТРУКТУРЫ ПРОГРАММЫ



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

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



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

Наименование

Тип

Назначение

QCheck

Boolean

Логическая переменная отвечающая за наличие введенного имени и фамилии

QNomber

integer

Целочисленная переменная определяющая номер текущего вопроса

ball

real

Переменная в которой содержится результирующий балл по прохождении тестирования



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

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

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

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

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

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

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

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

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

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

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

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



RadioButton1.Checked:=False/True;



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

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



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



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



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



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

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

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




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



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

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





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



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






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



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





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






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



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

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




ВЫВОДЫ



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

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

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

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

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

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

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

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

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

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

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

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

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




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



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

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






ПРИЛОЖЕНИЕ А



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





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


ПРИЛОЖЕНИЕ Б



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



unit Unit1;



interface



uses

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

Dialogs, StdCtrls;



type

TForm1 = class(TForm)

Edit1: TEdit;

Label1: TLabel;

Button1: TButton;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

RadioButton3: TRadioButton;

RadioButton4: TRadioButton;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);



{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;

QNomber:integer;

ball:real;



implementation



{$R *.dfm}



procedure TForm1.FormCreate(Sender: TObject);

begin

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

Edit1.Text:='';

RadioButton1.Visible:=False;

RadioButton2.Visible:=False;

RadioButton3.Visible:=False;

RadioButton4.Visible:=False;

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

QNomber:=0;

ball:=0;

end;



procedure TForm1.Button1Click(Sender: TObject);

var

QCheck:Boolean;

rezball:real;

rezint:integer;

begin

QCheck:=False;

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

case QNomber of

0:begin

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

Edit1.Visible:=False;

RadioButton1.Visible:=True;



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

RadioButton2.Visible:=True;

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

RadioButton3.Visible:=True;

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

RadioButton4.Visible:=True;

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

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

inc(QNomber);

end;

1:if QCheck=True then begin

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

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

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

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

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

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

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

inc(QNomber);

end;

2:if QCheck=True then begin

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

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

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

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

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

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

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

inc(QNomber);

end;

3:if QCheck=True then begin

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

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

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

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

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

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

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

inc(QNomber);

end;

4:if QCheck=True then begin

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

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

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

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

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

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

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

inc(QNomber);

end;

5:if QCheck=True then begin

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

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

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

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

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

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

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

inc(QNomber);

end;

6:if QCheck=True then begin

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

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

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

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

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

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

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

inc(QNomber);

end;

7:if QCheck=True then begin

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

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

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

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

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

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

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

inc(QNomber);

end;

8:if QCheck=True then begin

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

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

Label1.Caption:='Панель "Настройка изоюражения" содержит:';

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

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

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

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

inc(QNomber);

end;

9:if QCheck=True then begin

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

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

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

RadioButton1.Caption:='Настройки шрифта, расположение текста и т.д.';

RadioButton2.Caption:='Возможность навигации по стандартным пуктам меню такие как "Файл"';

RadioButton3.Caption:='Возможность быстрого сознания и сохранения презентации';

RadioButton4.Caption:='Возможность добавления примечаний и рецензетов';

inc(QNomber);

end;

10:if QCheck=True then begin

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

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

Label1.Caption:='Панель "Строка меню" содержит:';

RadioButton1.Caption:='Настройки шрифта, расположение текста и т.д.';

RadioButton2.Caption:='Возможность навигации по стандартным пуктам меню такие как "Файл"';

RadioButton3.Caption:='Возможность быстрого сознания и сохранения презентации';

RadioButton4.Caption:='Возможность добавления примечаний и рецензетов';

inc(QNomber);

end;

11:if QCheck=True then begin

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

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

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

RadioButton1.Caption:='Настройки шрифта, расположение текста и т.д.';

RadioButton2.Caption:='Возможность навигации по стандартным пуктам меню такие как "Файл"';

 RadioButton3.Caption:='Возможность быстрого сознания и сохранения презентации';

RadioButton4.Caption:='Возможность добавления примечаний и рецензетов';

inc(QNomber);

end;

12:if QCheck=True then begin

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

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

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

RadioButton1.Caption:='Настройки шрифта, расположение текста и т.д.';

RadioButton2.Caption:='Возможность навигации по стандартным пуктам меню такие как "Файл"';

RadioButton3.Caption:='Возможность быстрого сознания и сохранения презентации';

RadioButton4.Caption:='Возможность добавления примечаний и рецензетов';

inc(QNomber);

end;

13:if QCheck=True then begin

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

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

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

RadioButton1.Caption:='Справку MS PowerPoint, информацию о программе';

RadioButton2.Caption:='Возможность различного взаиморасположения окон';

RadioButton3.Caption:='Проверку орфографии';

RadioButton4.Caption:='Возможность создания нового слайда, дублирования слайда';

inc(QNomber);

end;

14:if QCheck=True then begin

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

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

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

RadioButton1.Caption:='Справку MS PowerPoint, информацию о программе';

RadioButton2.Caption:='Возможность различного взаиморасположения окон';

RadioButton3.Caption:='Проверку орфографии';

RadioButton4.Caption:='Возможность создания нового слайда, дублирования слайда';

inc(QNomber);

end;

15:if QCheck=True then begin

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

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

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

RadioButton1.Caption:='Справку MS PowerPoint, информацию о программе';

RadioButton2.Caption:='Возможность различного взаиморасположения окон';

RadioButton3.Caption:='Проверку орфографии';

RadioButton4.Caption:='Возможность создания нового слайда, дублирования слайда';

inc(QNomber);

end;

16:if QCheck=True then begin

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

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

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

RadioButton1.Caption:='Справку MS PowerPoint, информацию о программе';

RadioButton2.Caption:='Возможность различного взаиморасположения окон';

RadioButton3.Caption:='Проверку орфографии';

RadioButton4.Caption:='Возможность создания нового слайда, дублирования слайда';

inc(QNomber);

 end;

17:if QCheck=True then begin

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

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

Label1.Caption:='В каком формате сохраняются презентации';

RadioButton1.Caption:='*.avi';

RadioButton2.Caption:='*.txt';

RadioButton3.Caption:='*.ppt';

RadioButton4.Caption:='*.doc';

inc(QNomber);

end;

18:if QCheck=True then begin

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

rezball:=ball/18*12;

rezball:=rezball;

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

Label1.Caption:='Вы ответили правильно на '+FloatToStr(ball)+' вопросов. Ваш балл '+FloatToStr(rezball);

RadioButton1.Visible:=False;

RadioButton2.Visible:=False;

RadioButton3.Visible:=False;

RadioButton4.Visible:=False;

inc(QNomber);

end;

end;



end;



end.






ПРИЛОЖЕНИЕ В



Результаты решения программы