01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / DIMA / DIMAN

Program Diman;



Uses CRT,Modul,graph;
var
gd,gm:integer;
p:pointer;
size:word;
st:string;

{$F+}
Function Super(x:real):real;
begin
super:=1+x*x+cos(x*x);
end;
{$F-}

begin
k:=3;
TextBackGround(11);ClrScr;
TextBackGround(0);Window(6,3,76,5);Clrscr;
TextBackGround(1);TextColor(14);Window(5,2,75,4);ClrSCr;
Writeln;
Write(' ‚ўҐ¤ЁвҐ а §¬Ґа­®бвм ¬ ваЁжЁ :');ReadLn(n,m);
TextBackGround(0);Window(6,8,76,20);Clrscr;
TextBackGround(red);TextColor(14);Window(5,7,75,19);ClrSCr;
For i:=1 to n Do begin
For j:=1 to m Do begin
GotoXY(k,i+1);Readln(a[i,j]);
k:=k+7;
end;
k:=3;
end;
Kruto(n,m,a,super,max);
Readln;
gd := Detect;
InitGraph(gd,gm,'e:\tp5\');
str(round(max),st);
SetTextStyle(1,0,1); OutTextXY(2,2,'MAX = ');OutTextXY(65,2,st);
Size := ImageSize(1,1,100,30);
GetMem(P, Size);
GetImage(1,1,100,30,P^);
ClearDevice;Randomize;
repeat
PutImage(Random(640),Random(480) , P^, NormalPut);
Until KeyPressed;
ClearDevice;
SetColor(14);SetTextStyle(9,0,9); OutTextXY(70,150,'MAX= ');
OutTextXY(470,150,st);
Readln;
Readln;
CloseGraph;
Readln;
end.