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

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

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

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

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

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

6 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. опис підпрограми-функції звернення до підпрограми-функції