Приложение 6

Контрольная работа (3-й семестр)

Контрольная работа предназначена для углубленного изучения основ программирования с использованием среды Turbo Pascal.

Контрольная работа содержит десять вариантов. Каждый вариант состоит из трех практических заданий. Задания 1-3 в печатном виде представить в контрольной работе. Тексты Паскаль-программ выложить в рабочую область дисциплины в СДО Кампус. 

Номер варианта задания определяется по первой букве фамилии согласно следующей таблицы:

Работа должна быть выполнена в установленные сроки и сдана на кафедру Математики и информатики для проверки преподавателем (не позднее, чем за неделю до начала сессии!). Проверенные работы рецензируются и хранятся на кафедре до начала сессии. Работы, по которым имеются замечания, возвращаются на доработку студенту.

ТРЕБОВАНИЯ К ОФОРМЛЕНИЮ КОНТРОЛЬНЫХ РАБОТ

1. Контрольная работа должна быть выполнена на листах формата А4, подшитых в скоросшиватель.
2. Структура контрольной работы: первый лист – титульный, второй лист – оглавление, каждый  освещаемый вопрос оформляется с новой страницы.
3. В нижнем колонтитуле – номер страницы (титульный лист не нумеруется), в верхнем колонтитуле – номер группы, номер варианта, фамилия и инициалы студента.
4. Параметры страницы. Размеры полей: левое – 3 см, правое – 1 см, верхнее – 2 см, нижнее – 2 см. Шрифт Times New Roman, размер шрифта – 12 пт, междустрочный интервал – одинарный, выравнивание – по ширине.
5. Тексты программ выложить в СДО Кампус в рабочей области дисциплины (до начала сессии).

Для всех заданий решение представить в виде:

1. Постановка задачи;
2. Блок-схема алгоритма программы, выполненная с использованием графических средств редактора WORD;
3. Входные и выходные данные;
4. Текст программы;
5. Результаты выполнения программы (копия экрана).

Задание 1.

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

S=A(1+r)ⁿ , где   S-сумма на депозите,   A-начальная сумма вклада, r-банковский процент,   n-период действия депозита.

Образец формы

Рис 1.Образец формы проекта «Финансовый калькулятор»

Задание 2.

Разработать проект, который позволит ввести на форму элементы  массива Таблица 2  и вычислить результат согласно варианту Таблица 3.. Результат выдать на форму.

Таблица 2

Таблица 3

Образец формы

Рис 3. Образец формы проекта «Вычисления в массиве»

Задание 3.

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

Образец формы

Рис 3. Образец формы построения графика

Таблица 4

1Методические указания.

Разработка простого калькулятора

1.  Создать новый проект (команда File|New|Application) и сохранить его файлы в вашей  папке (команда File|Save Project As).

2. Задать название проекта: ' калькулятор' (команда Project|Options, закладка Application, параметр Title).

3.  Установить свойства главной формы проекта Form1 в Инспекторе Объектов:

4. Разместить на форме три компонента класса TLabel, три компонента класса TEdit и шесть  компонент класса TButton (Standard). Изменить размеры формы, разместить и выровнять компоненты

Установить в свойствах Text компонентов Edit1, Edit2 и Edit3 значения '' (пустая строка),

5. Установить в свойстве Caption компонент Button  значение знаки операций, очистить и закрыть

6. Создать обработчики  событий OnClick компонентов  Button

Учитывая, что информация с формы вводится в символьном виде , для преобразования необходимо использовать функции FloatToStr и StrToFloat

Листинги подпрограмм для обработки кнопок.

procedure TForm1.FormCreate(Sender: TObject);

begin

Edit1.Text := '';

Edit2.Text := '';

Edit3.Text := '';

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

Edit1.Text := '';

Edit2.Text := '';

Edit3.Text := '';

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

close;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

a := StrToFloat (Edit1.Text);

b := StrToFloat (Edit2.Text);

c := a + b;

Edit3.Text := FloatToStr (c);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

a := StrToFloat (Edit1.Text);

b := StrToFloat (Edit2.Text);

c := a - b;

Edit3.Text := FloatToStr (c);

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

a := StrToFloat (Edit1.Text);

b := StrToFloat (Edit2.Text);

c := a * b;

Edit3.Text := FloatToStr (c);

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

a := StrToFloat (Edit1.Text);

b := StrToFloat (Edit2.Text);

if b = 0 then Edit3.Text := 'деление на нуль'

else

begin

c := a / b;

Edit3.Text := FloatToStr (c);

end;

end;

Задание 2 Обработка массива.

Выполнение  разработки

1. Открыть новый проект.

2. Разместить на форме экземпляры компонентов: Button, Edit, Label.

3. Выполнить следующие действия:

Введите переменные в код формы

Var s, ss: string ; a: array [1..15] of integer; I, j, k, max, min, p, code : integer.

5. Сохраните проект, запустите и протестируйте его.

Листинг программ для элементов формы

procedure Tform1.FormCreate(Sender: Tobject);

begin

Edit1.Text := ‘’;

Edit2.Text := ‘’;

Edit3.Text := ‘’;

end;

procedure Tform1.Button1Click(Sender: Tobject);

begin

Edit1.Text := ‘’;

Edit2.Text := ‘’;

Edit3.Text := ‘’;

end;

procedure Tform1.Button2Click(Sender: Tobject);

begin

close;

end;

procedure Tform1.Button3Click(Sender: Tobject);

begin

s :=Edit1.Text;

s := concat (s, #32);

i := 0;

while Length(s) > 0 do

begin

i := i+1;

p := pos (#32,s);

ss := copy (s,1,p-1);

Val (ss,k,code);

a[i] := k;

delete(s,1,p);

end;

max := a[1];

For j := 1 to i do

if max < a[j] then max := a[j];

min := a[1];

For j := 1 to i do

if min > a[j] then min := a[j];

Edit3.Text := IntToStr (max);

Edit2.Text := IntToStr (min);

end;

Задание 3  Построение графика функции.

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

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

Описание плана разработки программы

1. Открыть новый проект.

2. Разместить на форме экземпляры компонентов: кнопка Button, область рисования PaintBox.

3. Выполнить следующие действия:

Листинги программ обработки кнопок.

procedure TForm1.Button1Click(Sender: Tobject);

function f(x:integer):integer;

var c:integer;

begin

c:=round(sin(0.25*x));

f:=c;

end;

var x:integer;

begin

PaintBox1.Canvas.LineTo(0,150);

PaintBox1.Canvas.LineTo(410,150);

x:=0;

for x:=0 to 350 do

begin

PaintBox1.Canvas.LineTo(x, f(x)+150);

end;

end;

procedure Tform1.Button2Click(Sender: Tobject);

begin

Close;

end;

end.

Литература

1. Садовская О.Б. Программирование в среде Delphi. Часть 2. Создание оконных приложений: Учебное пособие. – Воронеж: Изд-во ВГУ, 2006.
2. Спиричева Н.Р. Лабораторные работы по программированию в среде Delphi (работы 6-9). – Екатеринбург: ГОУ ВПО УГТУ-УПИ, 2004.
3. Фаронов В. В. Программирование в Delphi 7: Учебный курс. – СПб.: «Питер», 2006.