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

UptoLike

ВУЗ: 

ТГТУ | Тамбов

Составители: 

Рубрика: 

writeln (A) C:=–A+B
else C:=A+B
13. if T>EPS THEN begin
K:=K+2;
T:=–T*SX/(K*(K–1));
S:=S+T
end
14. if N>0 THEN
M:=–M+l/N;
B:=M*N+3;
if B=0 THEN write (N)
15. if (2.5+0.68<=2.8) OR Y
AND X OR Z AND NOT Y
THEN
writeln ('верно')
16. READ(N);
M:=0;
If f=1 THEN writeln (M)
else M:=M+1/N
17. RESET (F,’F.DAT’);
SUM:=SUM+F^;
GET (F)
18. REWRITE (F, 'F.DAT');
F^:=K*K;
PUT (F)
19. READ (x, y);
A:=x/(y*y*x*x/(y+x/3))
20. READ (H, В, М);
PI:=3.14;
V:=PI*H*
*(B*B+M*M+B*M)/3
21. A=Z*Z;
B=l+A/(3*Z+A/5);
if B>5 THEN writeln (B)
22. if x<0.5 THEN y=2*x*x–x
else y=x*x/(x–0.1);
write (y)
23. READ (A, B);
IF A>B THEN
X=2*A+2/B+4;
IF A<=B THEN
x=(A+B)*(A–B);
writeln (x)
24. READ (I);
if (I>4) OR (I<0) THEN
writeln ('ошибка')
25. if A<0 THEN A=–A;
if B<0 THEN B=–B;
SA:=(A+B)/2;
SB:=A*B/2
26. READLN (Y);
if Y<0 THEN
Z:=Y–3*Y*Y/(Y+1)
else if Y=0 THEN Z:=0
else Z:=100*Y

Страницы