#include <cctype> #include <algorithm> #include <cmath>#include <iomanip> #include <windows.h>#include <conio.h>#include <set>#include <iostream> #include <string> #include <vector> using namespace std;
int main(){ int a, b,f=0,f1=0,ans=0; cin >> a >> b; if (a < 0 ) f = 1; if (b < 0) f1 = 1; for (int i = 0; i < abs(b);i++) { ans += a; } if (f == 1 && f1 == 1) cout << abs(ans); else if (f == 1 || f1 == 1) cout << '-' << abs(ans); else cout << ans; return 0;}
Const n = 20;
<span>var a: array[1..n] of integer;
</span><span> i,k,minel: integer;
</span><span>begin
</span><span>//заполнение массива
</span><span>//и вывод массива на экран
</span><span> randomize;
</span><span> writeln('элементы массива:');
</span><span> for i:=1 to n do
</span><span> begin
</span><span> a[i]:=random(50)-30;
</span><span> write(a[i],' ');
</span><span> end;
</span><span> writeln;
</span><span>//обработка массива и вывод на экран
</span><span> minel:=a[1];
</span><span> for i:=2 to n do
</span><span> if (a[i]<minel) and (abs(a[i]) mod 2 > 0) then
</span><span> begin
</span><span> minel:=a[i];
</span><span> k:=i;
</span><span> end;
</span><span> writeln('номер элемента: ',k,' значение: ',minel);
</span><span>end.
</span><span>
</span>
№1
1. Постановка задачи: описание задачи, определение цели моделирования, анализ объекта.
Делятся на две группы: исследование объекта и как зменятся характеристики: "Что будет, если?"(описание задачи).
Опр. цели моделир.: "Как сделать, чтобы?".
Анал. объекта-чёткое выделение моделир. объекта и его основных свойств.
2. Формализация объекта т.е. на каком-либо формальном языке(Данные ввиде диаграмы, например).
Когда проведена формализация, то это- формальная модель.
3. Разработка комп. модели начинается с выбора инструмента моделирования, т.е. выбор программной среды.
4. Компьютерный эксперимент включает себя две стадии: тест и исследование модели. К иследованию можно переходить, когда тест прошёл успешно.
5. Анализ результатов является ключевым этапом. Именно по итогам его решается: продолжать исследование или закончить.
№2
Ну как бы моделир. это инструмент и есть, но нужно выбрать себе из пакета программ выбрать подходящую.
№3
Чтобы обнаружить есть ли неисправности среде ожидания и реального поведения.
№4
Могут, если была неисправность в тестах или разногласиях людей. Я так думаю.
№5
Я думаю, что надо исправить ошибку в этапе и перепроверить следующие этапы, а то может появится цепная реакция ошибок. Как в выражении в много действий в математике.
С уважением Найк Разумов.
program raf105;
var n,a,b,s,sum,i:integer;
begin
write('Введите количество комнат: ');
readln(n);
for i:=1 to n do
begin
writeln;
writeln('Комната №',i);
write('Длина: ');
readln(a);
write('Ширина: ');
readln(b);
s:= a*b;
writeln('Площадь: ',s,' м²');
sum:= sum+s;
end;
writeln;
writeln('Общая сумма площадей всех комнат: ',sum,' м²');
end.
<u><em>Язык программирования PascalABC</em></u>
Мы взяли функцию f(x) = sin(x)-2*cos(x).
В процедуру-функцию function можно вставлять любые функции
program func;
uses Crt;
var a, b, x, y:real;
function f(var x:real):real;
begin
f:=sin(x)-2*cos(x);
end;
begin
ClrScr; {Очистка экрана}
Write (' a= '); ReadLn(a);
Write (' b= '); ReadLn(b);
WriteLn;
x:=a;
while x<=b do
begin
y:=f(x);
WriteLn ('y(', x:1:0, ')= ', y:4:2);
x:=x+1;
end;
ReadLn;
end.
