Mavzu: Sturukturali dasturlashni asosiy modellari

function EqualR (a, b:Rac): Boolean;

function LessR (a, b:Rac): Boolean;

function MoreR (a, b:Rac): Boolean;

{ratsional sonlar munosabati funksiya spetsifikatsiyasi—tenglik, kam, ko’p }

implementation

procedure Reduction (var m:Rac);

{keyinchalik m ratsional sonini qisqartiruvchi lokal funksiya, agar uni soni va o’zgaruvchisi umumiy bo’luvchiga ega—bu jarayon barcha arifmetik amallar uchun kerakli, shuningdek ular uchun iloji boricha o’zgaruvchi va hisoblovchi belgisi keraksiz tarzda ortmasligi kerak. }

{boshqa lokal dasturlarni mumkin bo’lgan yozilishi}

{yuqorida spetsifirlangan dasturosti-amallar yozilishi}