Задача. Дано два дійсні числа. Знайти максимальне з двох чисел

Програма, що використовує для рішення функцію має наступний вид.

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

Ця наша невеличка форма з об’єктами схожа на смішний смайлик, але вона налаштована на цілком серйозну роботу

Змінимо написи на об’єктах і отримаємо таке:

Як завжди у заголовку програми оголошуємо змінні

var a, b, m: integer;

Трохи вище у програмі в розділі Public записуємо рядок

function Max (x, y: integer): integer;

Далі натискаємо вже відому нам комбінацію клавіш Ctrl+Shift+C і спостерігаємо як створюється порожня функція. Залишилося тільки написати саму функцію. Ваша програма повинна виглядати так:

В нашу новостворену програму-функцію між Begin i End записуємо:

if x>y then Max:=x else Max:=y;

Така маленька функція покликана визначати більше з двох чисел X i Y;

Викликати свою функцію будемо натисканням на кнопку " Знайти максимальне ".

Двічі клацаємо по кнопці і між чарівними словами Begin i End програмуємо

a:=strtoint(edit1.Text);//читає перше число

b:=strtoint(edit2.Text);//читає друге число

m:=max(a,b);// викликаємо функцію

edit3.text:=inttostr(m);//виводимо результат

Запускаємо програму на виконання. Спостерігаємо результат.

Задачу можна розв'язати іншим способом.

Програма, що використовує для рішення процедуру має наступний вид.

procedure Max (x,y:integer; var res:integer);

Begin

if x>y then res:=x else res:=y;

end;

Виклик процедури виконується окремим оператором!

max(a,b,m);

Задача. Скласти програму, яка піднімає число до степеня. На вході два числа додатна основа і показник степеня. На виході одне число – результат обчислення.