... 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 . ...

OSSERVATORIO ASTROFISICO DI ARCETRI CENTRO PER L'ASTRONOMIA INFRAROSSA E LO STUDIO DEL MEZZO INTERSTELLARE LARGO ENRICO FERMI, 5 -- I­50125 FIRENZE Firenze, September 30, 1994 FROM: C. Baffa TO: Tirgo Staff SUBJECT: Data handling with Tirgo Nicmos3 instruments All data taken with Tirgo Nicmos3 instruments (Arnica and Longsp) are stored directly as standard FITS files at 16 bits integer format. ... The acquisition program never rewrites over an old file. ... An example in table 1. ...

pro show_line,wvl,flux,Z=Z, ion = ion , lambda = lambda , spec = spec ,order=order,$ wmark=wmark, fmark = fmark ,lmark=lmark,cmark=cmark, markc = markc ,$ xo=xo,yo=yo,oxr=oxr,oyr=oyr, _extra=e ;+ ;procedure show_line ; plot lines and label them ; ;syntax ; show_line,wvl,flux,Z=Z, ion = ion , lambda = lambda , spec = spec ,order=order,$ ; wmark=wmark, fmark = ...

program RK1; (* A simple program in Pascal for Runge-Kutta's method for a first order differential equation. dy/dx = x^2 + sin (xy) y(1) = 2 *) var number , i : integer; h, k1, k2, k3, k4, x, y : real ; function f(x,y : real ) : real ; begin f := x*x + sin (x*y) end ; begin number := 1; while number 0 do begin x := 1.0; y := 2.0; writeln (' Give the number of steps '); read ( ...

... MAXLEN parameter specifies maximum length of the number considered as a 'good' integer. ... If REJECTLONG = FALSE (default), than dictionary returns prefixed part of integer number with length MAXLEN . ... This is a dict_tmpl.c file. # include postgres.h # include utils/builtins.h # include fmgr.h #ifdef PG_MODULE_MAGIC PG_MODULE_MAGIC; #endif # include utils/ts_locale.h # include utils/ts_public.h # include utils/ts_utils.h typedef struct { int maxlen ; bool rejectlong ; } ...

... Работа с ASCII | ... Распределение звезд по небесной сфере . ... Наиболее популярная из них - это проекция Хаммер-Айтофа, она была принята в качестве основной в описании Hipparcos и использовалась во многих первых публикациях. ... l,b:double; { Сферические координаты в радианах } . ... var s : double; . ... end ; . ... Если мы хотим построить проекции звезд Hipparcos в галактической системе координат, то нам необходимо перевести экваториальные координаты, приведенные в каталоге, в галактические. ...

Pascal (Паскаль) - язык программирования общего назначения. ... Это заголовок , описания , операторы . Заголовок программы содержит имя программы. Для версии ETH необходимо дополнительно указать источник и приемник данных для работы программы - файлы для ввода и вывода информации. ... Операторы должны находиться между словами begin и end . ... Пример . ... var n: integer; . ... var a: array [ 1..100 ] of integer ; . ... program primer; var x,y: integer ; . ... var a: file of integer ; . ...

... Для многих видов расчетов требуется знать параметры атомов - . участвующих в образовании данной линии и атомов, . ... Запись об отдельном атоме выглядит следующим образом: TYPE TATOM = CLASS(TObject) (*--------- данные об одном атоме ------------*) NELT : integer; (* порядковый НОМЕР ЭЛЕМЕНТА в таблице Менделеева *) ATOM : string[2]; (* ИДЕНТИФИКАТОР АТОМА *) PAT : REAL; (* АТОМНЫЙ ВЕС *) ABUND: REAL; (* ОБИЛИЕ - LG(EPS_I/EPS_H)+12, текущее значение *) aEION: array [1..4] of real;(* ПОТ-АЛ ИОНИЗ.[ ...

pro cormass2,list ; ;procedure to pre-process CorMASS 'differenced' images to correct for reset ;voltage decay effects seen in NICMOS3 images. ... Sep '00 ; ; on_error,1 nl=numlines(list) ;find number of files print,'nl: ',nl files=strarr(nl) openr,lun,list,/get_lun readf,lun,files free_lun,lun for i=0,nl-1 do begin oldim=float(readfits(files[i],hdr)) d=size(oldim,/N_DIMENSIONS) if d GT 0 then begin magicsub2,oldim,procim sxaddhist,'Reset Decay Corrected w/ MagSub2',hdr,/PDU name=str_sep(files[i],'.' ...

... Command arguments: ; ; specfile - character string - name of file containing spectrum (and fit ) ; assumed to be x,y file with 3-line header ; linelist - character string - name of file containing linelist ; assumed to be in 'lte_lines' format ; xlo - real variable - lower limit of plot ; xhi - real variable - upper limit of plot ; atoms - integer vector - atomic numbers of spectra to be identified ; fit - integer variable - switch = 0 don't read or plot ...

Организаторы: Michel Balazard (CNRS, Лаборатория Понселе) , Михаил Цфасман (CNRS, Лаборатория Понселе, ИППИ РАН) , Алексей Зыкин (Лаборатория Понселе, ГУ ВШЭ) . О конференции . ... Following Iwasawa s theory, such computations for K-groups can be recasted in terms of special values of zeta functions. ... Using special values of L-functions, he built an ideal J_K=k(m), and proposed a conjecture (for p odd). ... Страница Лаборатории Понселе . ...

... 1 час 1 день 1 неделя 1 месяц Навсегда . ... Общероссийская неделя "Астрономия на тротуаре" - 15-17 апреля . ... Практическая астрономия ? Астрономия и компьютеры (Модераторы: Deimos , Ed_Vazhorov ) ? Функция расчета лунных дней . ... milenium: Array[0..6] of extended = (0.0, 13.9, 27.7, 12.1, 25.9, 10.3, 24.2); . ... function GetDate(ypos1,ypos2,ypos3,ypos4,month,tmoon: integer): extended; . function MoonDayIs(ypos1,ypos2,ypos3,ypos4,month,day,hour: integer): extended; . ... result:=0; . ...