Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиКалендарьОблакоЗаметкиВсе проекты

турбо паскаль !!!

Cactus Профи (527), закрыт 14 лет назад
Пожалуйста помогите мне седня к вечеру нада !

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), в остальных случаях;
Лучший ответ
Раил Гатауллин Знаток (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.
Остальные ответы
Похожие вопросы