Ізяславський НВК 2, Гульчак І.В. Підпрограми-функції

Опис підпрограми-функції Підпрограма, яка має єдиний результат, може бути оформлена як функція. Function ( ): ; ; Begin ; := End;

Приклад підпрограми-функції Задача про обчислення вартості телефонної розмови. Function cina(k:integer):real; var c:real; Begin c:=k*0,6; cina:=c+0,2*c End;

Звернення до підпрограми-функції ( ); Звернення застосовують тільки у виразах та при виводі. Приклад: Rez:=abon+cina(25); writeln(cina(45));

Розв'язати задачу з використанням підпрограми-функції В 3-Б класі Людмилі Анатоліївні необхідно розсадити дітей по партам. В класі n дітей, за партою має сидіти по двоє. Скільки способів має перебрати класний керівник? При розв'язанні задачі використати формулу комбінацій : де n=24, m=2.

Program combin; var n,m:integer; c:real; function fact(k:integer):integer; var i,f:integer; begin f:=1; for i:=2 to k do f:=f*i; fact:=f end; Begin writeln(Введіть кількість учнів в класі та за одною партою); readln(n,m); c:=fact(n)/(fact(m)*fact(n-m)); writeln(Необхідно перебрати, c, способів) End. опис підпрограми-функції звернення до підпрограми-функції