Program shtrihi;
uses crt;
var
x,y: real;
begin
writeln('Введите координаты точки:');
write('X='); readln(x);
write('Y='); readln(y);
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
if (y>=0) and (y>=-x+2) and (x*x+y*y<=9) and (y<=exp((1/2)*ln(abs(x)))) then
begin
writeln('Точка (',x,',',y,') попадает в заштрихованную область ');
end
else
writeln('Точка (',x,',',y,') HE попадает в заштрихованную область ');
end.
Странная запись инверсии.
<span>При имитационном моделировании структура системы отображается в модели, а процессы ее функционирования проигрываются (имитируются) на построенной модели. Выделяют статическое описание структуры системы, для чего нужно выполнять структурный анализ процессов, и описание динамики взаимодействий элементов системы, для чего нужно построить функциональную модель динамических процессов.</span>
1)program wk;
var x,y:real;
begin
Writeln('Введите x');
Readln(x);
y:=x-(x*x*x)/3+(x*x*x*x*x)/5;
Writeln('y =',y)
end.
2)program wk2;
var x,y:real;
begin
Writeln('Введите x');
Readln(x);
y:=x/2- Cos(x)+ Sin(2*x);
Writeln('y =',y)
end.
3)program wk3;
var x,y:real;begin
Writeln('Введите x');
Readln(x);
y:=(x*x-7*x+10)/(x*x-8*x+12);
Writeln('y =',y)
end.
4)program wk4;
var x,y:real;begin
Writeln('Введите x');
Readln(x);
y:=x-10*Sin(x)+Abs(x*x*x*x-x*x*x*x*x);
Writeln('y =',y)
end.