О нет! Что-то пошло не так во время добавления ответа
<span>Ответ не может быть пустым</span>
Формальная модель описывает движение тела ,используются формулы, уравнения, неравества, приближенные математические методы. Компьютерная модель выраженна на понятном языке программирования,она позволяет: визуализировать траекторию движения тела,а также реализовать интерактивный диалог человека с компьютером на этапе исследования модели.
Пример решения для пункта 1 в прикрепленных.
1) Решаем столбиком в 2сс.
2) Переводим результаты и операнды в 10сс, 8сс, 16сс (в моем случае двумя способами).
3) Перерешиваем столбиком в 10сс, 8сс, 16сс.
4) Сверяем результаты пункта 2) с результатами пункта 3).
<em>PascalABC.NET 3.2, сборка 1382 от 06.02.2017</em>
<em>Внимание! Если программа не работает, обновите версию!</em>
<em>1. Заданный контрольный пример:</em>
begin
var a:=Arr(4,-5,3,10,-4,-6,8,-10,1,0); a.Println;
var im1,im2:integer;
if a[im1]<a[im2] then Swap(im1,im2);
for var i:=2 to a.High do
if a[i]>a[im1] then begin im2:=im1; im1:=i end
else
if a[i]>a[im2] then im2:=i;
WritelnFormat('a[{0}]={1}, a[{2}]={3}',im1+1,a[im1],im2+1,a[im2])
end.
<u>Результат</u>
4 -5 3 10 -4 -6 8 -10 1 0
a[4]=10, a[7]=8
<em>2. Решение задания</em>
begin
var a:=ArrRandom(10,-10,10); a.Println;
var im1,im2:integer;
if a[im1]<a[im2] then Swap(im1,im2);
for var i:=2 to a.High do
if a[i]>a[im1] then begin im2:=im1; im1:=i end
else
if a[i]>a[im2] then im2:=i;
WritelnFormat('a[{0}]={1}, a[{2}]={3}',im1+1,a[im1],im2+1,a[im2])
end.
<u>Пример</u>
-1 10 -6 3 -4 -3 -4 7 0 -7
a[8]=7, a[4]=3
Винчестер предназначен для долговременного хранения операционных систем, ежедневно использующихся программ и данных.