Будь умным!


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

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

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

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

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

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

от 25%

Подписываем

договор

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

Скидка 25% при заказе до 24.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.  Понятие прибыли
2. і. Ха~назар ~аза~ ханды~ын 42 жыл биледі
3. Пути совершенствования налогообложения прибыли СК РОСНО на современном этапе
4.  Предприятие- понятие признаки и виды Предприятие ~ самостоятельный хозяйствующий субъект созданный для
5. Народы России в Гражданской войне
6. Задание Разработать алгоритм моделирования работы
7. Психологическое исследование особенностей самоотношения у тревожных и нетревожных студентов
8. Методы исследования социально-экономических и политических процессов
9. Физика и авиация
10. Молодой специалист Игорь Андреев проработал в крупной иностранной компании по производству технического
11. Финансовый менеджмент 1
12. доистория введен в научный оборот- А К.html
13. терапия метод электролечения основанный на применении электромагнитных излучений с частотой от 300 МГц д
14. СанктПетербургский государственный университет аэрокосмического приборостроения Кафедра 82Бизн
15. РЕФЕРАТ дисертації на здобуття наукового ступеня кандидата мистецтвознавства Харк
16. Древнейшее поселение Рима жило родами которыми управляли старейшины
17. Задачи и объекты курса Экономики отрасли Экономика энергетики ~изучает экономические закономерности фун
18. тема образовательных учреждений в уездах и губерниях была создана в правление- А
19. Солженицын А.html
20.  Средства труда многократно участвующие в создании товаров и услуг без изменения их натуральновещественн