Урок «Написание процедур вычисления основных функций»

I. Создать процедуры вычисления функции «X в степени Y». Для этого необходимо:

1. Изучить тему «Циклы на языке Delphi».

2. Создать процедуру обработки нажатия кнопки «X в степени Y».

procedure TForm1.BitBtn24Click(Sender: TObject);
begin
x:= strtofloat(edit1.text);
kod:= ‘^’;
edit1.Clear;
end;

3. Добавить в процедуру нажатия кнопки «=» следующий код

vark, y1:integer; / y1 – степень в которую возводим число x/
… /k– счетчик цикла/
'^': begin
y1:=strtoint(edit1.Text);
edit1.clear;
z:=1;
for k:=1 to y1 do
begin
z:=z*x
end
end

II. Создать процедуры вычисления остальных функций. При вычислении тригонометрических функций учесть, что компьютер работает с радианной мерой углов.
Например, процедура вычисления квадратного корня

procedure TForm1.BitBtn26Click(Sender: TObject); кнопка «корень»
begin
x:=strtofloat(edit1.Text);
edit1.clear;
z:=sqrt(x);
edit1.Text:=floattostr(z)
end;

Процедура вычисления функции sin

procedure TForm1.BitBtn11Click(Sender: TObject); кнопка «sin»
begin
x:=strtofloat(edit1.Text);
x:=(x*3.14)/180;
edit1.Clear;
z:=sin(x);
edit1.Text:=floattostr(z)
end;

Урок. «Написание процедур работы с меню и усовершенствование калькулятора»

У любой программы имеется система меню, которая позволяет выполнять разные сервисные функции. Создадим для нашего калькулятора меню, которое будет состоять, например, из следующий пунктов: «Файл», «Правка», «Справка».Для этого: поместить на форму объект MainMenu (в любое место формы, этот объект будет невидим при выполнении)

· Два раза щелкнуть левой кнопкой мыши по этому объекту на форме.

· Выделить в появившейся форме пунктирное поле и в инспекторе объектов в свойство Caption ввести «Файл».

· Аналогично создать пункты меню «Правка» и «О программе».

· В меню «Файл» создать пункт «Выход», а в «Правка» - пункты «Копировать» и «Вставить».

· Закрыть форму создания меню.

procedure TForm1.N2Click(Sender: TObject);begin close end;	procedure TForm1.N4Click(Sender: TObject);begin Edit1.CopyToClipboard; / копироватьвбуферобмена/ end; procedure TForm1.N5Click(Sender: TObject);begin Edit1.PasteFromClipboard; /вставить из буфера обмена/end;

Создание меню

Для создания справки создадим еще одну форму с именем Form2, на которой можно разместить справочные сведения и информацию об авторах программы. Для размещения текста можно воспользоваться объектом Memo, который представляет из себя почти готовый текстовый редактор, и объектом Image для размещения графики и фотографий. Для открытия формы воспользуемся командой Form2.ShowModal.

Процедура открытия формы «Справка»

procedure TForm1.N8Click(Sender: TObject);
begin
Form2.ShowModal Открытие формы «Справка»
end;