во-первых, модель должна быть подобна исследуемому объекту, а во-вторых, модель должна быть проще изучаемого объекта, чтобы оказалось возможным ее изучение. Основное назначение модели заключается в возможности проведения с моделью: экспе-риментов, анализа и изучения, которые невозможны с самим исследуемым объектом.
В связи с этим к моделям предъявляются также требования по глубине и по времени. То есть, модель должна обладать необходимой глубиной описания, достаточной для решения актуальных проблем объекта, и дополнительными ограничениями по времени, необходимому для принятия решения.
Модель всегда тесно связана с проблемой, т. к. решение проблемы всегда начинается с моделирования проблемной ситуации объекта, а затем уже переходят к моделированию стратегических альтернатив и моделированию последствий принимаемого решения, куда, естественно, включаются такие элементы, как цель развития объекта управления, состояние внешней среды, функционирование объекта и др.
<span>В свою очередь, моделирование определяется как «практическое или тео-ретическое оперирование объектом, при котором изучаемый предмет заменяется каким-либо естественным или искусственным аналогом, через исследование которого мы проникаем в предмет изучения.</span>
Program faktorial;
uses crt;
var n,i,k : longint;
begin
clrscr;
writeln('Vvedite chislo');readln(n);
k:=1;
for i:=1 to n do
k:=k*i;
write('factorial chisla ',n,' raven ', k);
readkey;
<span>end.</span>
<span>//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)</span>
1)
begin
var a:=ReadString('Введите слово->').ToLower;
Println(a=ReverseString(a)?'Перевертыш':'Не перевертыш');
end.
Пример(1):
Введите слово-> Комок
Перевертыш
Пример(2):
Введите слово-> Револьвер
Не перевертыш
2)
begin
var a:=ReadInteger('Число-> ');
Range(1,a).Where(t->a mod t=0).Println;
end.
Пример:
Число-> 100
1 2 4 5 10 20 25 50 100
3)
begin
for var i:=2 to 10000 do
begin
var a:=Range(1,i-1).Where(t->i mod t=0).Sum;
if a=i then Write(i,' ');
end;
end.
Ответ:
6 28 496 8128
Объяснение:
– сверху – это ваше "-"
& не ставится у меня, у себя его ставьте!
Я тут немного отсебятины добавил, что бы программа не слетала если что-то нерпавильное вводиш))
var
a: string;
b: integer;
begin
writeln ('Введите строку');
read (a);
if (a='город минск')
then writeln ('город МИНСК')
else
begin
writeln ('введите "город минск", 1-продолжить, 0-выйти');
read (b);
end;
while (b = 1) do
begin
writeln ('Введіте строку');
read (a);
if (a='город минск')
then writeln ('город МИНСК')
else
begin
writeln ('введите "город минск", 1-продолжить, 0-выйти');
read (b);
end;
end;
end.