Основы разработки трансляторов в САПР. Коробова И.Л - 41 стр.

UptoLike

переменные i:целые;
x: вещественные;
начало
читать(i); читать(x);
пока (i<4) и (i>0) выполнять
{
если i
=0 то x:=0;
=1 то x:=sin(x);
=2 то x:=exp(x);
=3 то x:=cos(x);
=4 то x:=ln(x)
все;
вывести(x);
}
конец.
26. Разработать однопроходный транслятор с исходного языка на язык Паскаль:
integer i,j
real c,p
do 2 i=1,10
do 2 j=1,10
c=a+i*j
if (c.ge.1.and.c.le.10) p=p*c
2 continue
stop
end
27. Разработать двухпроходный транслятор с исходного языка на язык Паскаль:
integer f,i,n
accept *,n
f=1
i=1
do 1 i=1,n,1
f=f*i
1 continue
type *,f
stop
end
28. Разработать трехпроходный транслятор с исходного языка на язык Паскаль:
программа xy;
переменные k,l:целые;
sx,sy,x, y: вещественные;
начало
sx=0;
sy=0;
цикл k от 0 до 5 шаг 1 выполнять
{
sx:=sy+x;
sy:=0;