|
unit Mathfun;
interface
|
| bet | 4/6 | | Sana | 02.06.2022 | | Hajmi | 89.5 Kb. | | #22737 |
Bog'liq Dasturlash Strukturalari Dasturlashni asosiy modellari Документ Microsoft Word, имя прилагательное 123(3), 7-sinf-ingliz-tili-ish-reja[1], 9-maruza, mat,ona ingiliz tii, mustaqil ish personal, Ijara shartnoma Fazliddin, Kurs loyixasi(2018-2019)-1, 7-мавзу Sabzavotlarning intensiv navlarini yetishtirish va yig’ishtirish bo’yicha texnologiya ishlab chiqish, EET yakuniy, Амалиётга кундалик-2023, Antibiotiklar olish, pardayeva zuxra, 61677c0d-63b6-4d27-b207-63aac4c4979d (1)unit Mathfun;
interface
function tg (x:real);
function arcSin (x:real):real;
function arcCos (x:real);
function arcTg (x:real):real;
{boshqa matematik funksiyalarni bo’lishi mumkin bo’lgan spetsifikatsiyasi}
Inplementation
{spetsifikatsiya qilingan funksiyalar yozilishi}
end.
Modul bilan eksportlanadigan Spetsifirlangan funksiyalar yozilishidan tashqari, realizatsiya bo’limi, bir yoki bir qancha spetsifirlangan funksiyalar realizatsiyasi uchun kerakli bo’lgan ba’zi lokal yordamchi funksiyalar yozilishidan ham tashkil topishi mumkin. Masalan, polinom va massiv belgisini hisoblash funksiyalari, turli spetsifirlangan funksiyalar uchun polinom koeffisentlari belgisi. Albatta, barcha bunday lokal obyektlar eksportlanmaydi, va ularning qo’llanilishi modul tashqarisida mumkin emas.
3. modul real kompyuterga nisbatan qo’shimcha funksiyalarni bajaruvchi, virtual kompyuter yaratish uchun qo’llanilishi mumkin. amallar to’plamini realizatsiya qiluvchi oldingi punktdagi modulni til mashinasini rivoji deb hisoblash mumkin. lekin ba’zi hollarda spetsializatsiyalangan jarayonni—va uni amallarini, va uni registrlarini to’liq imitatsiyasiga ega bo’lish kerak. ratsional sonlar ustida amallarni realizatsiya qiluvchi virtual kompyuterni misol qilib ko’ramiz.
unit RacionalEngine;
interface
Const length = N - 1;
type index = 0...length;
speceint=array [index] of byte;
Rac=record sign (minus, plus);
Numerat, denominat : specint end;
var RR:Rac;RZ,RB:Boolean;
{RR, RZ va RB – bizning virtual protsessor registrlari, RR – har bir arifmetik amallar natijasi qoladigan registr (shunday nomlanadigan summator), RB – ratsional sonlarni ifodalovchi chegeraga chiqarish belgisi (true chiqishda), RZ – nolga bo’lish belgisi (bunday holda true)}
procedure AddR (a, b: Rac; var c:Rac);
|
| |
