Опис формату пдпрограми функц

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

Структура функц така ж, як структура основно програми, тобто включа заголовок блок. В свою чергу блок складаться з роздлу операторв.

Загальний вигляд функц function мя формальнпараметри тип Особливост пдпрограми-функц 1 функця ма тльки один результат виконання але може мати деклька вхдних параметрв 2 результат позначаться менем функц, тому в роздл операторв функц обовязково повинен бути присутнм оператор присвоювання, в лвй частин якого стоть мя ц функц 3 в заголовку функц обовязково повинен бути вказаний тип функц 4 виклик функц в основнй програм здйснються безпосередньо усередин вираження по мен з вказуванням фактичних параметрв.

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

В представленй вище програм використовуван формальн параметри функц перемнна, яка вказу мя масиву, який обробляться усередин ц функц mMas перемнна, яка вказу розмрнсть масиву xInteger та символьне значення А або В мя матриц kString Function Sum kString xInteger Var mMasReal Фактичн параметри указуються безпосередньо усередин тла основно програми при виклику функц псля мен в дужках.

ЗАВДАННЯ 2 Постановка задач Обчислити суми кльксть елементв, як знаходяться в нтервал вд a до b для матриць X10,8 Y10,12. Виконати з використанням пдпрограми процедури.

Виршення задач Program KursTask2 Uses Crt Const h5 m4 n6 Type MasArray1 h,1 n of Real Var x, y Mas a1,b1,a2,b2 Integer v1,v2 Integer Sx,Sy Real - Пpоцедуpа встановлення кольоpу шpифта - Procedure Tc pInteger Begin TextColorp End - Пpоцедуpа введення числових елементiв матpиць - Procedure InT kString xInteger Var mMas Var i, j Integer Begin For i1 To h Do Begin For j1 To x Do Begin WriteМасив TC15 Writek TC7 Write строка TC15 Writei TC7 Write елемент TC15 Writej TC7 Write TC15 ReadLnmi, j TC7 End End End Procedure Out kString a, b,vInteger sReal Begin WriteСума елементiв матpицi, k, в iнтеpвалi вiд WriteLna, до, b, доpiвню, s52 WriteLnКiлькiсть обчислених елементiв доpiвню, v End - Пpоцедуpа обчислення суми елементiв та х кiлькостi - Procedure Sum xInteger a, b Integer mMas Var sReal Var vInteger Var i, j,p Integer Begin p0 s0 v0 For i1 To h Do Begin For j1 To x Do Begin pp1 If p aandp b Then Begin ssmi, j vv1 End End End End - Основна пpогpама - Begin ClrScr InTX,m, x InTY,n, y WriteLnЗадайте iнтеpвал для матpицi X Write вiд ReadLna1 Write до ReadLnb1 Summ, a1,b1,x, Sx, v1 WriteLnЗадайте iнтеpвал для матpицi Y Write вiд ReadLna2 Write до ReadLnb2 Sumn, a2,b2,y,Sy, v2 OutX,a1,b1,v1,Sx OutY,a2,b2,v2,Sy ReadKey End. Отриманий результат псля виконання програми Масив X строка 1 елемент 1 -10 Масив X строка 1 елемент 2 -9 Масив X строка 1 елемент 3 -8 Масив X строка 1 елемент 4 -7 Масив Y строка 5 елемент 3 16 Масив Y строка 5 елемент 4 17 Масив Y строка 5 елемент 5 18 Масив Y строка 5 елемент 6 19 Задайте iнтеpвал для матpицi X вiд 5 до 12 Задайте iнтеpвал для матpицi Y вiд 7 до 15 Сума елементiв матpицi X в iнтеpвалi вiд 5 до 12 доpiвню -20.00 Кiлькiсть обчислених елементiв доpiвню 8 Сума елементiв матpицi Y в iнтеpвалi вiд 7 до 15 доpiвню 0.00 Кiлькiсть обчислених елементiв доpiвню 9 Аналз отриманого результату Для зручност побудови програми замсть параметрв 10,8 та 10,12 матриць X та Y вдповдно, були використан розмри 5,4 та 5,6, як можуть змнюватися шляхом змни чисельних значень констант m та n. Вище приведено результат, обчислений програмою.

При введенн обох матриць, вводяться вс числов значення, потм користувач познача нтервал для обох матриць окремо, в якому потрбно виконати пдсумовування та пдрахунок клькост пдсумованих елементв в даному випадку для матриц X вд 5 до 12, а в матриц Y вд 7 до 15 елементу матриц Матриця XМатриця Y-10-9-8-7-10-9-8-7-6-5-6-5-4-3-4-3-2-10 1-2- Для переврки врност обчислення програмою суми елементв в заданому нтервал вд 5 до 12 матриц Х, виконамо пдрахунок видлених елементв для ц матриц переврочне обчислення 6 5 4 3 2 1 0 1 20 кльксть елементв 1 2 3 4 5 6 7 8 результат обчислення програми Сума елементiв матpицi X в iнтеpвалi вiд 5 до 12 доpiвню -20.00 Кiлькiсть обчислених елементiв доpiвню 8 Як ми можемо бачити, результати дентичн, а це свдчить про те, що програма обробила вхдн дан врно видала врну вдповдь на обидва запитання в обох матрицях масивах.

Вищевикладене може обгрунтовано свдчити про те, що програма виконана врно.