Geum.ru

Создание устного счета на языке Паскаль

Курсовой проект - Компьютеры, программирование

Другие курсовые по предмету Компьютеры, программирование

p>rezult:=0;

k:=random(SpinEdit2.Value);

m:=random(SpinEdit2.Value);

if k=0 then k:=1;

if m=0 then m:=1;

if CheckBox1.Checked=True then Chars:=+;

if CheckBox2.Checked=True then Chars:=Chars+-;

if CheckBox3.Checked=True then Chars:=Chars+/;

if CheckBox4.Checked=True then Chars:=Chars+*;

l:=(Chars[1+Random(Length(Chars))]);

Edit1.Text:=IntToStr(k)+l+IntToStr(m);

if l=+ then rezult:=k+m;

if l=- then rezult:=k-m;

if l=/ then rezult:=k/m;

if l=* then rezult:=k*m;

1then">if SpinEdit1.Value>1 then

begin

for i:=1 to (SpinEdit1.Value-1) do

begin

k:=random(SpinEdit2.Value);

if k=0 then k:=1;

if CheckBox1.Checked=True then Chars:=+;

if CheckBox2.Checked=True then Chars:=Chars+-;

if CheckBox3.Checked=True then Chars:=Chars+/;

if CheckBox4.Checked=True then Chars:=Chars+*;

l:=(Chars[1+Random(Length(Chars))]);

if l=+ then rezult:=rezult+k;

if l=- then rezult:=rezult-k;

if l=/ then rezult:=rezult/k;

if l=* then rezult:=rezult*k;

if l=/ then Edit1.Text:=(+Edit1.Text+);

if l=* then Edit1.Text:=(+Edit1.Text+);

Edit1.Text:=Edit1.Text+l+IntToStr(k);

end;

end;

Edit4.Text:=FloatToStr(rezult);

end;

 

Она непосредственно генерирует пример и выводит его на экран. Эта процедура начинает свою работу при нажатию кнопки "Сгенерировать" в верхней правой части окна программы. В основе этой процедуры заложены циклы которые определяют выбранный знак и генерируют пример с этим знаком. При нажатию кнопки "Показать ответ" в нижней части окна программы осуществляется вывод ответа в компоненте Edit2.

 

procedure TForm1.N3Click(Sender: TObject);

begin

form1.Close;

form2.Close;

end;

 

При нажатию кнопки "Выход" в верхней части окна программы, работа с программой заканчивается и она закрывается. При нажатию пункта меню "Справка О программе" открывается ещё одна форма с описанием программы, информацией об авторе. Данная форма кнопку(Button) для закрытия этой формы. На форме располагаются 3 поля с надписью(Label).

Ниже приведена блок схема работы кнопки Button1 отвечающей за создание примера.

 

 

 

 

 

 

10. Тестирование и отладка

 

При тестировании программы отклонений от правильной работы не обнаружено. Все юниты работают исправно.

При отладке программы были исправлены недочеты в построение примеров. Программа готова к эксплуатации.

 

 

11. Руководство пользователя

 

В данном разделе приведено описание всех ключевых элементов панели Настройки

 

 

Операции в данном разделе пользователь вводит какие операции устного счета будут в примере.

Количество операций - сколько действий будет в примере.

Максимальное число - из какого интервала будут браться числа для отдельных переменных.(это не максимальный возможный ответ на пример)

 

Вывод

 

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

Программа поможет самостоятельно тренироваться в устном счёте, без чьей либо помощи.

Программа будет полезна всем, кто ей будет пользоваться.

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

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

 

Список используемой литературы

 

  1. Фаронов В.В. "Delphi. Программирование на языке высокого уровня: Учебник для вузов", - СПб.: Питер, 2005.
  2. Мазный Г.Л., Мурадян А.В., Булякова И.А., Мельникова О.И. "Офисные информационные технологии: учебное пособие", - Дубна, 1999.
  3. Хоменко Анатолий, Гофман Владимир, Мещеряков Евгений, Никифоров Владимир Delphi 7. Под общей редакцией Хомоненко А. Д. СПб.: БХВ-Петербург, 2004.