Процессор
так как: устройства ввода это клавиатура, оперативная память это память, устройства вывода :колонки
Var p,h: Real;
begin
writeln('Введите p,h: ');
readln(p,h);
writeln('P=p*g*h=',p*10*h);
end.
<span><span>Var
D : array[1..365] of Byte; {начальные данные}
M : array[1..8] of Word;
...
For i:=1 to 8 do M[i]:=0;
For i:=1 to 365 do Inc(M[D[i]]);
Min:=1;
For i:=2 to 8 do
If M[i]<M[Min] then Min:=i;
Case Min of
1 : Writeln('С южной стороны от комбината');
2 : Writeln('С северной стороны от комбината');
...
8 : Writeln('С северо-западной стороны от комбината');
End;
Мб подойдет, надо на паскале проверять. Если ты просил массив в паскале</span></span>
№1
1. Постановка задачи: описание задачи, определение цели моделирования, анализ объекта.
Делятся на две группы: исследование объекта и как зменятся характеристики: "Что будет, если?"(описание задачи).
Опр. цели моделир.: "Как сделать, чтобы?".
Анал. объекта-чёткое выделение моделир. объекта и его основных свойств.
2. Формализация объекта т.е. на каком-либо формальном языке(Данные ввиде диаграмы, например).
Когда проведена формализация, то это- формальная модель.
3. Разработка комп. модели начинается с выбора инструмента моделирования, т.е. выбор программной среды.
4. Компьютерный эксперимент включает себя две стадии: тест и исследование модели. К иследованию можно переходить, когда тест прошёл успешно.
5. Анализ результатов является ключевым этапом. Именно по итогам его решается: продолжать исследование или закончить.
№2
Ну как бы моделир. это инструмент и есть, но нужно выбрать себе из пакета программ выбрать подходящую.
№3
Чтобы обнаружить есть ли неисправности среде ожидания и реального поведения.
№4
Могут, если была неисправность в тестах или разногласиях людей. Я так думаю.
№5
Я думаю, что надо исправить ошибку в этапе и перепроверить следующие этапы, а то может появится цепная реакция ошибок. Как в выражении в много действий в математике.
С уважением Найк Разумов.
Program exs;
var a, i, sum : integer;
begin
sum:= 0;
readln(a); {Считывание числа}
for i:= 1 to 4 do begin
sum:=sum + (a mod 10); {Находим остаток от деления на 10}
a:=a div 10; {Выкидываем найденную цифру из числа}
end;
writeln(sum);
end.
