Приклад 14.6

Приклад 14.5.

Приклад 14.4.

Приклад 14.3.

Приклад 14.1.

program func_ch;

var y:real;

function ch(x:real):real;

Begin ch:=(exp(x)+exp(-x))/2;end;

begin y:=ch(1)+ch(2); writeln('y=',y);

end.

Приклади використання функцій Приклад 14.2.

Задано одновимірний масив, що складається з 10 елементів. Знайти максимальний елемент масиву, використовуючи функцію.

program Task5;

const Size=10;

Тype TArray=array[1..Size] of integer;

var Arr:TArray; I: integer;

{Опис алгоритму пошуку максимального елемента у функції}

function Max(Arr:TArray):integer;

var I,M:integer;

begin M:=Arr[1];

for I:=2 to Size do

if Arr[I]>M then M:=Arr[I];

MaX:=M; {Імені функції привласнюється результат}

end; {Завершення опису функції}

Begin {Основна програма}

for I:=1 to Size do

begin

Write(‘Введіть',I,‘елемент масиву:'); Readln(Arr[I]); end;

Writeln('max елемент дорівнює',Max(Arr));

end.

Знайти довершені числа з діапазону від 1 до N, використовуючи функцію. Довершеним називається число, сума дільників якого дорівнює заданому числу.

program PerfectNumbers;

var N,I: integer;

{Опис алгоритму пошуку довершеного числа }

function IsPerfect(N: integer): boolean;

var S,I: integer;

begin

S:=0; IsPerfect:=False;

for I:=1 to N-1 do

if N mod I=0 then inc(S,I);

if S=N then IsPerfect:=True;

end;{Завершення опису функції}

Begin {Основна програма}

Write (‘Введіть граничне число діапазону:');

Readln(N);

Writeln (Довершені числа в діапазоні від 1 до N:');

for I:=1 to N do

if IsPerfect(I) then Writeln(I);

end.

Задано одновимірний масив, що складається з 10 елементів. Знайти елемент масиву, сума цифр якого дорівнює заданому числу, використовуючи функцію.

program Task4;

const Size=10;

var I,DS:integer;

Arr:array[1..Size] of integer;

function SumDigits(N: integer): integer;

var Sum: integer;

begin

Sum:=0;

while N>0 do

begin

Sum:=Sum+(N mod 10);

N:=N div 10;

end;

SumDigits:=Sum;

end;

begin

for I:=1 to Size do begin

Write('vvedite',1,'element masiva:'); Readln(Arr[I]);

end;

Write('summa tsifr:'); Readln(DS);

Writeln('elementy massiva s summoj tsifr, ravno',DS,':');

for I:=1 to Size do

if SumDigits(Arr[I])=DS then Writeln(Arr[I]);

end.

Задано одновимірний масив, що складається з 10 елементів. Використовуючи функцію, знайти добуток тих елементів масиву, значення яких є кратними 3 або 5.

program Task6;

const Size=10;

type

TArray=array[1..Size] of integer; var Arr: TArray; I:integer;

function Calculate(Arr: TArray): integer;

var I, P: integer;

begin

P:=1;

for I:=1 to Size do

if (Arr[I] mod 3=0) or

(Arr[I] mod 5=0) then P:=P * Arr[I];

Calculate:=P; end;

begin

for I:=1 to Size do

begin

Write('vvedite',I,'element massiva:'); Readln(Arr[I]); end;

Writeln('proizvedenie trebyemyh elementov ravno',Calculate(Arr));

end.

Задано одновимірний масив, що складається з 10 елементів. Використовуючи функцію, знайти суму від’ємних елементів масиву.

program Task9;

const size=10;

type

TArray=array [1..Size] of integer;

var Arr: TArray;I:integer;

function SumLessZero(Arr:TArray):integer;

var S, I:integer;

begin

S:=0;

for I:=1 to Size do

if Arr[I]<0 then S:=S+Arr[I];

SumLessZero:=S;

end;

begin

for I:=1 to Size do

begin

Write('Vvedite ',I,'-y element massiva: ');

Readln(Arr[I]);

end;

Writeln('Symma otricatelnyh elementov ravna ',

SumLessZero(Arr));

end.

Лекція 15

Підпрограма-процедура

Дата добавления: 2014-01-07