Тема: Создание проекта циклических структуры программы с использованием визуальных компонентов

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

Цель: Приобретение навыка кодирования, отладки и тестирование циклических алгоритмов в среде Delphi.

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

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

Задание на лабораторное занятие:

Требуется разработать программу с использованием цикла while, осуществляющую табулирование функции

(3)

Начальное значение, а=3, конечное значение b=9, шаг h=0,5

Требуется разработать программу с использованием цикла for, осуществляющую вычисление многочлена 11x⁵+9x⁴+7x³+5x²+3x+1 в точке x=1,25.

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

Разместила компоненты интерфейса для организации диалога с пользователем (рис. 8.1).

Рисунок 8.1

Написала обработчик события нажатия на кнопку, выполняющую табулирование функции:

procedureTForm1.Button1Click(Sender: TObject);

var

a,b, h,y: real;

begin

a:=strtofloat(edit1.Text);

b:=strtofloat(edit2.Text);

h:=strtofloat(edit3.Text);

while a<=b do

begin

y:=sqrt((sin(a)+a*a*a)/2);

memo1.Lines.Add(floattostrf(a,fffixed,3,1)+' '+floattostrf(y,fffixed,5,2));

a:=a+h;

end;

end;

end.

Выполнила отладку и тестирование программы (рис. 8.2).

Рисунок 8.2

Разместила компоненты интерфейса для организации диалога с пользователем, а именно: поле ввода высшей степени полинома, поле для ввода первого коэффициента и поле для ввода значения переменной х (рис. 8.3).

Рисунок 8.3

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

Код программы:

unit Unit1;

interface

uses

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

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Label1: TLabel;

Edit1: TEdit;

Label2: TLabel;

Edit2: TEdit;

Label3: TLabel;

Edit3: TEdit;

Button1: TButton;

Memo1: TMemo;

Label4: TLabel;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

varb,x,y,e: real;

a,i:integer;

begin

a:=strtoint(edit1.text); //наивысшая степень полинома

b:=strtofloat(edit2.Text); // первый коэффициент

x:=strtofloat(edit3.Text);

e:=0;

for I:= a downto 0 do

begin

y:=b*(exp(a*ln(x)));

b:=b-2;

a:=a-1;

e:=e+y;

memo1.Lines.Add(floattostr(e));

end;

end;

end.

Осуществила отладку алгоритма, исправила возможные ошибки и протестировала программу (рис. 8.4).

Рисунок 8.4

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

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