ВУЗ:
Составители:
иначе [ х=(x+у)/2; у=x*у/2 ];
вывод (х, у)
конец.
18. Разработать однопроходный транслятор с исходного языка на язык Паскаль:
real х,s
integer k,i,n
accept *,x,n
s=0
do 10 i=1,n
k=2*i+1
s=s+cos(k*x)/k
10 continue
type *,s
stop
end
19. Разработать трехпроходный транслятор с исходного языка на язык Си:
процедура X;
переменные s1,s2,а, b: вещественные;
i,j:целые:
s1:=0;
s2:=0;
ввод (a,b);
цикл i от 0 до 10 шаг 2 выполнить
[
s1:=s2+a;
s2:=0;
цикл j от 1 до 20 шаг l выполнить
s2:=s2+b;
]
передача (sl)
конец.
20. Разработать двухпроходный транслятор с исходного языка в язык Си:
procedure К;
var i,n,f: integer;
begin
read(n);
f:=1;
i:=1;
while i<=n do
begin
f:=f*i;
i:=i+1
end;
write(f)
end.
21. Разработать трехпроходный транслятор с исходного языка на язык Паскаль:
main( )
{ int i;
Страницы
- « первая
- ‹ предыдущая
- …
- 37
- 38
- 39
- 40
- 41
- …
- следующая ›
- последняя »