Описание программы-интерпретатора.
Разработка программы-интерпретатора

РефератПомощь в написанииУзнать стоимостьмоей работы

X:=strtoint (edit3.Text); R2: = Rect (10.10.40.50); R1: = Rect (20.20.60.40); Else k:=(y1-y0)/(x1-x0); Y:=round (k*(x-x0))+y0; Brush. Color: = clGreen; 6,1) (5,3) (1,2) (5,2). 6,1) (5,3) (1,1) (5,2). Ellipse (x1,y1,x2,y2); Brush. Style:=bsClear; Brush. Color: = clRed; RECT (x1,y1,x2,y2). LINE (x1,y1,x2,y2). X=re (x)+re (y)*2. X2:=xc+r;y2:=yc+r; X1:=xc-r;y1:=yc-r; Sleep (sleeptime); Sleep (sleeptime. Читать ещё >

Описание программы-интерпретатора. Разработка программы-интерпретатора (реферат, курсовая, диплом, контрольная)

Программа-интерпретатор выполнена с использованием среды разработки Borland Delphi 6.0 и представляет собой интерактивную оболочку, позволяющую загружать исходный ASCII-текст, содержащий программу, написанную в соответствии с синтаксисом входного языка.

Результатом обработки текста программы является вывод в окне интерпретатора значения комплексного числа, либо сообщения об ошибке.

Рисование круга с центром в точке (х0,у0) и радиусом R.

CIRCLE (x0,y0,R).

Листинг программы.

procedure TForm1. Button1Click (Sender: TObject);

var xc, yc, x, y, r, x1,y1,x2,y2:integer;

begin.

xc:=strtoint (edit1.Text);

yc:=strtoint (edit2.Text);

x:=strtoint (edit3.Text);

y:=strtoint (edit4.Text);

Canvas.Ellipse (xc-2,yc-2,xc+2,yc+2);

Canvas.Ellipse (x-2,y-2,x+2,y+2);

r:=round (sqrt (sqr (x-xc)+sqr (y-yc)));

x1:=xc-r;y1:=yc-r;

x2:=xc+r;y2:=yc+r;

with Canvas do.

begin.

Brush.Style:=bsClear;

Ellipse (xc-2,yc-2,xc+2,yc+2);

Ellipse (x-2,y-2,x+2,y+2);

Ellipse (x1,y1,x2,y2);

end;

Рисование прямоугольника:

RECT (x1,y1,x2,y2).

(х1,у1) — координаты левого верхнего угла, (х2,у2) — правого нижнего угла.

Листинг программы.

procedure TForm1. Button1Click (Sender: TObject);

var.

r1, r2: TRect; // координаты углов прямоугольников.

begin.

// заполнение полей структуры.

// зададим координаты углов прямоугольников.

r1: = Rect (20.20.60.40);

r2: = Rect (10.10.40.50);

with fоrm1. Canvas do begin.

Brush.Color: = clRed;

FillRect (r1); // закрашенный прямоугольник.

Brush.Color: = clGreen;

FrameRect (r2}; // только граница прямоугольника.

end;

Рисование линии из точки с координатами (х1,у1) в точку (х2,у2).

LINE (x1,y1,x2,y2).

Листинг.

procedure Pline (x0,y0,x1,y1,sleeptime:integer; PaintBox1: TpaintBox);

var.

x, y: integer;

k:real;

begin.

Form1.PaintBox1.Canvas.Moveto (x0,y0);

Form1.PaintBox1.Canvas.Pen.Width:=3;

if x1=x0 then.

begin.

y:=y0;

k:=0;

while (yy1) do.

begin.

if y0.

x:=x0;

Form1.PaintBox1.Canvas.LineTo (x, y);

sleep (sleeptime);

end;

end.

else k:=(y1-y0)/(x1-x0);

x:=x0;

y:=y0;

while (xx1) do.

begin.

if x0.

y:=round (k*(x-x0))+y0;

Form1.PaintBox1.Canvas.LineTo (x, y);

sleep (sleeptime);

end;

Описание тестового примера Текст программы:

X=0.5+j2.

Y=0.1-j8.5.

X=RE (X)+RE (Y)*2.

OUT (X).

OUT (Y).

Лексическая свертка исходного текста:

(1,1) (5,4) (2,1) (3,1) (3,4) (2,2)
(1,2) (5,4) (2,3) (3,2) (3,4) (2,4)
(1,1) (5,4) (4,2) (5,3) (1,1) (5,2) (3,1) (4,2) (5,3) (1,2) (5,2) (3,3) (2,5)
(6,1) (5,3) (1,1) (5,2)
(6,1) (5,3) (1,2) (5,2)

Показать весь текст

Заполнить форму текущей работой

Другие работы

WebMoney Transfer. Безопасность электронной коммерции

Помимо встроенных технологических механизмов для поддержания безопасности в системе предусмотрены дополнительные сервисы, настройка которых выполняется пользователями самостоятельно. Благодаря этому уже при регистрации участнику WebMoney Transfer присваивается уникальный номер — 12-значный WM-идентификатор (WMID), а для удостоверения личности владельца WM-идентификатора в системе действует…

Реферат