Приведите примеры областей науки в которых используется компьютерное моделирование

👇

Увидеть ответ

Ответ:

drsamsoff

05.02.2023

В настоящее время компьютерное моделирование используется для проведения исследований в следующих направлениях:

экология и геофизика:

анализ распространения загрязняющих веществ в атмосфере;

проектирование шумовых барьеров для борьбы с шумовым загрязнением;

прогнозирование погоды и климата;

прогнозирование землетрясений;

расчет ядерных реакций;

решение задач небесной механики, астрономии и космонавтики;

изучение глобальных явлений на Земле, моделирование погоды, климата, исследование экологических проблем, глобального потепления, последствий ядерного конфликта и т.д.;

транспорт:

конструирование транспортных средств;

полетные имитаторы для тренировки пилотов;

моделирование транспортных систем;

исследование поведения гидравлических систем (нефтепроводов, водопровода и пр.);

электроника и электротехника:

эмуляция работы различных технических, в частности, электронных устройств;

экономика и финансы:

прогнозирование цен на финансовых рынках;

имитация краш-тестов;

архитектура и строительство:

исследование поведения зданий, конструкций и деталей под механической нагрузкой;

прогнозирование прочности конструкций и механизмов их разрушения;

проектирование производственных процессов, например химических;

моделирование сценарных вариантов развития городов;

управление и бизнес:

стратегическое управление организацией;

моделирование рынков сбыта и рынков сырья;

моделирование производственных процессов;

экономические исследования развития предприятия, отрасли, страны;

промышленность:

моделирование роботов и автоматических манипуляторов;

моделирование прочностных и других характеристик деталей, узлов и агрегатов;

решение задач механики сплошных сред, в частности, гидродинамики;

компьютерное моделирование различных технологических процессов;

расчет химических реакций и биологических процессов, развитие химической и биологической технологии;

медицина и биология:

моделирование результатов пластических операций;

моделирование пандемий и эпидемий;

моделирование воздействия медикаментов и оперативных вмешательств на метаболизм и другие жизненно важные процессы;

политика и военное дело:

моделирование развития межгосударственных отношений;

моделирование поведения масс людей в различных общественно-политических ситуациях;

моделирование театра военных действий;

Объяснение:

4,4(41 оценок)

Открыть все ответы

Ответ:

Isildur3

05.02.2023

Var txt: string;
    i,k,n,m,mn: integer;
    a: array of string;
begin
write('предложение: '); readln(txt);
k:=0; mn:=length(txt);
for i:=1 to length(txt) do
if txt[i]=' ' then k:=k+1;
k:=k+1;
setlength(a,k+1);
for i:=1 to k-1 do
begin
    a[i]:=copy(txt,1,pos(' ',txt)-1);
    delete(txt,1,pos(' ',txt));
end;
a[k]:=txt;
n:=length(a[1]);
for i:=2 to k do
begin
    if n+length(a[i])<mn then
    begin
      mn:=n+length(a[i]);
      m:=i-1;
    end;
    n:=length(a[i]);
end;
writeln('количество букв: ',mn);
writeln('слова: ',a[m],' ',a[m+1]);
end.

предложение: кот пришел домой в три часа ночи
количество букв: 4
слова: в три

4,4(11 оценок)

Ответ:

Antoniow27

05.02.2023

Код Pascal:

Первая программа:

Const
   N = 13;
Var
   A,B:array[1..N] of integer;
   i,j,m:integer;
   k:byte;
Begin
Randomize;
Write('Исходный массив:');
For i:= 1 to N do
    Begin
    A[i]:=random(N);
    Write(' ',A[i])
    End;
WriteLn;
Write('Уникальные элементы:');
m:=0;
For i:= 1 to N do
    Begin
    k:=1;
    For j:= 1 to N do
        if i<>j then
           if A[i]=A[j] then k:=0;
    if k=1 then
       Begin
       m:=m+1;
       B[m]:=A[i];
       End
    End;
For m:=1 to m do
    Begin
    A[m]:=B[m];
    Write(' ',A[m])
    End;
End.

Пример работы программы:

Исходный массив: 3 7 11 11 11 0 9 3 9 9 10 1 4
Уникальные элементы: 7 0 10 1 4

Вторая программа:

Var
   A:array[1..10000] of integer;
   n,Min,Max,B:integer;
Begin
Write('Введите размерность массива: ');ReadLn(n);
Write('Введите массив A(',n,'): ');
For n:= 1 to n do
    Read(A[n]);

Min:=1;
Max:=1;
For n:= 2 to n do
    Begin
    if A[n]<Min then Min:=n;
    if A[n]>Max then Max:=n;
    End;
WriteLn('Min(A) = A[',Min,'] = ',A[Min]);
WriteLn('Max(A) = A[',Max,'] = ',A[Max]);

B:=A[Max];
A[Max]:=A[Min];
A[Min]:=B;

Write('A(',n,'):');
For n:= 1 to n do
    Write(' ',A[n])
End.

Пример работы программы:

Введите размерность массива: 7
Введите массив A(7): 1 3 4 6 7 5 2
Min(A) = A[1] = 1
Max(A) = A[5] = 7
A(7): 7 3 4 6 1 5 2

Третья программа:

Const
   n = 3;
   m = 4;
Var
   A:array[1..n,1..m] of integer;
   B:array[1..m,1..n] of integer;
   i,j:integer;
Begin
Randomize;
WriteLn('Исходная матрица:');
For i:= 1 to N do
    Begin
    For j:= 1 to M do
        Begin
        A[i,j]:=random(21)-10;
        Write(A[i,j]:3,' ')
        End;
    WriteLn;
    End;
WriteLn;
WriteLn('Транспонированная матрица:');
For i:= 1 to M do
    Begin
    For j:= 1 to N do
        Begin
        B[i,j]:=A[j,i];
        Write(B[i,j]:3,' ')
        End;
    WriteLn
    End;
End.

Пример работы программы:

Исходная матрица:
10   3 10   1
-4   9 -9   2
-1   4   2   1

Транспонированная матрица:
10 -4 -1
3   9   4
10 -9   2
1   2   1

4,7(46 оценок)

Это интересно:

Стиль-и-уход-за-собой

11.12.2022

Как ухаживать за кожей после шугаринга...

Искусство-и-развлечения

30.05.2021

Как стать пресс-агентом: советы от профессионалов...

Образование-и-коммуникации

10.02.2023

Как выспаться и учиться всю ночь...

Компьютеры-и-электроника