1. функция обикновено се връща единична стойност, като Sin (х).
Процедурата може да се върне сложна структура, като масиви.
2. заглавието на функция (първия ред) е завършен показва типа на връщаната стойност (например, реални, число и т.н.). В заглавието на процедурата, не е необходима такава информация.
3. В края на тялото на функция е присвоена стойност, за да се изчисли които са предназначени, например, Sum_Mas: = S;
4. Функцията може да бъде математически израз операнд. Процедурата не може да бъде част от израз.
Правилник за прилагане съчетания
Невъзможно е да се опише подпрограма колекторни сложни структури, е необходимо да се отнася до описанието на видове структури в основната програма. Например,
Процедура PR1 (А: масив [1..N] на число); - това е невъзможно!
Процедура PR1 (а: Mas_Type); ,
където Mas_Type - името на типа, описан в основната програма:
Тип Mas_Type = масив [1..N] JF число;
2. Видовете формални и действителните параметри трябва да са последователни.
3. съчетания с параметъра стойност не се връща основният параметър програма, стойността на параметъра се копират в стека; тя може да бъде променлива, константа или математически израз.
6. Желателно е, че имената на формалните и действителните параметри са били различни. Глобалната променлива в рутината става местен ако тя е обявена в заглавната част на подпрограмата или на неговия член декларация на променлива.
7. съчетания местно етикети, константи, променливи, процедури и функции, но не могат да бъдат декларирани Използва директива компилатор може да бъде обявена.
Пример. Ние проверите наличността на файла и го напиши
тип
TFileData = рекорд
Име: String [10];
ExtDat: Extended;
приключи;
Var
Cals: Файл на TFileData;
започвам
". Dat": Road =;
Цел: = '' + Road;
опитвам
AssignFile (Cals, DEST);
// Ако файлът съществува, е отворено за четене, или създайте нов
Ако FileExists (ЛКД) след нулиране (ЛКД) друго Rewrite (ЛКД);
// определя позицията на прочете края на файла
CalsData.Name: = "име параметър;
Напишете (Cals, CalsData);
с изключение на
на E: EInOutError правя
ShowMessage ( "При извършване на грешката при операция на файла се появява '+
"№ '+ IntToStr (Е ERRORCODE.) +': '+ SysErrorMessage (GetLastError));
на E: EAccessViolation правя
приключи;
CloseFile (ЛКД); // Без значение какво се е случило по-горе в близост
Препишете a.dat b.dat файл във файла, като премахва знаците на края на файла:
Var
f1, f2: файл на Byte;
започвам
AssignFile (f1, "a.dat ');
Reset (F1);
Препишете (f2);
защото: = 1 до FileSize (f1) направи
ако <> 26 след записване (f2, а);
приключи;
CloseFile (F1);
CloseFile (f2);
край.
записи файл. Ние пишат и четат такива:
Наименование: низ [100];
Възраст: Byte;
Доход: Real;
приключи;
Var е: файл на TR;
R: TR;
започвам
// присвоява файл
ако FileExists ( "MyFileName") след
нулиране (е)
още
презапис (е);
// чете 10-ия рекорд
търси (F, 10);
Прочети (е, г);
// Запис на 20-ти рекорд
записване (F, R);
closefile (е);
приключи;
3.3. Тестовите въпроси
12. В някои случаи приложимите параметри - константи?
13. Защо не искате да използвате параметрите на функции -
Задачи за лабораторна работа номер 3
1.Treugolnik даде координати на върховете му. Напишете програма, за да се изчисли своята област.
2. две фракции данни А / В и C / D (A, B, C, D-естествени числа). Напишете програма, за да се извади от първата част от второто. Резултатът трябва да бъде несводима фракция.
1. Замяна на отрицателните елементи на линеен масив от модули, без използване на стандартен модул изчисление функция. Изчисляване на броя на произведените заместители.
2. две фракции данни А / В и C / D (A, B, C, D-естествени числа). Напишете програма, за да добавите фракции. Резултатът трябва да бъде несводима фракция.
1.Sformirovat масив X (N), N-ти термин се определя от формула X (N) = 1 / N!.
2. На равнината, определена от нейните координати п точки. Създаване на масив с размер на п (п-1), чиито елементи са разстоянията от всяка точка на п-1 друга.
1. Този номер на X, Y, Z, T - дължина на страните на четириъгълник. Изчислете своята област, ако ъгълът между дългите страни X и Y групи с права.
2.Sostavit програма за изчисляване на сумата факториелите всички четни числа от m до п.
1. Замяна даден естествено число на номер, който е получен от оригиналните номера запис в обратен ред (например, съдържа номера 156, за да се получи 651).
2. председател на данни. Създаване на функция, която ще намерите на следващия брой премиер след него.
1.Napisat програма изчислява сумата от р / р = 1-1 / 2 + 1 / 3- ... + ((- 1) ^ (п + 1)) / п за определен брой п. р / р трябва да бъде несводима фракция (Р, Q - естествени).
2.Sostavit функция за намиране на най-малкото странно природен делител К (к ≠ 1) на всяко естествено число п.
1.Napechatat всички двойки от две интервал [N, 2n], където п - предварително определено число по-голямо от две.
2. число данни N. Добави програма за образуването на матрица, чиито елементи са номера на Н.
1.Nayti всички двойки от приятелски номера, които вече не са дадени редица К.
2.Sostavit програма, която определя кои от тези две числа е по-голям от номера.
Запис програма изчислява сумата 1 + 1/2 + 1/3 + ... + 1 / п за zaadannogo брой п. Резултатите, представени като несводима фракция P / Q (Р, Q - естествени).
1.Sostavit програма за намиране на числата в интервала [M, N], като най-голям брой разделители.
2.Find всички числа от 1 до Армстронг да се напише програма, която намира и отпечатва всички четирицифрени числа на форма ABCD на. за които следното: 1) а, б, в, г - различни фигури; 2) аб - CD = A + B + C + D.
1. Този номер на X, Y, Z, Т-дължини на страните на четириъгълник. Изчислете своята област, ако ъгълът между страни х и У- на
2.Sostavit факториелите програма за изчисляване на размера на кратни на три от А до Б.
1.Sformirovat масив X (N), N-ти термин се определя от формула X (N) = 1 / N!
1. Настоящият председател. Създаване на функция, която ще намерите в непосредствена близост до прости числа.
2.Моля замени отрицателни елементи на линеен масив от модули, без използване на стандартен модул изчисление функция. Изчисляване на броя на произведените заместители.
1.Nayti всички естествени числа не превишава даден н, които са разделени на всяка от техните цифри.
2.Find всички премиер числа, които не надвишават н, двоичното представяне от които е палиндром.
1.Sostavit рутина, която ще се намерят корените на квадратното уравнение.
2.Napisat програма изчисляване на сумата от 1 + 1/2 + 1/3 + ... + 1 / п за определен брой п. Резултатите, представени като несводима фракция р / р (р, р-естествен).
1. Тези положителни числа K и N. напише програма, образуващ матрица, чиито елементи са числа, сумата от цифри от които е равна на К, и които не са по-големи от Н.
2.Find всички естествени п двуцифрени числа, числа, които представляват строго увеличаване на последователност (например, 1234, 5789).
1. Настоящият председател. Създаване на функция, която ще го следват, за да намерите последната разцвета ..
2. Налице е част от намотката с автобусен билет. шест-цифрено число билет. Напишете програма, която определя размера на късмет билети в бобината, ако по-малък брой на билета - на N, по-голяма - M (билетът е щастлив, ако сумата от първите три цифри от неговата ravnv сума на последните три).
Свързани статии