Поможем написать учебную работу
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Министерство образования и науки РФ
Государственное образовательное учреждение
высшего профессионального образования
«Тульский государственный университет»
Политехнический институт
Кафедра «Сварка, литье и технология конструкционных материалов»
лабораторная работа № 3
Основные программные конструкции в среде Borland Delphi
по дисциплине
ИНФОРМАТИКА
Разработал Сметанин Д.А.
Проверил Захаров С. К.
1. ЦЕЛЬ И ЗАДАЧИ РАБОТЫ
Изучить назначение и базовые возможности приложения Borland Delphi.
2. ТЕОРЕТИЧЕСКИЕ ПОЛОЖЕНИЯ
Циклические алгоритмы
Алгоритмы решения многих задач являются циклическими, то есть для достижения результата определенная последовательность действий должна быть выполнена несколько раз. Например, программа контроля знаний выводит вопрос, принимает ответ, добавляет оценку за ответ к сумме баллов, затем повторяет это действие еще и еще раз, и так до тех пор, пока испытуемый не ответит на все вопросы. Другой пример. Чтобы найти фамилию человека в списке, надо проверить первую фамилию списка, затем вторую, третью и т. д. до тех пор, пока не будет найдена нужная фамилия, или не будет достигнут конец списка. Такие повторяющиеся действия называются циклами и реализуются в программе с использованием инструкций циклов.
Самостоятельное задание:
Пусть оптимальный вес человека определяется как рост минус 100см. Если
фактический вес человека меньше оптимального, то будем считать его худым, если больше, то полным. Создать программу, выполняющую следующие действия. Введя рост и фактический вес и нажав кнопку «Расчет», учащийся может определить, худой он или полный и на
сколько килограмм надо поправиться или похудеть.
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, StdCtrls, Buttons;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Label3: TLabel;
Button1: TButton;
BitBtn1: TBitBtn;
procedure Button1Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Edit2KeyPress(Sender: TObject; var Key: Char);
procedure Edit2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
VAR
factW, optW, Rost, Delta : Real;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Label3.Caption := '';
Edit1.Text := '';
Edit2.Text := '';
Form1.ActiveControl := Edit1;
Button1.Enabled := false;
Label2.Visible := false;
Edit2.Visible := false;
end;
procedure TForm1.Button1Click(Sender: TObject);
VAR
y,k : real;
begin
Rost:=StrToFloat(Edit2.Text);
y:= Sqr(Rost/100);
k:=factW/y;
if k<18 then Label3.caption := 'Большой недовес'
else
if (k>=18)and (k<20)then Label3.caption := 'Маловато и небезопасно,
можно получить истощение'
else
if (k>=20)and(k<=25)then Label3.caption := 'Идеально'
else
if (k>25)and(k<=30) then Label3.caption := 'Легкий перебор'
else
if k>30 then Label3.caption := 'Срочно нужно худеть';
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
try
factW:=StrToFloat(Edit1.Text);
except
ShowMessage('Ошибочная запись числа: ' + Edit1.Text);
Edit1.SetFocus;
Exit;
end;
Label2.Visible:=true;
Edit2.Visible:=true;
Form1.ActiveControl := Edit2;
end;
end;
procedure TForm1.Edit2Click(Sender: TObject);
begin
if Edit1.Text = '' then else
Button1.Enabled := true;
end;
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
try
Rost:=StrToFloat(Edit2.Text);
except
ShowMessage('Ошибочная запись числа: ' + Edit2.Text);
Edit2.SetFocus;
Exit;
end;
Button1.Enabled:=true;
Button1.SetFocus;
end;
end;
end.
СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ
Работа с базами данных в Delphi / В. Э.Гофман, А. Д. Хомоненко . 2-е изд. СПб. : БХВ -Петербург, 2003 . 624с. : ил. (2 экз.)
Delphi 7 : [наиболее полное руководство] / А. Д. Хомоненко [и др.];под общ.ред.А.Д.Хомоненко . СПб. : БХВ - Петербург, 2007 . 1216с. : ил. (7 экз.)
. Программирование в Delphi 7 / П. Г. Дарахвелидзе, Е. П.Марков . СПб.: БХВ -Петербург, 2004 . 784c. : ил. (1 экз.)
Осипов Д. Delphi. Профессиональное программирование. - СПб.: Символ-Плюс, 2006. -1056 с., ил.
Корняков В. Н. Программирование документов и приложений MS Office в Delphi. - СПб.: БХВ-Петербург, 2005. - 496 с : ил.