Добавил:
mihail1000
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Программирование на Free Pascal в Lazarus. учебное пособие. Хливненко Л.В., Васильев В.В.pdf
X
- •Дважды кликните по Button1 на форме.
- •procedure TForm1.Button1Click(Sender:TObject);
- •var a, b, c : real;
- •begin
- •a := StrToFloat(Edit1.Text);
- •b := StrToFloat(Edit2.Text);
- •Edit3.Text := FloatToStr(c);
- •Дважды кликните по Button2 на форме.
- •procedure TForm1.Button2Click(Sender:TObject);
- •var a, b, c : real;
- •begin
- •a := StrToFloat(Edit1.Text);
- •b := StrToFloat(Edit2.Text);
- •Edit3.Text := FloatToStr(c);
- •Дважды кликните по Button3 на форме.
- •procedure TForm1.Button3Click(Sender:TObject);
- •var a, b, c : real;
- •begin
- •a := StrToFloat(Edit1.Text);
- •b := StrToFloat(Edit2.Text);
- •Edit3.Text := FloatToStr(c);
- •Дважды кликните по Button4 на форме.
- •procedure TForm1.Button4Click(Sender:TObject);
- •var a, b, c : real;
- •begin
- •a := StrToFloat(Edit1.Text);
- •b := StrToFloat(Edit2.Text);
- •Edit3.Text := FloatToStr(c);
- •Дважды кликните по Button5 на форме.
- •var a, b, c : real;
- •begin
- •a := StrToFloat(Edit1.Text);
- •b := StrToFloat(Edit2.Text);
- •c:=Power(a,b);
- •Edit3.Text := FloatToStr(c);
- •procedure TForm1.Button1Click(Sender:TObject);
- •begin
- •{Очистить содержимое Memo1}
- •Memo1.Clear;
- •Memo1.Lines.Add (Edit1.Text);
- •Memo1.Lines.Add (ComboBox1.Text);
- •procedure TForm1.Button3Click(Sender:TObject);
- •begin
- •{Очистить содержимое компонента Memo1}
- •Memo1.Clear;
- •procedure TForm1.Button4Click(Sender:TObject);
- •begin
- •{Закрыть форму}
- •Close;
- •begin
- •If RadioGroup1.ItemIndex=0
- •Then Form1.Color:=clSilver;
- •If RadioGroup1.ItemIndex=1
- •Then Form1.Color:=clAqua;
- •If RadioGroup1.ItemIndex=2
- •Then Form1.Color:=clYellow;
- •If RadioGroup1.ItemIndex=3
- •Then Form1.Color:=clRed;
- •begin
- •RadioGroup1.ItemIndex:=ScrollBar1.Position;
- •procedure TForm1.Button2Click(Sender:TObject);
- •begin
- •if CheckBox1.State=cbChecked
- •then Memo1.Font.Color:=clPurple
- •else Memo1.Font.Color:=clBlack;
- •if CheckBox2.State=cbChecked
- •then Memo1.Font.Style:=[fsBold]
- •else Memo1.Font.Style:=[];
- •if RadioButton1.Checked
- •then Memo1.Color:=clWhite;
- •1. Пусть даны три числа. Написать программу, которая определяла бы вид треугольника (равносторонний, равнобедренный, разносторонний, прямоугольный, тупоугольный, остроугольный), если данные числа могут быть длинами сторон треугольника.
- •Подписано к изданию 23.04.2013.
Учебное пособие
Хливненко Любовь Владимировна Васильев Валерий Викторович
ПРОГРАММИРОВАНИЕ НА FREE PASCAL В LAZARUS
Часть I
В авторской редакции
Подписано к изданию 23.04.2013.
Уч.-изд. л. 8,0.
ФГБОУ ВПО "Воронежский государственный технический университет"
394026 Воронеж, Московский просп., 14
147
Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]