... The begining of program -- Target function: a * b with TEXT_IO ; use TEXT_IO ; procedure EXAMPLE is package IO_INT is new INTEGER_IO ( INTEGER ) ; use IO_INT ; r,b,a: INTEGER ; begin put ( Enter unsigned number 'b', please ... unsigned number 'a', please: ) ; get ( a ) ; declare VAR0 , VAR1 : INTEGER ; begin VAR0 := a; VAR1 := b; declare VAR3 , VAR2 , VAR4 : INTEGER ; begin VAR3 := 0 ; VAR2 := VAR0 ; VAR4 := VAR1 ; while VAR2 /= 0 loop begin if ...

... 7 Части программы. procedure newdelay(ms:longint); {пауза в микросекундах} var r: registers ; begin r.ah:=$86; r.cx :=ms*1000 div 65536; r.dx :=ms*1000 mod 65536; intr ($15,r) end ; procedure clearcon;assembler; {очистка буфера клавиатуры} asm cli sub ax,ax mov es,ax; mov al,es:[41ah] mov es:[41ch],al sti end ; procedure lptread; {чтение порта 37B} var a:byte; ...

... tested on SUN and VAX; updated prolog ; ;- ;************************************************************************* pro pcheck, variable , position , dimension , type ; npar = n_params(0) if npar eq 0 then begin print,'PCHECK, VARIABLE , POSITION , DIMENSION , TYPE ' retall endif ; npar ; ; decode valid dimensions ; vdim = bytarr(3) idim = ...

... Delphi procedure TForm1.Button1Click(Sender: TObject); 12. , var x,y,z:real; begin x:=strtofloat(Edit1.text); y:=strtofloat(Edit2.text); z:=sqrt(sqr(x)+sqr(y)); Edit3.text:=floattostr(z); end; 13. ... procedure TForm1.SelectionChange(Sender: TObject); begin SpeedButton1.Down:=fsBold in RichEdit1.SelAttributes.Style; SpeedButton2.Down:=fsItalic in RichEdit1.SelAttributes.Style; SpeedButton3.Down:=fsUnderline in RichEdit1.SelAttributes.Style; end; TForm1 ( private) OnSelectionChange RichEdit1 ( Events...

Next: DO Loops Up: MIDAS Command Language Previous: Passing Parameters in . As mentioned before, the Monitor performs symbol substitutions on MIDAS command lines in the first pass by replacing symbol names in the command line with their current value. For character symbols just the string is put in; for symbols of other types the binary data are converted to ASCII using the formats specified in the SET/FORMAT command. ... Example 6, MIDAS procedure exa6.prg . ... WRITE/KEYWORD VAR/R/1/1 0. ! ...

... Category: SYSTEM File: f2cvv_aux.src Author: K.G. Begeman Use: For the ALLIANT the following functions are provided: A_ALLIANT( ARG ) Input integer (by value) L_ALLIANT( ARG ) Input integer (by value) RETURN_ COMPLEX _ALLIANT( FIE ) Input procedure FCALL_VOID_ALLIANT( F1, Input procedure STACK ) Input address FCALL_INT_ALLIANT( F2, Input procedure STACK ) Input address FCALL_BOOL_ALLIANT( F3, ...

Создание тестовой базы данных Kafedra BEGIN; DROP TABLE lectures; DROP TABLE students; DROP TABLE semestrs ; DROP TABLE courses ; DROP TABLE balls; COMMIT; */ BEGIN; /* Лекторы */ CREATE TABLE lectures ( id_lect INTEGER PRIMARY KEY, surname VARCHAR (50) NOT NULL , name VARCHAR (20) NOT NULL , patronim VARCHAR (50) NOT NULL , phone VARCHAR (20) NOT NULL , mail VARCHAR (20) NOT ...

Next: NPOI raw packet data Up: Introduction Previous: NAT data Contents . These procedures use more elementary functions to produce diagnostic plots. plot_fdldelay , baseline _int [, beam _int ][, /slide ] Plot the residual FDL delay in microns. If keyword slide is 1, then open a sliding plot widget. plot_fdlpower , baseline _int [, beam _int ][, /sf ] Plot a power spectrum (or structure function if sf=1 ) of the delay. ... If beam is not specified, use currently loaded data. ...

... Abstract Scan a string from a specified starting position for the end of a signed integer. ... Brief_I/O VARIABLE I/O DESCRIPTION -------- --- -------------------------------------------------- string I Any character string. first I First character to scan from in string. last O Last character that is part of a signed integer. nchar O Number of characters in the signed integer. ... You could use this routine to locate the signed integers in the string as shown below. ... Link to routine source . ...