Найти количество элементов массива больших или меньших какого-то числа.
Пример 3. m := 0; for k := 1 to 10 do if Dat[k] > 6 then m := m + 1; writeln(m) | Dat[1] := 7; Dat[2] := 9; Dat[3] := 10; Dat[4] := 5; Dat[5] := 6; Dat[6] := 7; Dat[7] := 9; Dat[8] := 8; Dat[9] := 6; Dat[10] := 9; Находит КОЛИЧЕСТВО элементов массива больших шести=1+1+1+1+1+1+1=7 |
Пример 4. m := 0; for k := 1 to 11 do if Dat[k] < 25 then begin m := m + 1 end; writeln(m) | Dat[1] := 20; Dat[2] := 25; Dat[3] := 19; Dat[4] := 25; Dat[5] := 26; Dat[6] := 22; Dat[7] := 24; Dat[8] := 28; Dat[9] := 26; Dat[10] := 21; Dat[11] := 27; Находит КОЛИЧЕСТВО элементов массива меньших двадцати пяти=1+1+1+1+1=5 |
Найти максимальный или минимальный элемент массива.
m := 30; for k := 1 to 11 do if Dat[k] < m then begin m := Dat[k] end; writeln(m) | Dat[1] := 20; Dat[2] := 25; Dat[3] := 19; Dat[4] := 25; Dat[5] := 26; Dat[6] := 22; Dat[7] := 24; Dat[8] := 28; Dat[9] := 26; Dat[10] := 21; Dat[11] := 27; Находит МИНИМАЛЬНЫЙ элемент массива = 19 |
m := 0; for k := 1 to 11 do if Dat[k] > m then begin m := Dat[k] end; writeln(m) | Dat[1] := 20; Dat[2] := 25; Dat[3] := 19; Dat[4] := 25; Dat[5] := 26; Dat[6] := 22; Dat[7] := 24; Dat[8] := 28; Dat[9] := 26; Dat[10] := 21; Dat[11] := 27; Выводит значение максимального элемента массива=28 |
4. Найти номер первого (>,<) или последнего(>=, <= если их несколько - одинаковых) максимального или минимального элемента массива
m := 10; n := 0; for k := 1 to 10 do if Dat[k] <m then begin m := Dat[k]; n := k end; writeln(n) | Dat[1] := 7; Dat[2] := 9; Dat[3] := 10; Dat[4] := 5; Dat[5] := 6; Dat[6] := 7; Dat[7] := 9; Dat[8] := 8; Dat[9] := 6; Dat[10] := 9; Выводит номер первого (<) минимального элемента массива=5, причем 9 второй минимальный и он не подходит. |
m := 0; n := 0; for k := 1 to 10 do if Dat[k] >= m then begin m := Dat[k]; n := k end; writeln(n) | Dat[1] := 7; Dat[2] := 9; Dat[3] := 10; Dat[4] := 5; Dat[5] := 6; Dat[6] := 7; Dat[7] := 9; Dat[8] := 10; Dat[9] := 6; Dat[10] := 9; Выводит номер – n, последнего (>=)максимального элемента массива=8 |
Найти сумму элементов массива не больших или не меньших определенного порядкового номера элемента массива.
m := 0; for k := 1 to 11 do if k > 9 then begin m := m + Dat[k] end; writeln(m) | Dat[1] := 20; Dat[2] := 25; Dat[3] := 19; Dat[4] := 25; Dat[5] := 26; Dat[6] := 22; Dat[7] := 24; Dat[8] := 28; Dat[9] := 26; Dat[10] := 21; Dat[11] := 27; Находит СУММУ элементов массива с номером больших девяти =21+27=48 |
m := 0; for k := 1 to 11 do if k< 5 then begin m := m + Dat[k] end; writeln(m) | Dat[1] := 20; Dat[2] := 25; Dat[3] := 19; Dat[4] := 25; Dat[5] := 26; Dat[6] := 22; Dat[7] := 24; Dat[8] := 28; Dat[9] := 26; Dat[10] := 21; Dat[11] := 27; Выводит сумму элементов с номером меньших пяти=20+25+19+25=89 |
3+2+2=7 |
Ответ: 7
Пример: 2.Сколько существует различных путей из города А в город Л?
Из Ав Л город существует 9+6+3+2=20 дорог
Ответ: 20
Как и во втором задании, можно применять принцип вентилей (кранов), для логических операций «И» и «ИЛИ»
А |
B |
И |
А |
B |
ИЛИ |
Помните что запись, это вся строка базы данных
Пример 1.
Ниже в табличной форме представлен фрагмент базы данных
«Крупнейшие озёра мира».
| Площадь (тыс. км2) | Мах глубина (м) | Материк | ||||
Байкал | 31,5 | Евразия | |||||
Больш. Невольничье | 28,6 | Северная Америка | |||||
Гурон | 59,6 | Северная Америка | |||||
Гэрднер | 7,7 | Австралия | |||||
Женевское | 0,5 | Евразия | |||||
Маракайбо | 16,3 | Южная Америка | |||||
Мёртвое море | 1,0 | Евразия | |||||
Онежское | 9,6 | Евразия | |||||
Онтарио | 19,5 | Северная Америка | |||||
Рудольф | 8,6 | Африка | |||||
Танганьика | 32,9 | Африка | |||||
Чудское | 3,5 | Евразия |
Сколько записей в данном фрагменте удовлетворяют условию
(Материк = «Африка») ИЛИ (Площадь (тыс. км2) > 30)?
В ответе укажите одно число – искомое количество записей.
Решение
Выделим цветом в таблице удовлетворяющие условию, галочками поставим удовлетворяющие обоим условиям, получаем 4 записи.
Обратите внимание, что в таблице выделено, пять подходящий условий, а почему ответ четыре? Потому что на два выделенных условия приходиться одна запись (строка) базы данных:
Танганьика | 32,9 | Африка |
Ответ: 4
Пример 2.
Ниже в табличной форме представлен фрагмент базы данных о погоде.
Дата | Температура | Давление | Ветер | Осадки |
01.05.2010 | нет | |||
02.05.2010 | нет | |||
03.05.2010 | нет | |||
04.05.2010 | дождь | |||
05.05.2010 | дождь | |||
06.05.2010 | дождь | |||
07.05.2010 | нет | |||
08.05.2010 | нет |
Сколько записей в данном фрагменте удовлетворяют условию
(Осадки = «нет») И (Ветер (м/с) >= 9) И (Давление (мм рт. ст.) > 749)?
В ответе укажите одно число – искомое количество записей.
Наши рекомендации