3.Укажите основные этапы разработки и исследования компьютерных моделей: ( ответ будет засчитан, при указании всех верных вариантов ответа) *
- составление программы на языке программирования
- составление описательной информационной модели
- все ответы верны
- составление математического алгоритма
- составление формализованной модели
- разработка компьютерной модели
- анализ и корректировка полученных результатов
- проведение компьютерного эксперимента
const Q=10000;
var a:array [1..Q] of integer;
x,k,p,m,n,o:integer;
begin
write('a='); readln(m);
write('b='); readln(n);
a[1]:=m;
for x:=2 to (n-m+1) do
a[x]:=a[x-1]+1;
write('Положительные: ');
for x:=1 to (n-m+1) do
if a[x]>0 then begin inc(p); write(a[x],' '); end;
writeln;
write('Отрицательные: ');
for x:=1 to (n-m+1) do
if a[x]<0 then begin inc(o); write(a[x],' '); end;
writeln;
writeln('Положительных чисел:', p);
writeln('Отрицательных чисел:',o);
end.
var a,b,c,d,x:real;
begin
clrscr;
writeln('введите A,B,C');
readln( a,b,c );
d:=sqr(b)-4*a*c;
if d<0 then
writeln('действительных корней нет')
else if d=0 then
begin
x:=(-b)/2*a;
writeln('корень уравнения: ',x);
end else
begin
x:=(-b+sqrt(d))/2*a;
writeln('1-ый корень уравнения: ',x);
x:=(-b-sqrt(d))/2*a;
writeln('2-ой корень уравнения: ',x);
end
end.
P.S. Надеюсь на благодарность и лучший ответ.