с маткадом
Вот ссылка на методичку http://irbis.bti.secna.ru/doc8/2018-157.pdf 2,3 и 4 лабы
1. Используя стандартную функцию rnd(1), определите новую функцию F(a,b), которая возвращает случайные числа в диапазоне a…b.

2. Дано число. Если оно четное, увеличить его в два раза, если нечетное – в три

раза. Используйте стандартные функции if и mod

3. Решите задачу о случайном блуждании, но на плоскости x-y (за аналог возьмите

задачу 1): пешеход может двигаться только вперед-назад и влево-вправо. Постройте график его траектории и отметьте место его остановки. Как далеко он смог отойти от начального места?

1. Определите любыми двумя вектор W, содержащий все нечетные

числа от 1 до 19.

2. Определите некоторые векторы V, V1, V2, скаляр X и проделайте над ними

векторные операции, приведенные в таблице 4.2.

3. Определите вектор x = (0.12, 0.2, 0.23, 0.27, 0.45, 0.66, 0.7, 0.85, 0.9, 0.99). Рассчитайте значения

Определите некоторые матрицы M, M1, M2, вектор V и скаляр X. Проделайте

над ними матричные операции, приведенные в таблице 4.3.

6. Определите два вектора одинаковой размерности. Объедините их в матрицу,

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

7. Определите единичную матрицу Е размером 4×4 и вектор V, содержащий четыре элемента. Вычислите матрицу

 

T VV

V

H E 2

2

  .

8. Решите задачу 1 из п.4.4 о поиске оптимального расположения домика садоводства при количестве домов > 50. Изобразите на графике все дома садоводства, выделив

дом с оптимальным и самым неудачным расположением.

Вычисления

Начальная масса бактерий в теле учёного = 90/100*10 = 9кг

1 процент бактерий от их начальной массы = 9/10*1 = 0,09кг = 90г

Код программы с объяснением

program raf105;

var X,Y,BoMass,kap,B1Mass:real;

begin

write('Количество бактерий в капле: ');

readln(X);

write('Общая масса бактерий в капле (в граммах): ');

readln(Y);

B1Mass:= Y / X; //Масса одной бактерии

while BoMass < 90 do

begin

 Y:= Y*2; //Масса бактерий в каждой капле

 X:= X*2; //Кол-во бактерий в каждой капле

 BoMass:= BoMass+Y; //Общая масса поселившихся бактерий

 kap:= kap+1; //Кол-во капель

end;

writeln;

writeln('Чтобы в организме учёного стало на 1% больше бактерий нужно ',kap,' капель воды.');

writeln('При этом в нём поселится ',X,' бактерий');

end.

Программа написана на языке PascalABC.NET

Задание 1

В (1) отсутствует ключевое слово array, во (2) троеточие в квадратных скобках, в (4) и (5) отсутсвуют ключевые слова.

ответ

(3) var A: array [-8..10] of integer;

Задание 2

Для (1) требуется две переменные - сумма всех чисел и их количество. Для (2) требуется одно число, которое будет сравниваться с вводимыми. Для (3) как раз требуется массив, поскольку над одними и теми же числами выполняется две операции (вывод отрицательных, а потом остальных)

ответ

3

Задание 3Pascal элементы должны иметь один тип (неверно)Следует из первого (верно)Некоретный вопрос. Элементы расположены друг за другом. Массив - единый объект. Так что элементы не могут быть в хаотическом порядке разбросаны по памяти (верно)Следует из третьего (неверно)Неверноответ

2, 3

Задание 4

-2 -1 0 1 2 3 4 5 6 7 8, то есть 11.

ответ

11

Задание 5

2 4 6 8 10 12 - каждый последующий элемент на два больше, чем предыдущий. Но важно заметить, что цикл начинается с k = 1, то есть в случае 2k + 2 у нас получится совсем неверный массив. Тогда остаётся один вариант - это 2k:

k = 1; 2k ⇒ 2

k = 2; 2k ⇒ 4

k = 3; 2k ⇒ 6

ответ

X[k] := 2*k