Современным инструментом для информационного моделирования является компьютер. Конечно, на компьютере можно писать тексты (строить вербальные модели), рисовать карты и схемы (графические модели), строить таблицы (табличные модели). Но при таком использовании компьютера в моделировании его возможности проявляются не в полной мере.Главное преимущество компьютера перед человеком к быстрому счету. Современные компьютеры считают со скоростями в сотни тысяч, миллионы и даже миллиарды операций в секунду!Учитывая, что расчеты производятся над многозначными числами (10-20 десятичных цифр), вычислительные человека нельзя даже сравнивать с компьютерными. Эти феноменальные вычислительные возможности проявляются, прежде всего, вкомпьютерном математическом моделировании.
Const n=20; var x,y : array[1..n] of integer; i,a,b,c : integer; f:real; begin Randomize; writeln('Исходный массив:'); for i:=1 to n do begin x[i]:=random(101)-50; write(x[i],' '); end; writeln; a:=0; b:=0; c:=0; for i:=1 to n do begin if x[i]<0 then a:=a+x[i]; if x[i] mod 2 = 0 then b:=b+1; if (c=0)and(x[i]>0) then c:=i; end; writeln('A=',a,' B=',b,' C=',c); f:=c+((a+b)/(10-c+a)); writeln('F=',f:5:2); end.
Вот оттестированный мой вариант программы. Тестировал на числах от 1 до 6. Писать начал чуть раньше Антагониста, но он оказался шустрее :))
//PascalABC //NaaMan //Программа расчитана ТОЛЬКО на факториалы //Проверки ошибочного ввода НЕТ var n, result, i : real; begin write('Введите факториал > '); readln(n); if (n = 1) then result := 1 else begin i := 2; while n <> 1 do begin n := n / i; result := i; i := i + 1; end; end; writeln('Число ', result); end.
