а)
var x, y :integer;
begin
write ('x = ');
readln(x);
if (x<=0)
then y:=x
else if (x>=5)
then y:=4
else y:=sqr(x)*x;
write ('y = ',y);
end.
б)
var x, y, xtreugA, ytreugA, xtreugB, ytreugB, xzentrokr, yzentrokr, radokr :integer;
begin
write ('x = ');
readln(x);
write ('y = ');
readln(y);
xtreugA:= -4;
ytreugA:= 0;
xtreugB:= 0;
ytreugB:= -5;
xzentrokr:= 10;
yzentrokr:= 7;
radokr:=3;
if x-xtreugA)*(ytreugB-ytreugA)-(y-ytreugA)*(xtreugB-xtreugA))<=0) and (x<=0) and (y<=0))
then writeln('Popadanie v treugolnik')
else writeln('Ne popadanie v treugolnik');
if (sqrt(sqr(xzentrokr-x)+sqr(yzentrokr-y)) <= radokr)
then writeln('Popadanie v okruznost')
else writeln('Ne popadanie v okruznost');
end.
Модель – это представление объектов реального или вымышленного мира и их свойств. Безусловно, она не обладает всеми свойствами того объекта, прототипом которого является
Человек в своей деятельности (научной, художественной, образовательной) постоянно создает и использует модели окружающего мира. В повседневной жизни с представленными в виде моделей или схем примерами мы сталкиваемся постоянно: это может быть схема метрополитена, манекен в витрине магазина, глобус в кабинете географии, портреты в музеях, и т. д. Все художественное творчество можно считать процессом создания моделей. Более того, практически любое литературное произведение можно рассматривать как модель реальной человеческой жизни. В ходе этого урока можно будет более подробно ознакомиться с историей происхождения этого термина и узнать, каким образом и в каких целях человечество использует моделирование.
Прилагаю файл .pas (можно компилировать или открыть редактором), скрин кода и пример работы.
Выглядит может громоздко, но задачу решает.