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

2016-07-302016-07-30TaskMenСтудИзба

Описание файла

Документ из архива "Создание программы на языке Delphi", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "курсовые/домашние работы", в предмете "информатика, программирование" в общих файлах.

Онлайн просмотр документа "49061"

Текст 2 страницы из документа "49061"

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.

ПРИЛОЖЕНИЕ В

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

Поделитесь ссылкой:

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

Лучшая платформа для успешной сдачи сессии
Познакомился со СтудИзбой благодаря своему другу, очень нравится интерфейс, количество доступных файлов, цена, в общем, все прекрасно. Даже сам продаю какие-то свои работы.

Студизба ван лав ❤
Очень офигенный сайт для студентов. Много полезных учебных материалов. Пользуюсь студизбой с октября 2021 года. Серьёзных нареканий нет. Хотелось бы, что бы ввели подписочную модель и сделали материалы дешевле 300 рублей в рамках подписки бесплатными.

Отличный сайт
Лично меня всё устраивает - и покупка, и продажа; и цены, и возможность предпросмотра куска файла, и обилие бесплатных файлов (в подборках по авторам, читай, ВУЗам и факультетам). Есть определённые баги, но всё решаемо, да и администраторы реагируют в течение суток.

Маленький отзыв о большом помощнике!
Студизба спасает в те моменты, когда сроки горят, а работ накопилось достаточно. Довольно удобный сайт с простой навигацией и огромным количеством материалов.

Студ. Изба как крупнейший сборник работ для студентов
Тут дофига бывает всего полезного. Печально, что бывают предметы по которым даже одного бесплатного решения нет, но это скорее вопрос к студентам. В остальном всё здорово.

Спасательный островок
Если уже не успеваешь разобраться или застрял на каком-то задание поможет тебе быстро и недорого решить твою проблему.

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

Отзыв о системе "Студизба"
Отличная платформа для распространения работ, востребованных студентами. Хорошо налаженная и качественная работа сайта, огромная база заданий и аудитория.

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

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

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