Паскаль
<<  Массивы Двоичный поиск в упорядоченном массиве  >>
Задачи с использованием одномерных массивов
Задачи с использованием одномерных массивов
Const N=30; var a:array[1
Const N=30; var a:array[1
2. Опишите алгоритм подсчёта суммы отрицательных элементов в
2. Опишите алгоритм подсчёта суммы отрицательных элементов в
2. Const N=30; var a:array[1
2. Const N=30; var a:array[1
3. Опишите алгоритм поиска двух элементов, сумма которых максимальна,
3. Опишите алгоритм поиска двух элементов, сумма которых максимальна,
3. Const N=30; var a:array[1
3. Const N=30; var a:array[1
4. Опишите алгоритм вычисления 20-го числа в числовой
4. Опишите алгоритм вычисления 20-го числа в числовой
4. Const N=20; var first,second,last,i:integer; BEGIN first:=3; second
4. Const N=20; var first,second,last,i:integer; BEGIN first:=3; second
ЗАДАЧА
ЗАДАЧА
ЗАДАЧА
ЗАДАЧА
5
5
5
5
ЗАДАЧА
ЗАДАЧА
ЗАДАЧА
ЗАДАЧА

Презентация на тему: «Задачи с использованием одномерных массивов». Автор: r. Файл: «Задачи с использованием одномерных массивов.ppt». Размер zip-архива: 61 КБ.

Задачи с использованием одномерных массивов

содержание презентации «Задачи с использованием одномерных массивов.ppt»
СлайдТекст
1 Задачи с использованием одномерных массивов

Задачи с использованием одномерных массивов

1. Опишите алгоритм подсчёта среднего значения положительных элементов в целочисленном массиве из 30 элементов. Если в массиве нет положительных элементов, сообщите об этом. Постарайтесь использовать минимальное количество операций.

2 Const N=30; var a:array[1

Const N=30; var a:array[1

.N] of integer; S,k,i:integer; BEGIN S:=0; k:=0; For i:=1 to N do if a[i]>0 then begin S:=S + a[i]; k:=k + 1; end; If k>0 then writeln(‘Среднее значение положительных элементов’,S/k) else writeln(‘Положительных элементов нет’); END.

3 2. Опишите алгоритм подсчёта суммы отрицательных элементов в

2. Опишите алгоритм подсчёта суммы отрицательных элементов в

целочисленном массиве из 30 элементов. Если в массиве нет отрицательных элементов, алгоритм должен сообщить об этом. Постарайтесь использовать минимальное количество операций.

4 2. Const N=30; var a:array[1

2. Const N=30; var a:array[1

.N] of integer; S,k,i:integer; BEGIN S:=0; k:=0; For i:=1 to N do if a[i]<0 then begin S:=S + a[i]; k:=k + 1; end; If k>0 then writeln(‘Сумма отрицательных элемнтов’,S) else writeln(‘Отрицательных элементов нет’); END.

5 3. Опишите алгоритм поиска двух элементов, сумма которых максимальна,

3. Опишите алгоритм поиска двух элементов, сумма которых максимальна,

в числовом массиве из 30 элементов. В качестве результата напечатайте сумму этих элементов. Постарайтесь использовать минимальное количество операций.

6 3. Const N=30; var a:array[1

3. Const N=30; var a:array[1

.N] of real; Max1,Max2,i:integer; BEGIN Max1:=a[1]; Max2:=a[1]; if a[2]>Max1 then Max1:=a[2] else Max2:=a[2]; For i:=3 to N do begin if a[i]>Max1 then begin Max2:=Max1; Max1:=a[i]; end else if a[i]>Max2 then Max2:=a[i]; end ; writeln(‘Сумма максимальных элементов’,Max1+Max2); END.

7 4. Опишите алгоритм вычисления 20-го числа в числовой

4. Опишите алгоритм вычисления 20-го числа в числовой

последовательности, первые два элемента которой равны 3 и 2, а каждый последующий равен абсолютной величине разности двух предыдущих. Постарайтесь не заводить массив для хранения значений последовательности.

8 4. Const N=20; var first,second,last,i:integer; BEGIN first:=3; second

4. Const N=20; var first,second,last,i:integer; BEGIN first:=3; second

=2; for i:=3 to N do begin last:=abs(first – second); first:=second; second:=last; end; writeln(’20-ое число числовой последовательности:’,last); END.

9 ЗАДАЧА

ЗАДАЧА

Дан массив целых чисел. Определить, образуют ли элементы массива симметричную последовательность чисел (палиндром). Примечание: предполагается, что последовательность содержит больше одного элемента. Метод: исследуем равенство элементов массива, которые расположены симметрично – на одинаковом расстоянии от центра последовательности. Для этого сравниваем между собой значения элементов а[i] и а[n+1-i], где номер элемента I начинается с единицы и заканчивается в середине массива – на значении n div 2. … i:=1; WHILE (i <= n div 2) and (a[i] = a[n+1- i]) do INC(i); IF i > n div 2 THEN WriteLn (‘Последовательность симметрична’) ELSE WriteLn (‘Последовательность не симметрична’); …

10 ЗАДАЧА

ЗАДАЧА

Дан массив целых чисел. Определить, образуют ли элементы массива неубывающую последовательность чисел. Примечание: предполагается, что последовательность содержит больше одного элемента. … i:=2; WHILE (i < = n ) and (a[i] >= a[i - 1]) do INC(i); IF i > n THEN WriteLn (‘Последовательность упорядочена’) ELSE WriteLn (‘Последовательность не упорядочена’);…

11 5

5

7

8

2

0

1

6

3

7

8

2

0

1

6

3

5

Задача. Сдвинуть одномерный массив на один элемент влево. Например, исходный массив

Обработанный массив:

Фрагмент программы:

… t:=a[1]; For i:=1 To n-1 Do a[i]:=a[i+1]; a[n]:=t; …

1

2

3

4

5

6

7

8

1

2

3

4

5

6

7

8

12 5

5

7

8

2

0

1

6

3

2

0

1

6

3

5

7

8

Задача. Сдвинуть одномерный массив на k элементов влево (k вводится с клавиатуры). Например, исходный массив

Обработанный массив (при k=3):

Фрагмент программы:

… For j:=1 To k Do Begin t:=a[1]; For i:=1 To n-1 Do a[i]:=a[i+1]; a[n]:=t; End; …

1

2

3

4

5

6

7

8

1

2

3

4

5

6

7

8

13 ЗАДАЧА

ЗАДАЧА

Дан массив целых чисел. Удалить из массива все нулевые элементы. Метод 1: наиболее простая модель удаления элементов из последовательности – очередь: на место удалённого элемента надо записать то значение, которое находится справа. На место элемента справа передвигается следующий и т.д. Если элемент равен нулю, то он удаляется, а если не равен – то переходим к следующему элементу (i+1) … i:=1; WHILE (i < n) do IF a[i] <> 0 THEN INC(i) ELSE {Удаляем элемент a[i] } begin n:=n-1; For j:= i To n Do a[j]:=a[j+1] end; …

14 ЗАДАЧА

ЗАДАЧА

Дан массив целых чисел. Вставить элемент k после первого максимального элемента. Метод : пусть q – номер максимального элемента. Сдвиг на одну позицию вправо и вставка на q+1 (после заданного элемента) элемента, равного k . … FOR i:= n DownTo q+1 Do A[i+1]:=a[i]; A[q+1]:=k; …

«Задачи с использованием одномерных массивов»
http://900igr.net/prezentacija/informatika/zadachi-s-ispolzovaniem-odnomernykh-massivov-260541.html
cсылка на страницу

Паскаль

38 презентаций о Паскале
Урок

Информатика

130 тем
Слайды
900igr.net > Презентации по информатике > Паскаль > Задачи с использованием одномерных массивов