Раил Гатауллин
Знаток
(478)
16 лет назад
program p1;
const
a=0.57;
z=0,01;
var
x,y,z:real
begin
writeln ('Enter Z');
readln (z)
x:=z^2=3*a;
y:=2*(sin(Pi+x)^2)^3;
writeln('y=', y, 'x=', x);
readln
end.
program p2;
{---------------------------}
program p3;
var
a,x,y: real;
begin
writeln('Enter a'); readln(a);
x:=cos(a);
if (x*a>0.5) then y:=10^(x-a)
else if (x*a>0.5) then y:=exp(x+a) else y:=tan(x+a)
writeln (y);
readln
end.
1. программирование линейного вычислительного процесса .
Y = 2*sin^3(Pi+X)^2; X=Z^2+3*a; a=0.57; z=10^-3;
2. программирование арифметического цикла.
W = lg(y-1)+X^2; x=2^(1-y)-2.5*cos(a)(альфа); y принадлежит [-5,0]; (маленькии значок треугольника)Y= 0.75; (а) = -2,1;
3. программирование развлетвляющегося вычислительного процесса.
{10^(x-a), если x*a>0.5; где x=cos(a);
Y= {e^(x+a), если x*a<0; a=0.5;
{tg(x+a), в остальных случаях;