Модель – это упрощенное представление о реальном объекте, процессе или явлении. Моделирование – это посторенние моделей для исследования объектов, процессов, явлений. В моделировании есть два заметно разных пути. Модель может быть похожей копией объекта, выполненной из другого материала, в другом масштабе, с отсутствием деталей. Например, это игрушечный кораблик, самолет и т.д. Модель может отображать реальность более абстрактно – словесным описанием в свободной форме, описанием, формализованным по каким-то правилам, математическими соотношениями и т.д.
В прикладных областях различают следующие виды абстрактных моделей: 1) традиционное математическое моделирование без какой-либо привязки к техническим средствам информатики. 2) Информационные модели и моделирование, имеющие приложения в информационных системах.
Свойства:круглый,резиновый,мягкий
Алгоритм перевода чисел из восьмеричной в десятичную систему счисления аналогичен уже рассматривавшемуся нами в разделе Перевод чисел из двоичной системы в десятичную. Различие состоит лишь в том, что для восьмеричной системы счисления основанием является число 8, а правило перевода в данном случае может быть сформулировано в следующем виде:
Для перевода восьмеричного числа в десятичное необходимо это число представить в виде суммы произведений степеней основания восьмеричной системы счисления на соответствующие цифры в разрядах восьмеричного числа.
Например, требуется перевести восьмеричное число 2357 в десятичное. В этом числе 4 цифры и 4 разряда ( разряды считаются, начиная с нулевого, которому соответствует младший бит). В соответствии с уже известным нам правилом представим его в виде суммы степеней с основанием 8:
<span>23578 = (2·83)+(3·82)+(5·81)+(7·80) = 2·512 + 3·64 + 5·8 + 7·1 = 1263<span>10</span></span>
//произведение двух минимальных чисел в последовательности
begin
var x: integer;
Read(x);
var min1 := MaxInt;
var min2 := MaxInt;
repeat
if x <= min1 then
begin
min2 := min1;
min1 := x
end
else if x < min2 then
min2 := x;
Read(x);
until x = 0;
if (min1 <> MaxInt) and (min2 <> MaxInt) then
Print(min1 * min2)
end.
Var f,s:string;
i:integer;
begin
read(s);
for i:=1 to length(s) do if(s[i]<'0')or (s[i]>'9')then f:=f+s[i];
writeln(f);
<span>end.</span>