Главная форма
Рекомендуемый вид формы (см. рис 2)
Рисунок 2 Рекомендуемый вид формы
Таблица свойств установленных при проектировании формы
Объект |
Свойство |
Значение |
Form2 |
Caption |
‘Главное меню |
Bordericons |
[biSystemMenu] |
|
Font.size |
14 |
|
Image1 |
Stretch |
True |
Picture |
\...\002.ipg |
|
MainMenu |
Caption |
|
Программный код
Объект |
Событийно – управляемая процедура |
|
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, jpeg, ExtCtrls,unit3,unit4,unit5,unit6,unit7,unit8; |
N11 |
procedure TForm2.N11Click(Sender: TObject); begin form2.Hide; form3.Show; end; |
N21 |
procedure TForm2.N21Click(Sender: TObject); begin form2.Hide; form4.Show; end; |
N31 |
procedure TForm2.N31Click(Sender: TObject); begin form2.Hide; form5.Show; end; |
N51 |
procedure TForm2.N51Click(Sender: TObject); begin form2.Hide; form6.show; end; |
N41 |
procedure TForm2.N41Click(Sender: TObject); begin form2.Hide; form7.show; end; |
N61 |
procedure TForm2.N61Click(Sender: TObject); begin form2.Hide; form8.show; end; |
Линейный алгоритм
Постановка задачи: Даны катеты прямоугольного треугольника. Найти его периметр. Рекомендуемый вид формы (см. рис 3)
Рисунок 3 Рекомендуемый вид формы
Таблица свойств установленных при проектировании формы
Объект |
Свойство |
Значение |
Form3 |
Caption |
‘Линейный алгоритм’ |
Bordericons |
[] |
|
Font.size |
14 |
|
|
Font.name |
Times New Roman |
Image1 |
Stretch |
True |
Picture |
\...\002.ipg |
|
Label1 |
Caption |
‘Даны катеты прямоугольного треугольника. Найти его периметр.’ |
Wordwrap |
True |
|
Label2 |
Caption |
‘Введите длины катетов в соответствующие поля’ |
Label3 |
Caption |
‘a=’ |
Label4 |
Caption |
‘b=’ |
Edit1 |
Text |
‘’ |
Edit2 |
Text |
‘’ |
Button1 |
Caption |
‘Вычислить’ |
Button2 |
Caption |
‘Главное меню’ |
Enabled |
false |
Программный код
Объект |
Событийно – управляемая процедура |
Edit1 |
procedure TForm3.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (key in['0'..'9', #13,#8]) then begin ShowMessage(Необходимо вводить только натуральные числа для корректной работы программы'); key:=#0; end; end; |
Edit2 |
procedure TForm3.Edit2KeyPress(Sender: TObject; var Key: Char); begin if not (key in['0'..'9', #13,#8]) then begin ShowMessage(Необходимо вводить только натуральные числа для корректной работы программы'); key:=#0; end; end; |
Button1 |
procedure TForm3.Button1Click(Sender: TObject); var a,b:integer; p:real; begin If (edit1.Text='') or (edit2.Text='') then ShowMessage(Вы ввели недостаточное количество исходных данных,'+#13+' проверь те ввод данных и нажмите кнопку "Вычислить" ') Else begin a:=StrToInt(Edit1.Text); b:=StrToInt(Edit2.Text); p:= Sqr(a)+sqr(b)+sqrt(sqr(a)+sqr(b)); Showmessage('Ответ'+#13+floatTostrf(p,fffixed,4,2)); button2.Enabled:=true; edit1.Text:=''; edit2.Text:=''; end; end; |
Button2 |
procedure TForm3.Button2Click(Sender: TObject); begin form3.hide; form2.show; end; |