Лабораторная работа №15 Примеры создания модулей

Цель работы: научиться использовать основные и дополнительные элементы, инструментальные средства, стандартные компоненты, управлять окнами на рабочем пространстве, настраивать среду программирования, изучить основные части программы, созданной в Delphi

Студент должен

знать:

• инструментальные средства;

• основные части программы

• стандартные компоненты

уметь:

• настраивать среду программирования;

• управлять окнами на рабочем пространстве

Задание.

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

unit tt;

interface

uses

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

Dialogs, StdCtrls;

type

TForm1 = class(Tform)

Button1: Tbutton;

Edit1: Tedit;

Memo1: Tmemo;

Label1: Tlabel;

procedure Button1Click(Sender: Tobject);

procedure FormActivate(Sender: Tobject);

private

x: integer;

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: Tform1;

implementation

{$R *.dfm}

procedure Tform1.Button1Click(Sender: Tobject);

var y:integer;

begin

y:= strtoint(Edit1.Text);

if x>y then Memo1.Lines.Add(‘x>’+ Edit1.Text)

else if x<y then Memo1.Lines.Add(‘x<’+ Edit1.Text)

else Memo1.Lines.Add(‘вы отгадали ‘+ Edit1.Text)

end;

procedure Tform1.FormActivate(Sender: Tobject);

begin

randomize;

x:= random(10);

Edit1.SetFocus;

end;

end.

2. Поясните основные части программы

3. Поясните назначение переменных

4. Добавьте в проект вывод количества попыток, которое сделал пользователь, прежде чем угадал число.

Контрольные вопросы:

1. Перечислите основные части программы

2. Приведите примеры стандартных компонент

3. Как настраивать среду программирования?

4. Как управлять окнами на рабочем пространстве?

Лабораторная работа №16 Примеры использования компонентов Label, Edit, Memo

Цель работы: освоить навыки работы с компонентами Edit, Label, Button, научиться использовать их в приложениях

Студент должен

знать:

• назначение компонентов Edit, Label, Button;

• расположение компонентов на Странице Палитры компонентов;

• свойства и методы компонентов Edit, Label и Button;

• как изменять свойства компонентов во время выполнения программы;

• как управлять методами во время выполнения программы;

уметь:

• изменять значения свойств компонентов Edit, Label, Button;

• писать адекватные реакции на события;

• изменять свойства компонентов во время выполнения программы;

• управлять методами компонентов во время выполнения программы.

Примеры и задания.

I. Рассмотрите приведенный ниже пример, поясните процедуры.

Пример: Начав тренировки, спортсмен в первый день пробежал 10 км. Каждый следующий день он увеличивал норму на 4 км от нормы предыдущего дня. Какой суммарный путь пробежит спортсмен за 7 дней. Рекомендуемый вид формы представлен на рисунке.

Var Form1: TForm1;

A, B, C, I: Integer;

implementation {$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin A:=Strtoint(Edit1.Text); B:=Strtoint(Edit2.Text); C:=0; For I:=1 to Strtoint(Edit3.Text) do

Begin C:=C+A; A:=A+B; end; Label1.Caption:='Ответ'; Label2.Visible:=False; Label3.Visible:=False; Edit2.Visible:=False; Edit3.Visible:=False; Button1.Enabled:=False; Edit1.Text:=InttoSTR(c); end; procedure TForm1.Button2Click(Sender: TObject); begin Label2.Visible:=True; Label3.Visible:=True; Edit2.Visible:=True; Edit3.Visible:=True; Button1.Enabled:=True; Label1.Caption:='Расстояние в первый день'; Edit1.Text:=''; Edit2.Text:=''; Edit3.Text:=''; Edit1.SetFocus; end; procedure TForm1.Button3Click(Sender: TObject); begin Close end;

II. Задания для самостоятельного выполнения.

Варианты заданий:

1. Одноклеточная амеба каждые 3 часа делится на 2 клетки. Определить сколько клеток образуется через 3, 6, 9, ..., 18 часов.

2. Ввести координаты точки и определить принадлежат ли они кругу радиусом R с центром в начале координат.

3. В классе N учеников. Вводя поочередно рост каждого в сантиметрах, определить средний рост учеников класса.

4. Вводятся поочередно координаты N точек. Определить сколько из них попадает в круг радиусом R с центром в начале координат.

5. В ЭВМ поступают результаты соревнований по плаванию для трех спортсменов. Вывести лучший результат.

6. Мяч брошен вертикально вверх со скоростью V. Определить зависимость координаты Y от времени. Y=V*T-(G*T²)/2.

7. В продаже книг принимает участие ЭВМ. Составить программу, которая запрашивает стоимость книги, сумму денег, внесенную покупателем; определяется сдача (если денег внесено больше), печатается "СПАСИБО" (если сдачи не требуется) или выдается сообщение о недостаточности внесенной суммы.

8. Одна миля составляет 1.609 км. Получить значение в км введенных расстояний. Для перевода градусов в радианы используется формула Lрад=(Lград*РI)/180. Получить значение в радианах углов.

9. Около стены наклонно стоит полка длиной X. Один ее конец находится на расстоянии У от стены. Определить COS угла L между полкой и полом для значения Х.

10. Пассажирский самолет может поднять груз общей массой 30 Т. Составить программу для определения массы почтового груза после посадки пассажиров. Средний вес одного пассажира 55 кг. Предусмотреть ввод числа пассажиров.

11. Цилиндр объема V единиц имеет высоту Н. Определить радиус R основания цилиндра для значений Н (V=PI*R²*H).

12. Ввести температуру по Цельсию, найти эквивалент по шкале Фаренгейта (Т(F)=9/5*Т(С)+32).

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

14. Ввести температуру по Цельсию найти эквивалент по шкале Кельвина Т(К)=Т(С)+273.

Контрольные вопросы:

1. Oпишите этапы создания приложения в среде программирования Delphi.

2. Для чего предназначены компоненты Edit и Label? В чем их принципиальное отличие?

3. Перечислите некоторые свойства компонента Edit.

4. Перечислите некоторые свойства компонента Label.

5. Для чего предназначено свойство KeyPreview?

6. .Поясните значения оператора Button1.OnClick.