Будь умным!


У вас вопросы?
У нас ответы:) SamZan.net

лабораторная работа 3 Основные программные конструкции в среде Borlnd Delphi по дисциплине ИНФОРМАТИКА

Работа добавлена на сайт samzan.net:

Поможем написать учебную работу

Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 9.11.2024

Министерство образования и науки РФ

Государственное образовательное учреждение

высшего профессионального образования

«Тульский государственный университет»

Политехнический институт

Кафедра «Сварка, литье и технология конструкционных материалов»

 лабораторная работа № 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 с : ил.




1. Лекція 4 Патентна інформація та документація
2. Чинники впливу на репродуктивне здоровя молоді
3.  СЕЛЬСКОЕ ХОЗЯЙСТВО [0
4. Принципы и подходы к анализу причин подхода Слайд 2 Спектр всех возможных причин возникновения конфликта.
5. предков не полагалось.
6. Поняття числового ряду
7. Исследование финансовых ресурсов
8. 103-11 ~ печь сопротивления камерная с защитной атмосферой
9. Увольнение работников
10. тематика флористика экология фитоценология.
11. Транспортировка и хранение лесоматериалов Козловой кран КК4 трансбордерная тележка МТ1
12. день Мужества посвященному дню защитника отечества название команды указать фамилии и и
13. рефератов ко второй аттестации Абдигазиев Медет Анализ функциональ
14. Об обеспечении единства измерений от 27
15. ВЧИТЕЛЬ УЧНІ з книги Ш
16. IDSCNCEL Отмена;
17. Георгиенбург
18. сознание точное ясное материалистическое сознание.
19. Д В ведении каких работн наход пост управления стрелк и сигн станционный пост централизации в в.html
20. 15 марта 20 13 г