1-маъруза: Математик моделлаштиришнинг асосий тушунчалари, масалаларни эщмда ечиш бос=ичлари ва алгоритмлар назарияси

Unit Stud;
Interface {очи= эълонлар былими – интерфейс секцияси}
function min(x,y:integer):integer;
function max(x,y:integer):integer;
Implementation {ёпи= эълонлар былими}
function min(x,y:integer):integer;
Begin
if x<=y then min:=x else min:=y;
End;
function max(x,y:integer):integer;
Begin
if x>y then max:=x else max:=y;
End;
Begin
{Инициализация секцияси йы=}
End.

Биз зарур модулни щосил =илдик, энди уни компиляция =илишимиз лозим. Компиляция натижасида Stud.tpu исмли файл щосил =илиниши керак. Компиляция =илинмаган модулнинг исми эса шунга мос щолда Stud.pas былиши керак.

Бу модулдан фойдаланиш дастури =уйидагича былиши мумкин:


Uses Stud;
Var
A,b,c,d:integer;
Begin
Write(‘А ва B ларни киритинг >’);
Readln(a,b);
C:=max(a,b);
Writeln(‘Max= ‘,C);
C:=min(a,b);
Writeln(‘Min= ‘,C);
D:=max(a,b)+min(a,b);
Writeln(‘Max+Min=’,D);
End.

+уйида эса экран рангини танлаш модули мисол сифатида кырсатилган:

Unit Colors;
Interfase
Type
Colortype =Array[0..15] of Byte;
Const
Black:byte=0;blue:byte=1;
Green:byte=2;cyan:byte=3;
Red:byte=4;magenta:byte=5;
Brown:byte=6;lightgray:byte=7;
Darkgray:byte=8;lightblue:byte=9;
Lightgreen:byte=10;lightcyan:byte=11;
Lightred:byte=12;lightmagenta:byte=13;
Yellow:byte=14;white:byte=15;
Var
Currcolors:colortype absolute Black;
Procedure setMonoColors;
Procedure setColorColors;
Implementation
Const
ColorColors:Colortype=(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15) ;
MonoColors:ColorType=(0,1,7,7,7,7,7,7,7,7,7,7,7,7,15,15);
Procedure SetMonoColors;
Begin
CurrColors:=MonoColors;
End;
Procedure SetColorColors;
Begin
CurrColors:=ColorColors;
End;
Var
Ch:Char;
Begin
Write(
Readln(ch);
If ch in [‘M’,’m’,’M’,’m’] then SetMonoColors;
End.