Алгоритмы обработки массивов. Информационный диктант Что такое массив? Приведите пример массива информации. Объявите массив целых чисел. Объявите массив. - презентация

1 Алгоритмы обработки массивов

2 Информационный диктант Что такое массив? Приведите пример массива информации. Объявите массив целых чисел. Объявите массив символов. Прокомментируйте команду: a[5]:=6, а [11]:=ноябрь Перечислите способы заполнения массива. Как задать интервал случайных чисел от 18 до 60? Запишите массив чисел от 10 до 25 в порядке возрастания? Запишите массив чисел от 10 до 25 в порядке убывания?

3 В программе используется одномерный целочисленный массив A с индексами от 0 до 9. Ниже представлен фрагмент программы, записанный на разных языках программирования, в котором значения элементов сначала задаются, а затем меняются. for i:=0 to 9 do A[i]:=9-i; for i:=0 to 4 do begin k:=A[i]; A[i]:=A[9-i]; A[9-i]:=k; end; Чему будут равны элементы этого массива после выполнения фрагмента программы? 1) ) ) ) Обмен значениями элементов массива

4 В программе описан одномерный целочисленный массив с индексами от 1 до 10. Ниже представлен фрагмент программы, обрабатывающей данный массив: n := 10; for i := 1 to n do begin A[n+1-i] := 2*A[i]; end; В начале выполнения этого фрагмента в массиве находились числа: 1,2,4,8,16,32,64,128,256,512, т.е. A[i]=2 k-1, k=1, …10. Укажите значение из предложенного списка, которое после выполнения указанного фрагмента программы имеют два или более рассмотренных в этом фрагменте элемента массива. Если таких чисел несколько, укажите наименьшее из них. 1) такого значения нет 2) 23) 44) 8РЕВЕРС

5 В программе описан одномерный целочисленный массив с индексами от 0 до 100. Ниже представлен фрагмент программы, обрабатывающей данный массив: n:= 100; for i:=0 to n do A[i]:=i; for i:=1 to n do begin A[i]:= A[i]-A[i-1]; end; s:=A[90]; Укажите значение, которое после выполнения указанного фрагмента программы будет записано в переменную s. 1) 02) 303) 454) 550

6 В программе описан одномерный целочисленный массив с индексами от 0 до 10. Ниже представлен фрагмент программы, обрабатывающей данный массив: s:=0; n:=10; for i:=1 to n do begin s:=s+A[i]-A[i-1]; end; В начале выполнения этого фрагмента в массиве находились числа 0, 2, 4, 6, 8, 10, 12, 14, 16, 18, 20, т.е. А[0]=0, А[1]=2 и т.д. Чему будет равно значение переменной s после выполнения данной программы? 1) 102) 203) 224) 110

7 В программе описан одномерный целочисленный массив A с индексами от 1 до 10. Ниже представлен фрагмент этой программы, в котором значения элементов массива сначала задаются, а затем меняются. for i:=1 to 10 do A[i]:=5*i; for i:=1 to 10 do begin k:=A[i]-2; A[10-i+1]:=k; end; Чему будут равны элементы этого массива? 1) ) ) )

8 В программе описан одномерный целочисленный массив A с индексами от 0 до 10. Ниже представлен фрагмент этой программы, в котором значения элементов массива сначала задаются, а затем меняются. for i:=0 to 10 do A[i]:=i+3; for i:=10 downto 0 do begin k:=A[i]; A[i]:=A[10-i]; A[10-i]:=k; end; Чему будут равны элементы этого массива? 1) ) ) )

9 Решение задач

10 Многие натуральные числа можно представить в виде n=3a+5b, где A и B - целые неотрицательные числа. 11=3*2+5*1, 20+3*0+5*4 Например 11=3*2+5*1, 20+3*0+5*4. Требуется по заданному числу определить можно ли его представить в таком виде, и, если это возможно найти A и B.

11 var n,a,b:integer; t:boolean; label kn; begin t:=false; Readln(n); for a:=0 to n do for b:=0 to n do if 3*a+5*b=n then begin t:=true; writeln(a,' ',b); goto kn; end; kn :if not t then writeln('IMPOSSIBLE'); end. var n,a,b:integer; t:boolean; begin t:=false; Readln(n); for a:=0 to n do for b:=0 to n do if 3*a+5*b=n then begin t:=true; writeln(a,' ',b); break; end; if not t then writeln('IMPOSSIBLE');

12 Поиск максимального элемента Max:=A[1]; For i:=2 to N do if A[i]>Max then Max:=A[i]; Write (Max);

13 Досрочное завершение цикла Требуется найти в массиве элемент, значение которого равно значению переменной Х, или сообщить, что такого элемента в массиве нет.

14 a:=0; for i:=1 to n do if A[i]=X then begin a:=I; break; End; If a>0 then write (A[, a, ]=, x) Else write (Нет таких элементов!!!); end. Досрочное завершение цикла

15

16