Описание плана разработки программы

Begin

Begin

Begin

Begin

Листинг подпрограммы

Описание плана разработки программы

Begin

Листинг подпрограммы

procedure TForm1. RadioButton1Click (Sender: TObject); var i: Integer;

ComboBox1.Clear;

ComboBox1.Tag:= (Sender as TRadioButton).Tag; for i:= 0 to 5 do

ComboBox1.Items.Add (ListBox1.Items [ComboBox1.Tag + i]); ComboBox1.ItemIndex:= 0; Image1.Picture.LoadFromFile (ListBox2.Items [ComboBox1.Tag]);

end;

procedure TForm1.FormCreate(Sender: TObject); begin

RadioButton1Click(RadioButton1); end;

procedure TForm1.ComboBox1Change (Sender: TObject); begin

Image1.Picture.LoadFromFile (ListBox2.Items [ComboBox1.Tag + ComboBox1.ItemIndex]); end;

Практическая работа № 7 «Обычный калькулятор»

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

1. Открыть новый проект.

2. Разместить на форме экземпляры компонентов: Label, Edit, Button.

Рис. 41.

3. Сохраните проект, запустите и протестируйте его.

procedure TForm1.FormCreate(Sender: TObject); begin

Edit1.Text:= '';

Edit2.Text:= '';

Edit3.Text:= ''; end;

procedure TForm1.Button5Click(Sender: TObject); begin

Edit1.Text:= '';

Edit2.Text:= '';

Edit3.Text:= ''; end;

procedure TForm1.Button6Click(Sender: TObject); begin

close; end;

procedure TForm1.Button1Click(Sender: TObject); begin

a:= StrToFloat (Edit1.Text);

b:= StrToFloat (Edit2.Text); c:= a + b;

Edit3.Text:= FloatToStr (c); end;

procedure TForm1.Button2Click(Sender: TObject);

a:= StrToFloat (Edit1.Text); b:= StrToFloat (Edit2.Text); c:= a - b;

Edit3.Text:= FloatToStr (c); end;

procedure TForm1.Button3Click(Sender: TObject); begin

a:= StrToFloat (Edit1.Text);

b:= StrToFloat (Edit2.Text); c:= a * b;

Edit3.Text:= FloatToStr (c); end;

procedure TForm1.Button4Click(Sender: TObject); begin

a:= StrToFloat (Edit1.Text);

b:= StrToFloat (Edit2.Text);

if b = 0 then Edit3.Text:= 'division by zero' else

c:= a / b;

Edit3.Text:= FloatToStr (c); end;

end;

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

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

Рис. 42.

Фрагмент подпрограммы (для вычисления функцииCos(x)) if Edit1.Text <> '' then

a:= StrToFloat (Edit1.Text); c:= cos (a);

end;

if Edit2.Text <> '' then

b:= StrToFloat (Edit2.Text); c:= cos (b);

end;Edit3.Text:= FloatToStr (c);

Добавить на форму кнопки для вычисления функций Tg(x), Log _ab.

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

Рис. 43.

Практическая работа № 8 «Строковый калькулятор»

Цель работы -создать программу,выполняющую действия строкового калькулятора.

Рис. 44.

1. Открыть новый проект.

2. Разместить на форме экземпляры компонентов: Edit, Label, Button.

Дата добавления: 2017-02-01