Ініціалізація графічного режиму. Відображення координатних осей, асимптот, надписів. Відображення графіка. Перебір точок з абсцисами від лівого до правого кінця екрана. Визначення масштабу відображення точки на екрані. Визначення ординати точки. Черги та
По-перше, модуль може зберігатися як в вихідному виді в PAS-файлі, так і в відкомпільованому файлі з розширенням TPU (Turbo Pascal Unit - модуль ТУРБО ПАСКАЛЬ). По-третє, модулі з процедурами, що часто зустрічаються в різноманітних програмах, заощаджують час при написанні нових програм. Приклад програми unit mmm; interface procedure str(var a:array of integer); procedure sts(var a:array of integer); procedure bub(var a:array of integer); procedure qui(var a:array of integer); implementation procedure str; var x,i,j:integer; n1,n:integer; begin n:=high(a); n1:=low(a); for i:=n1 to n do begin x:=a[i]; j:=i-1; while (j>=n1) and (a[j]>x) do begin a[j 1]:=a[j]; j:=j-1; end; a[j 1]:=x; end; end; procedure sts; var x,k,i,j:integer; n1,n:integer; begin n:=high(a); n1:=low(a); for i:=n1 to n-1 do begin k:=i; for j:=i 1 to n do if a[k]>a[j] then k:=j; if k
Вы можете ЗАГРУЗИТЬ и ПОВЫСИТЬ уникальность своей работы
