с практичесткой
Запустить PascalABC.NET.2.Выполнить задания. Перед каждым заданием писать название задания, например «Задание 1А», и к каждому действию написать комментарий или пояснение в программе.а)Создать целочисленный одномерный массив A[1..n] (n=10) с элементами, равными своим удвоенным индексам и вывести их на экран. Найти сумму всех элементов массива
.varmas: array[1..10] of integer;
i: integer;
s: real;
begin
writeln('Задание1A');
S:=0;for i:=1 to 10 do begin
mas[i]:=i*2;
writeln('mas[',i,']=',mas[i]);
S:=S+mas[i];
end;
writeln('Сумма всех элементовmas= ',S);
end.б)Создать целочисленный одномерный массив A[1..n] (n=10) с произвольными целыми числами. Найти количество отрицательных, положительных и нулевых элементов в линейном целочис-ленном массиве. в)Вывести на экран все отрицательные элементы линейного целого массива (из задания Б).3.Откомпилировать задания и запустив на выполнение, получить результат. 4.Результаты показать учителю и, при необходимости, сохранить на дискете. 5.Сохранить свой файл (под именем «Pr11»).6.Закрыть PascalABC.NET.Задание 2.(+ )1.Открыть файл с сохраненными решениями предыдущих заданий(под именем «Pr11»).2.Выполнить задания. Перед каждым заданием писать название задания, например «Задание2А», и к каждому действию написать комментарий или пояснение в программе.а)Создать целочисленный одномерный массив A [1..n] (n=10) с произвольными целыми числами.Найти среднее арифметическое всех положительных элементов линейного массива действи-тельных чисел.б)Определить индекс и значение максимального элемента массива(из задания 2А). Результат вы-вести на экран.3.Откомпилировать заданияи запустив на выполнение, получить результат. 4.Результаты показать учителю. 5.Сохранить свой файл (под именем «Pr11»).Задание 3.(+ )1.Открыть файл с сохраненными решениями предыдущих заданий(под именем «Pr11»).2.Выполнить задания. Перед каждым заданием писать название задания, например «Задание3», и к каждому действию написать комментарий или пояснение в программе.Создайте массив из 10 случайных целых чисел (создается с генератора случайных чи-сел). Отобразите его на экране. После чего задайте поиск числа х в полученном массиве и отоб-разите сколько раз встречается это число. 4.Откомпилировать задания и запустив на выполнение, получить результат. 5.Результаты показать учителю.6.Сохранить файл с новыми данными.7.ответить на контрольные во
begin
var n:=ReadInteger('n=');
var a:=ArrRandomReal(n,1,50);
a.Println;
var m:=a.Min;
if m<>0 then
for var i:=0 to n-1 do a[i]/=m;
a.Println
end.
Тестовые решения:
n= 5
15.9562486982701 12.6295463515583 11.5262675264507 24.1544637978796 45.6158542677834
1.38433787534893 1.09571865502651 1 2.09560152429653 3.95755643907304
n= 10
14.0622929614327 16.5069398081428 13.2300360101415 45.449448110745 46.6062807271286 41.3808015088461 21.5502972461052 20.3082026570608 6.33108078377837 25.0892608808769
2.22115203417771 2.60728623941069 2.0896962875659 7.17878189569095 7.36150466545052 6.53613544386811 3.40388915922883 3.20769918290964 1 3.96287170196298
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
var n:=ReadInteger('n=');
var a:=ArrRandom(n,1,50);
a.Println;
var m:=a.Max;
if m<>0 then
for var i:=0 to n-1 do a[i]+=m;
a.Println
end.
Тестовые решения:
n= 8
37 3 10 29 39 31 40 10
77 43 50 69 79 71 80 50
n= 10
9 47 40 19 20 37 21 39 26 31
56 94 87 66 67 84 68 86 73 78
2) получится формула =СУММ(E1:E5)
3) СРЗНАЧ()
4)ввести значение 10 в ячейку А1; ввести формулу =А1+5 в ячейку А2; скопировать(растянуть) формулу из ячейки А2 до ячейки А19
5)=A1*LN(B2*C1)
6)=3*EXP(2*A1)
7)Стандартные функции используются только в формулах. Вызов функции состоит в указании в формуле имени функции, после которого в скобках указывается список параметров. Отдельные параметры разделяются точкой с запятой. В качестве параметра можно использовать число, адрес ячейки или произвольное выражение.