Unit CompChisla;
Interfase
Procedure Sum(a,b,c,d:real;Var x,y:real);
Procedure Raz(a,b,c,d:real;Var x,y:real);
Procedure Proiz(a,b,c,d:real;Var x,y:real);
Implementation
Procedure Sum;
Begin
x:=a+c; y:=b+d;
end;
Procedure Raz;
Begin
x:=a-c; y:=b-d;
end;
Procedure Raz;
Begin
x:=a*c-b*d-c; y:=a*d+b*c;
end;
end.
Жасалған модуль компиляцияланады. Сонан соң ол uses CompChisla; командасы арқылы негізгі программада қолданылады.
Дәріс 9.
Тақырыбы: Модуль жасау. Жасалған модульді программада қолдану.
Тапсырма: Қолданушы модулін жасап, оны программада қолданыңдар.
Квадрат матрицалар қолданылатын ішкі программалардың модулін келесі операциялардың орындалуы үшін іске асырыңыз:
а) екі матрицаны қосу;
б) бір матрицаны екіншісіне көбейту;
в) транспортирленген матрицаны табу;
г) матрица анықтауышын табу;
Матрицаны келесі түрде беріңіз:
Const NMax=10;
Type Matrica=Array[1..NMax,1..NMax] of Real;
Осы модульді қолданып келесі есептерді шығарыңыз.
N-ші ретті сызықтық теңдеулер жүйесін Крамер әдісімен есептеңіз (2≤N≤10).
Матрица мәндері берілген деп алып, осы матрицаның анықтауыштарының өсуі бойынша матрица элементтерін реттеңіз.
Дәріс 10.
Тақырыбы: Объектілер. ОБП- ның негізгі принциптері. Объект жасау.
Мазмұны:
1.Объектілер.
2. ОБП- ның негізгі принциптері.
3. Объект жасау.
Паскальда объектіні сипаттау үшін Object қызметші сөзі қолданылады. Object типі өрістен және әдістен тұратын деректер құрылымы болып табылады. Объектілік типті сипаттау түрі төмендегіше болады:
Достарыңызбен бөлісу: |
