8 клас. Інформатика. Дистанційне навчання.: березня 2018

Практична робота 1

Обчислювальні алгоритми на масивах

Зразок програми на мові Pascal

program rescheto1; {Після назви програми записують БЛОК ОПИСІВ}

var {Після слова var оголошується змінні величини у програмі}

a: array [1..5000] of boolean; {ЦЕ лінійний масив із логічними значеннями}

n, x, y: integer; {Це три змінні із цілочисельними значеннями}

begin {Оголошується початок програми – БЛОК ОПИСУ ДІЙ}

write('n='); readln(n); {Оголошується запрос і введення найбільшого числа n}

a[1] := false; {1-е місце масиву a[х] присвоєно значення «хибне», 1 – непросте число}

for x:=2 to n do a[x] := true; {Цикл з лічильником масиву a[х] присвоює значення «істинне»}

for x:= 2 to n div 2{round(sqrt(N))} do {Для змінної х цикл з лічильником від 2 до n/2 (до n^0,5)}

for y:= 2 to n div x do {Для змінної y маємо вкладений цикл з лічильником від 2 до n/ х}

a[x*y] := false; {Елементам a[x*y] присвоєно «хибне», бо це непросте число і кінець циклу}

for x:=1 to n do {Цикл з лічильником для перебігу по масиву a[х] від 1 до n}

if a[x] then write(x,' '); {неповне розгалуження для вияву по масиву a[х] усіх істинних значень}

readln; {Виводяться на друк тільки індекси х(прості числа) для усіх істинних значень масиву a[х]}

end. {Оголошується кінець програми – БЛОКУ ОПИСУ ДІЙ}

Завдання 1. Створити та реалізувати алгоритм мовою Pascal, який підносить до квадрату парні остачі усіх чисел в одномірному масиві(рядок чисел) при діленні на 7 і підносить до кубу непарні остачі (mod 7) та виводить результати цих дій у новий масив. І до того ж знаходить суму усіх цих остач. При цьому у початковому масиві числа задаються алгоритмом, як випадкові 7-цифрові цілі від’ємні числа.

program MOD1; {Підрахунок і дії з остачами для усіх елементів числового масиву}

const n=2; var a, b: array [1..n] of integer; s, i: integer;

begin writeln ( 'Виводиться ', n, ' випадкових елементів масиву A:');

for i:=1 to n do begin a[i]:=-1000000-random(9000000); write(' а[', i, ']=: ', a[i]); write(' '); end; writeln; writeln ( 'Виводиться ', n, ' елементів масиву остач:');

s:=0; for i:=1 to n do begin b[i]:=a[i] mod 7; s:=s+b[i]; write('b[', i, ']= ', b[i]); write(' '); end; writeln; writeln('Сума усіх остач елементів масиву =', s); writeln('***');

for i:=1 to n do begin if b[i] mod 2=0 then b[i]:= b[i]* b[i] else b[i]:= b[i]* b[i]* b[i];

write('c[', i, ']= ', b[i]); write(' '); end; writeln; writeln('************');end.

Протестувати алгоритм для 9-цифрових: а) const =9; б) const =8; в) const =25.

Завдання 2. Створити та реалізувати алгоритм мовою Pascal, який знаходить парні числа і ділить ці числа на 2 та знаходить непарні числа і подвоює їх в двовимірному масиві(таблиця чисел). При цьому у початковому масиві алгоритмом задаються випадкові 8-цифрові цілі, як додатні так і від’ємні числа.

program ODD2; {Дії окремо з парними та окремо з непарними елементами масиву}

const n=3; var a: array [1..n, 1..n] of integer; j, i, p: integer;

begin writeln ( 'Вводиться ', n*n, ' випадкових елементів масиву');

for i:=1 to n do begin for j:=1 to n do begin a[i, j]:=-4000000+random(90000000);

write(' а[', i, ' ,' , j, ' ]= ', a[i, j]); write(' '); end; writeln(' '); end; writeln ('Масив:');

p:=0; for i:=1 to n do begin for j:=1 to n do begin

if (a[i, j] mod 2)=0 then begin p:=p + 1; a[i, j]:=a[i, j] div 2 end else a[i, j]:=2*a[i, j];

write(' b[', i, ' ,' , j, ' ]=', a[i, j]); write(' '); end; writeln(' '); end; writeln;

writeln('Кількість парних елементів масиву =', p);

writeln('Кількість непарних елементів масиву =', n*n- p); writeln('*******');end.

Протестувати алгоритм для 4-цифрових: а) const =4; б) const =5; в) const =8.

Завдання 3. Створити та реалізувати алгоритм мовою Pascal, який виводить два масиви розміром nxn у вигляді рядків та стовпців і знаходить потроєну суму та потроєну різницю цих двох двовимірних масивів А та В(таблиці з різними числами, котрі збільшені в 3 рази), якщо у двох масивах алгоритмом задаються випадкові 6-цифрові цілі додатні числа.

program SUM3DELTA3; { Потроєна сума або потроєна різниця масивів: С= 3А ± 3В}

const n=2; var b, a: array [1..n, 1..n] of integer; k,m, j, i: integer;

begin writeln ( 'Виводиться по ', n*n, ' випадкових елементів масивів А та В');

for i:=1 to n do begin for j:=1 to n do begin a[i,j]:= 100000+random(90000) ;

write(' a[',i,';',j,']:= ' , a[i,j]); end; writeln(' '); end; writeln(' Другий масив:');

for i:=1 to n do begin for j:=1 to n do begin b[i,j]:= 100000+random(90000);

write(' b[',i,';',j,']:= ', b[i,j]); end; writeln(' '); end; writeln(' '); writeln(' Відповідь.');

for i:=1 to n do begin for j:=1 to n do begin write(' 3a+3b[', i, ' ,' , j, ' ]= ', 3*( a[i,j]+ b[i,j] )); end; writeln(' '); end; writeln(' '); writeln(' '); for k:=1 to n do begin for m:=1 to n do begin write(' 3a-3b[', k, ' ,' , m, ' ]= ', 3*( a[k,m]- b[k,m])); end; writeln(' '); end; writeln(' '); writeln; end.

Протестувати алгоритм для 10-цифрових: а) const =3; б) const =4; в) const =9.

Завдання 3. Дано ряд натуральних чисел від 1 до 500. Знайти і записати прості числа в числовому ряді від 1 до 500. ВИКОРИСТАТИ РЕШЕТО ЕРАТОСФЕНА для знаходження простих чисел.

Перед виконання програми на мові Pascal треба зробити такі дії:

1) Створити нову папку Zadacha3 у власній папці ПІБ;

2)Набрати поданий нижче зразок програми в середовищі Pascal АВС(знайте, що треба набирати текст програми без помилок) і зберегти цю програму в папці Zadacha3 під назвою rescheto1.рas.

3) Виконати декілька разів цю програму для різних рядів: а) від 1 до 159; б) від 1 до 652; в) від 1 до 1000. а) від 1 до 1059; б) від 1 до 4078; в) від 1 до 5000.