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

Лабораторное занятие № 7

Цель: приобретение навыка кодирования, отладки и тестирования разветвляющихся алгоритмов в среде Delphi.

ТО и ПО: ОС Windows XP (7), Delphi 2010.

МО: методические указания.

Задание № 1:

Требуется разработать проект, осуществляющий:

- Вычисление значения функции по выбору (f=sin(x), f=x2, f=ex) с использованием условной конструкции case;

- Поиск максимального числа из трех чисел f, y, z с использованием условной конструкции if. Предусмотреть возможность округления результата до целого.

Задание № 2:

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

Описание хода выполнения работы:

Создала Delphi-проект.

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

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

Осуществила кодирование обработчика создания формы:

procedure TForm2.FormCreate(Sender: TObject);

begin

Edit1.text:='0,1';

Edit2.text:='0,356';

Edit3.text:='0,53';

Memo1.Clear; // Активна первая кнопка RadioGroup1

RadioGroup1.ItemIndex:=0;

end;

Написала код обработчика нажатия на кнопку Выполнить:

procedure TForm2.Button1Click(Sender: TObject);

varx,y,z,f,max: extended;

begin

x:=strtofloat(Edit1.Text);

y:=strtofloat(Edit2.Text);

z:=strtofloat(Edit3.Text);

Memo1.Lines.Add('x ='+floatToStrF(x,FfFixed,8,4)+'y ='+ floatToStrF(y,FfFixed,8,4)+'z ='+FloatToStrF(z,ffFixed,8,4))

case RadioGroup1.ItemIndex of

0:begin f:= cos(x);y:=cos(y); z:=cos(z); end;

1:begin f:= sqr(x); y:=sqr(y); z:=sqr(z); end;

2:begin f:= exp(x); y:=exp(y); z:=exp(z);end;

end;

Edit4.text:= floatTostr(z);

if f>y then max:=f else max:=y;

if z > max then max:=z;

if CheckBox1.Checked then Memo1.Lines.Add('x ='+ IntToStr(Round(max)))

else Memo1.Lines.Add('max = '+FloatToStrF(max,fffixed,8,4));

end; end.

Рисунок 7.1

Вывод: В ходе лабораторного занятия я создала проект с использованием визуальных компонентов TCheckBox, TRadioGroup. В процессе создания проекта получила навык реализации разветвляющихся алгоритмов в системе программирования Delphi.

Дата добавления: 2014-12-25