План заняття

End.

Begin

Begin

Begin

Begin

Begin

Begin

Var

Implementation

Var

Type

Interface uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

TForm1 = class(TForra)

Edit1: TEdit;

Edit2: TEdit;

Label1: TLabel;

Label2: TLabel;

Button1: TButton;

Label3: TLabel;

procedure ButtonlClick(Sender: TObject);

procedure Edit2KeyPress(Sender: TObject;

var Key: Char);

procedure EditlKeyPress(Sender: TObject;

var Key: Char); private

{ Private declarations } public

{ Public declarations }

end;

Forml: TForm1;

{$R *.dfm}

// подпрограмма

procedure Summa;

cena: real; // цена

kol: integer; // количество

s: real; // сумма

mes: string[255]; // сообщение

cena:= StrToFloat(Form1.Edit1.Text);

kol:= StrToInt(Forml.Edit2.Text);

s:= cena * kol;

if s > 500 then

s:= s * 0.9;

mes:= 'Предоставляется скидка 10%' + #13;

end;

mes:= mes+ 'Стоимость покупки: '

+ FloatToStrF(s,ffFixed,4,2) +' руб.';

Forml.Label3.Caption:= mes;

end;

// щелчок на кнопке Стоимость

procedure TForml.ButtonlClick(Sender: TObject);

Summa; // вычислить сумму покупки

end;

// нажатие клавиши в поле Количество

procedure TForml.Edit2KeyPress(Sender: TObject; var Key: Char);

case Key of

'0'.. '9',#8:; // цифры и клавиша <Backspace>

#13: Summa; // вычислить стоимость покупки

else Key:= Chr(O); // символ не отображать

end;

end;

// нажатие клавиши в поле Цена

procedure TForm1.EditlKeyPress(Sender: TObject; var Key: Char);

case Key of

'0'.. '9', #8:; // цифры и клавиша <Backspace>

#13: Form1.Edit2.SetFocus; // клавиша <Enter>

'.','.':

if Key = '.'

then Key:=', if Pos(', ',Edit1.Text) <> 0

then Key:= Chr(0);

end;

else // все остальные символы запрещены

Key:= Chr(0);

end;

end;

Рис. 2. Алгоритм программы вычисления стоимости покупки — совокупность алгоритмов обработки событий на компонентах формы

Рис. 3. Окно (форма) программы Стоимость покупки

Контрольні питання

1. Надати характеристику поняття программа

2. Навести характеристику етапів розробки програм

3. Надати характеристику етапу Специфікація

4. Надати характеристику етапу Розробка алгоритму

5. Надати характеристику етапу Кодування

6. Надати характеристику етапу Відладка

7. Надати характеристику етапу Тестування

8. Надати характеристику етапу Створення довідкової системи

9. Надати характеристику етапу Створеня установчого диску

САМОСТІЙНА РОБОТА СТУДЕНТА

ЗМІСТОВИЙ МОДУЛЬ 5: МЕТОДОЛОГІЯ РОЗРОБКИ ПРОГРАМ

ТЕМА 5.1: ЕТАПИ РОЗРОБКИ ПРОГРАМ

Самостійне заняття №29 – Етапи розробки програм

1. Характеристика поняття програма

2. Поняття етапів розробки програм

3. Характеристика етапу Специфікація

4. Характеристика етапу Розробка алгоритму

5. Характеристика етапу Кодування

6. Характеристика етапу Відладка

7. Характеристика етапу Тестування

8. Характеристика етапу Створення довідкової системи

9. Характеристика етапу Створення установчого диску

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