8. Сохраните создаваемый проект в своей папке.

• Для этого выполните команду главного меню File => Save All (Сохранить Все) или нажмите на кнопку Save All на панели инструментов.

• В окне Save Unit as с помощью списка выберите свою папку, создайте в ней папку Delphi и откройте ее, задайте название для файла текста программы Calc1, предварительно удалив предложенное компьютером название Unitl.pas => кнопка Сохранить.

• В следующем окне «Save Projectl As» введите название файла проекта Calc, удалив предложенное компьютером название Projectl.dpr => сохранить.. Обратите внимание: файлы проекта и текста программы должны иметь разные названия.

9. Компиляция и запуск программы

Для компиляции программы с последующим ее выполнением можно нажать клавишу <F9>, щелкнуть на кнопке Run панели инструментов или выполнить команду меню Run  Run.

Файл программы, созданный в результате компиляции, будет назван в соответствии с именем файла проекта, в данном случае — Calc.ехе.

10. Файл  Close All.

1. Выполните самостоятельно:

   1. Измените программу так, чтобы вычисления можно было производить с дробными числами, изменив соответствующие функции StrToInt и IntToStr на StrToFloat и FloatToStr. Не забудьте сменить соответствующее объявление переменных.

   2. Измените программу так, чтобы при появлении окна калькулятора фокус был передан окну ввода, для чего:

напишем обработчик OnShow для Form1.

procedure TForm1.FormShow(Sender: TObject);

begin

edit1.SetFocus;

end;

3. Аналогичным образом, сделайте так, чтобы при нажатии кнопок «=» и «СЕ», а также кнопок математических операций, фокус передавался окну ввода.

4. Настройте параметры формы таким образом, чтобы размеры окна нельзя было изменить и кнопка «Развернуть /Maximize/» отсутствовала.

5. Добавьте кнопку «,» для ввода разделителя между целой и дробной частью числа. Для этого в обработчик OnClick кнопки добавьте:

if pos(',',edit1.Text)<>0 then exit

// если символ «,» в строке уже имеется

else edit1.Text:=edit1.Text+','

6. Добавьте кнопку «+/-» для изменения знака числа на противоположный. Х- соответствующий номер кнопки

procedure TForm1.BitBtnХClick(Sender: TObject);

var s:string;

begin

s:=Edit1.Text;

if s[1]='-' then delete(s,1,1) else

insert('-',s,1);

edit1.Text:=s;

end;

7. Создать кнопки для следующих математических операций:

   1. возведение в степень num1:=exp(p*ln(i));

   2. целочисленное деление (div) и остаток от деления (mod)– для преобразования типов использовать функцию round;

   3. возведение в квадрат (sqr);

   4. извлечение квадратного корня (sqrt);

   5. вычисления натурального и десятичного логарифма;

   6. вычисления sin-са, cos-са и tg-са аргумента;

   7. вычисления экспоненты (e^x);

   8. для вычисления 1/x;

   9. ввода числа ;

   10. для нахождения факториала числа.