Похожие работы на «Программа на Delphi»
Модули, записи и файлы
Программирование и комп-ры, Модули, записи и файлы, Курсовая
... i,j:integer; begin for i:=1 to n do begin for j:=1 to n do write (a[i,j]:6:2); writeln; end; writeln; end; procedure form(var a:matr); var i,j:integer
... to n do for j:=1 to n do a[i,j]:=random*2-1; end; function max( c:vect):real; var i:integer; m:real; begin m:=-2; for i:=1 to n do if c[i]>m then m:=c ...
Автоматическое рабочее место для работника склада
Программирование и комп-ры, Автоматическое рабочее место для работника склада, Курсовая
... type basskl = record naim:string[40]; kol:integer; price:single; kol_p:integer; date_p:string[8]; kol_r:integer; date_r:string[8]; end; var f:file of ...
... Bas:=List[j]; k:=j end; end; end; List[k]:=List[i]; List[i]:=Bas; end; end; procedure Vivlist(var seek,curs:integer); var c,k:char; i:integer; begin
Программатор ПЗУ (программный интерфейс)
Программирование и комп-ры, Программатор ПЗУ (программный интерфейс),
... x+x+1]:=16+7; End; End; Procedure LoadFont; Var f: file; Begin Assign(f,curd+'axefont.fnt'); Reset(f,1); Blockread(f,screen,50*80); Close(f); Asm
... End; Procedure FFile(var s : string); Var i : searchrec; name : string; x,y,z: integer; curp : integer; curps: integer; maxp : integer; mask : string; ...
Модули и объекты в языке Турбо Паскаль 7.0
Программирование и комп-ры, Модули и объекты в языке Турбо Паскаль 7.0 , Работа Курсовая
... end; end; function Degrees_to_Radians(Degrees : float) : float; begin Degrees_to_Radians := Degrees * Radians_Per_Degree; end; function Radians_to
... t := Exp(x); Sinh := 0.5 * (t - 1 / t); end; end; function Cosh(x : float) : float; var t : float; begin if Abs(x) > MaxValue then Cosh := Infinity
Процедуры в Паскале
Программирование и комп-ры, Процедуры в Паскале , Работа Курсовая
... которая также предусматривает, что 0! и 1! =1} L:=l-1; end; end; .... begin .... {теперь рассмотрим вызов процедуры} FL(5,a); FL(2,b); FL(2+5,c) ...
Поясним изложенное. ..... var a, b: integer; ...... procedure squar(a: integer; var b: integer); begin a:=sqr(a); b:=sqr(b); writeln("в квадрате они ...
Обработка экономической информации средствами языка Pascal
Кибернетика, Обработка экономической информации средствами языка Pascal, Курсовая
... сумма в таблице; Procedure menu; - процедура вывода меню; Procedure zast; - процедура вывода графической заставки var xm,ym:integer; xm,ym-координаты ...
... составного оператора begin.end end; Завершение процедуры вывода заставки end; Процедура вывода сообщения об ошибке - error: begin Обнуление счетчика i ...
Программирование на языках высокого уровня
Программирование и комп-ры, Программирование на языках высокого уровня, Курсовая
... String; k:word; p:spisok; end; var a,b,c,e:boolean; ch:char; st:string; L,Fst,FEst,PEst,Est,temp:spisok; f:text; label lb; BEGIN Fst:=nil; Write('File ...
... ST='BEGIN') THEN begin c:=false; e:=false; end; IF (ST='TYPE') OR (ST='VAR') OR (ST='CONST') OR (ST='PROCEDURE') OR (ST='FUNCTION') THEN begin c:=true ...
Программирование на языке Турбо Паскаль
Программирование и комп-ры, Программирование на языке Турбо Паскаль , Лекции Конспекты студенческие
... var f: text; c: char; begin assign(f,'showfile.pas'); reset(f); while not eof(f) do begin while not eoln(f) do begin read(f,c); write(c); end; readln( ...
... implementation procedure InitList(var l: tItemPtr); begin l:=nil end; procedure AddItemToHead(var l: tItemPtr; d: tData); var p: tItemPtr; begin new(p ...
Линейное программирование: решение задач графическим способом
Программирование и комп-ры, Линейное программирование: решение задач графическим способом, Курсовая
... MaxX, MinY+5, 'X'); End; procedure ShowLine(_iN:TNerav); var s: String; Begin if _iN.b/_iN.y<0 then begin{если коэффиц. при Y меньше 0} MoveTo(MinX+ ...
... k]; if (N.x*XResult+N.y*YResult<=N.b) then begin {Если в ОДЗ} c:=cTmp; boolAnswer:=True; end; {далее проверяем вышла ли cTmp за ОДЗ} if (N.x*XResult+N ...
Семантический анализ структуры EXE файла и дисассемблер (с примерами и исходниками), вирусология
Программирование и комп-ры, Семантический анализ структуры EXE файла и дисассемблер (с примерами и исходниками), вирусология , Работа Курсовая
... NoPrefix end; REPNZ:begin write(f_out, 'REPNZ '); Prefix := NoPrefix end; LOCK: begin write(f_out, 'LOCK '); Prefix := NoPrefix end; end; write(f_out, ...
... Prefix := NoPrefix end; DS: begin write(f_out, 'DS:'); Prefix := NoPrefix end; end; end; write(f_out, Operand2); end else write(f_out, tab); end; if ...
