Хід роботи

1. Створюємо новий проект. Розміщуємо на формі компоненти.

Змінюємо шрифти, кольори і написи на об¢єктах.

2. Переходимо у вікно з текстом програми. В заголовку, там, де опис глобальних змінних, записуємо:

Var x,y,z: Real;

Далі потрібно описати функцію, яка піднімає число до степеня. У розділі Public записуємо.

Function Step(a:real; b:real):real; натискаємо Ctrl+Shift+c і вписуємо текст функції у шаблон один рядочок.

Function Step(a:real; b:real):real;

Begin

Step:=exp(b*ln(a));

End;

3. Далі нам потрібно викликати нашу функцію у потрібний момент.

Двічі по кнопці " Обчислити " і програмуємо

x:=strtofloat (edit1.Text);//вводимо основу

y:=strtofloat(edit2.Text);//вводимо показник степеня

If x<0 then showmessage('Основа має бути додатньою');

If y=0 then Z:=1; //якщо показник =0 то результат=1

Date: 2015-07-27; view: 317; Нарушение авторских прав