- Главная
- Разное
- Дизайн
- Бизнес и предпринимательство
- Аналитика
- Образование
- Развлечения
- Красота и здоровье
- Финансы
- Государство
- Путешествия
- Спорт
- Недвижимость
- Армия
- Графика
- Культурология
- Еда и кулинария
- Лингвистика
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Детские презентации
- Информатика
- История
- Литература
- Маркетинг
- Математика
- Медицина
- Менеджмент
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, картинки для презентаций
- Экология
- Экономика
- Юриспруденция
Подготовка к ЕГЭ. Задание №27 презентация
Содержание
- 1. Подготовка к ЕГЭ. Задание №27
- 2. 10 20 50 25 45 10 40
- 3. 10 20 50 25 45 10 40
- 4. 10 20 50 25 45 10 40
- 5. 10 20 50 25 45 10 40
- 6. 10 20 50 25 45 10 40
- 7. 10 20 50 25 45 10 40
- 8. 10 20 50 25 45 10 40
- 9. 10 20 50 25 45 10 40
- 10. 10 20 50 25 45 10 40
- 11. 10 20 50 25 45 10 40
- 12. 10 20 50 25 45 10 40
- 13. 10 20 50 25 45 10 40
- 14. 10 20 50 25 45 10 40
- 15. 10 20 50 25 45 10 40
10
20
50
25
45
10
40
0 С клавиатуры вводятся последовательность целых чисел. Число 0 – окончание ввода. Слева – пример такой последовательности.
Слайд 210
20
50
25
45
10
40
0
С клавиатуры вводятся последовательность целых чисел.
Число 0 – окончание ввода.
Слева –
пример такой последовательности.
Слайд 310
20
50
25
45
10
40
0
Найти максимальное из введенных чисел и его порядковый номер в последовательности.
Как
можно просто, но эпично ошибиться?
Слайд 410
20
50
25
45
10
40
0
Найти второй по значению максимум в последовательности.
Найти его порядковый номер.
Слайд 510
20
50
25
45
10
40
0
readln (x);
max:=x; max2:=x;
while x0 do
begin
if x>max
then
begin
max2:=max;
max:=x;
end
else
if x>max2 then max2:=x;
Readln (x)
end;
begin
max2:=max;
max:=x;
end
else
if x>max2 then max2:=x;
Readln (x)
end;
Слайд 610
20
50
25
45
10
40
0
Найти третий по значению максимум в последовательности.
Найти его порядковый номер.
Слайд 710
20
50
25
45
10
40
0
Найти N максимальных по значению элементов последовательности.
Найти их порядковые номеры.
Слайд 810
20
50
25
45
10
40
0
readln (x);
… //инициализация массива М?
while x0 do
begin
i:=1;;
while (i<=N) do
begin
if x>M[i] then break;
i:=i+1;
end;
if i<=N then begin
for var j:=N downto i+1 do
M[j]:=M[j-1];
m[i]:=x;
end;
readln(x);
end;
while (i<=N) do
begin
if x>M[i] then break;
i:=i+1;
end;
if i<=N then begin
for var j:=N downto i+1 do
M[j]:=M[j-1];
m[i]:=x;
end;
readln(x);
end;
Слайд 1110
20
50
25
45
10
40
0
Найти наибольшее число R, для которого одновременно выполняются следующие условия:
R-четное;
R-сумма двух
чисел последовательности.
Слайд 1210
20
50
25
45
10
40
0
Найти наибольшую сумму двух чисел, которые «находятся» друг от друга в
последовательности не менее чем через два числа подряд.
Слайд 1310
20
50
25
45
10
40
0
readln (x3, x2,x1,x);
…//инициализация мах
while x0 do
begin
if
x3>Max3 then
Max3 := x3;
if x+Max3>Max then
Max:=x+Max3;
x3:=x2; x2:=x1; x1:=x;
readln(x);
end;
Max3 := x3;
if x+Max3>Max then
Max:=x+Max3;
x3:=x2; x2:=x1; x1:=x;
readln(x);
end;
Слайд 1410
20
50
25
45
10
40
0
Найти наибольшую сумму двух чисел, которые «находятся» друг от друга в
последовательности не менее чем через N числел подряд.
Слайд 1510
20
50
25
45
10
40
0
for var i:=1 to N do
readln (x[i]);
while x[N]<>0 do
begin
if x[N]>MaxN then
MaxN := x[N];
if x+MaxN>Max then
Max:=x+MaxN;
//как изменить массив?
readln(x[N]);
end;
while x[N]<>0 do
begin
if x[N]>MaxN then
MaxN := x[N];
if x+MaxN>Max then
Max:=x+MaxN;
//как изменить массив?
readln(x[N]);
end;
