Умовний оператор. | Оператор вибору. | Практична робота | Циклом з умовою поста. | Факторіал негативного числа не існує. | Практична робота | Одномірні і двовимірні масиви | одномірні масиви | літерні величини | Практична робота |

загрузка...
загрузка...
На головну

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

Процедури, як і функції, є найважливішою частиною мови, так як вони забезпечують модульне програмування.

Підпрограми-процедури, на відміну від підпрограм-функцій, можуть повертати в якості результату цілий набір значень і використовуються в тих випадках, коли результат виконання підпрограми не зводиться до обчислення.

Опис підпрограми-процедури повинно також знаходиться в розділі описів програми.

Стандартний вид опису процедури:

procedure ідентифікатор (список параметрів);

Begin

тіло процедури;

End;

Тут зарезервоване слово procedure показує, що далі йде опис процедури. ідентифікатор здійснює іменування процедури. список параметрів - Це список змінних, використовуваних для передачі даних в підпрограму-процедуру. Звернемо увагу, що на відміну від функції, тут відсутня тип значення, так як ім'я процедури не є носієм результату виконання процедури. Тому тип процедури в заголовку не описується.

Звернення до підпрограми-процедури, на відміну від функції, проводиться просто шляхом вказівки імені процедури.

Розглянемо приклад:

скласти програму для складання двох одновимірних масивів однакової розмірності. Висновок вихідних масивів і результуючого масиву оформити у вигляді процедури.

Uses crt;

Type massiv =array[1..1000] of integer;

Procedure vivod (x:massiv; N:integer);

Var i:integer;

Begin

for i: = 1 to n do

Write(X [i], '');

Writeln;

end;

Var m, j:integer;

a, b, c:massiv;

Begin

Write( 'Введіть розмірність масиву:');

Readln(M);

Write( 'Введіть елементи 1-го масиву:');

for j: = 1 to m do

Begin

Write( 'A [', j, '] =');

Readln(A [j]);

end;

Writeln( 'Введіть елементи 2-го масиву');

for j: = 1 to m do

Begin

write( 'B [', j, '] =');

readln(B [j]);

end;

Writeln( 'Превью масив');

Vivod(A, m);

Writeln( 'Другий масив');

Vivod(B, m);

for j: = 1 to m do

c [j]: = a [j] + b [j];

Writeln( 'Підсумований масив');

Vivod(C, m);

End.



Підпрограми-функції. | Модулі.
загрузка...
© um.co.ua - учбові матеріали та реферати