Разделы презентаций


Ветвления. Циклы. Массивы

Содержание

Операторы ветвления: if и case. Операторы цикла: for, while и repeat. Прерывание циклов: break, continue и goto.Массивы: описание и использование. Решение некоторых типовых задачСодержание

Слайды и текст этой презентации

Слайд 1Ветвления. Циклы. Массивы
Тема 3.

Ветвления. Циклы. Массивы Тема 3.

Слайд 2Операторы ветвления: if и case.
Операторы цикла: for, while и

repeat.
Прерывание циклов: break, continue и goto.
Массивы: описание и использование.


Решение некоторых типовых задач

Содержание

Операторы ветвления: if и case. Операторы цикла: for, while и repeat. Прерывание циклов: break, continue и goto.Массивы:

Слайд 31. Операторы ветвления

1. Операторы ветвления

Слайд 4К операторам, позволяющим из нескольких возможных вариантов выполнения программы (ветвей)

выбрать только один, относятся if и case.
Т.е. эти операторы

позволяют изменить естественный порядок выполнения операторов программы.
К операторам, позволяющим из нескольких возможных вариантов выполнения программы (ветвей) выбрать только один, относятся if и case.

Слайд 5Полный условный оператор if
Формат:
if then

< оператор 1 >
else ;
Схема выполнения

оператора:

Сначала вычисляется значение <условия> - это может быть любое выражение, возвращающее значение типа boolean.

Затем, если в результате получена "истина" (true), то выполняется оператор, стоящий после ключевого слова then

А если "ложь" (false) - без дополнительных проверок выполняется оператор, стоящий после ключевого слова else

Полный условный оператор if Формат:if   then  < оператор 1 >  	else ;Схема выполнения

Слайд 6Полный условный оператор if
Примеры:
if a>=b then Max:=a else Max:=b;

If (х5) then begin
u:=х*х–2*y+3; v:=1/2*х+1
end
else

begin
u:=1/3*х+2; v:=х*х+3*y–2
end;

If (x*x+y*y ≤4) and ((y=0) and (y>=0)
or (y>=-x) and (x<=0) and (y>=0)
or (y>x) and (x<=0) and (y<=0)
or (y<=-x) and (x>=0) and (y<=0)) then
writeln (’точка принадлежит области’)
else writeln (’точка не принадлежит области’);
Полный условный оператор if Примеры:if a>=b then Max:=a else Max:=b; If (х5) then begin		u:=х*х–2*y+3; v:=1/2*х+1 	end else

Слайд 7Неполный условный оператор if
Формат:
if then

< оператор 1 >;
Схема выполнения оператора:
Если условие истинно, то выполняется

<оператор 1>, если ложно – оператор, следующий сразу за оператором if.
Неполный условный оператор if Формат:if   then  < оператор 1 >;Схема выполнения оператора:Если условие истинно,

Слайд 8Неполный условный оператор if
Примеры:
If F mod 3 = 0

then write(i);

If (х5) then begin
u:=х*х–2*y+3;

v:=1/2*х+1 end;

If (x*x+y*y ≤4) and ((y=0) and (y>=0)
or (y>=-x) and (x<=0) and (y>=0)
or (y>x) and (x<=0) and (y<=0)
or (y<=-x) and (x>=0) and (y<=0)) then
writeln (’точка принадлежит области’);
Неполный условный оператор if Примеры:If F mod 3 = 0 then write(i); If (х5) then begin	u:=х*х–2*y+3; v:=1/2*х+1

Слайд 9В операторе if по обеим ветвям (then и else) может

выполняться только один оператор!
При необходимости выполнения нескольких требуется использовать операторные

скобки begin-end.
В операторе if по обеим ветвям (then и else) может выполняться только один оператор!При необходимости выполнения нескольких

Слайд 10В случае, когда каждый оператор if имеет собственную else-ветвь, все

будет в порядке.
А вот если некоторые из них этой

ветви не имеют, может возникнуть ошибка.

Многозначные ветвления

В случае, когда каждый оператор if имеет собственную else-ветвь, все будет в порядке. А вот если некоторые

Слайд 11Компилятор языка Паскаль всегда считает, что else относится к самому

ближнему оператору if. Таким образом, если написать
if i>0 then

if s>2
then s:= 1
else s:= -1;

подразумевая, что else-ветвь относится к внешнему оператору if, то компилятор все равно воспримет эту запись как

if i>0 then if s>2 then s:= 1 else s:= -1 else;

Ясно, что таким образом правильного результата получить не удастся.

Многозначные ветвления

Компилятор языка Паскаль всегда считает, что else относится к самому ближнему оператору if. Таким образом, если написать

Слайд 12Для того чтобы избежать подобных ошибок, стоит всегда (или по

крайней мере при наличии нескольких вложенных условных операторов) указывать оба

ключевых слова, даже если одна из ветвей будет пустовать.
Так вы застрахуетесь от одной из частых "ошибок по невнимательности", которые очень сложно найти в процессе отладки программы.

Многозначные ветвления

Для того чтобы избежать подобных ошибок, стоит всегда (или по крайней мере при наличии нескольких вложенных условных

Слайд 13Итак, исходный вариант нужно переписать следующим образом:
if i>0 then

if s>2
then s:= 1
else

else s:= -1;

либо так:

if i>0 then begin if s>2 then s:=1 end
else s:=-1;

Вообще же, если есть возможность переписать несколько вложенных условных операторов как один оператор выбора, это стоит сделать.

Многозначные ветвления

Итак, исходный вариант нужно переписать следующим образом: if i>0 then if s>2     			then

Слайд 14Program SquareEquation;
 Var a, b, c, Root1, Root2, Discriminant :

real;
Solution: Integer;  
Begin
Write(’Введите коэффициенты уравнения ’);
Readln(a, b, c) ;
Discriminant

:= Sqr(b)–4*a*c;
If Discriminant<0 then { Нет корней } Solution:=0
else If Discriminant=0 then begin { Один корень }
Solution := 1; Root1 := –b/a;
Writeln (’ х1= ’ ,Root1) end
else { Два корня } begin
Solution := 2;
Root1 :=(–b+Sqrt(Discriminant))/(2*a);
Root2 :=(–b–Sqrt(Discriminant))/(2*a);
Writeln(’ х1= ’, Root1, ’ х2= ’, Root2)
end ;
Writeln(’ Количество решений равно: ’, Solution)
End.

Пример. Корни квадратного уравнения

Program SquareEquation; Var  a, b, c, Root1, Root2, Discriminant : real;	Solution: Integer;  BeginWrite(’Введите коэффициенты 	уравнения ’);Readln(a, b,

Слайд 15
Разветвляющиеся алгоритмы
Задача. Ввести два целых числа и вывести на экран

наибольшее из них.
Идея решения: надо вывести на экран первое число,

если оно больше второго, или второе, если оно больше первого.
Особенность: действия исполнителя зависят от некоторых условий (если … иначе …).
Разветвляющиеся алгоритмыЗадача. Ввести два целых числа и вывести на экран наибольшее из них.Идея решения: надо вывести на

Слайд 16
Вариант 1. Блок-схема

полная форма ветвления
блок «решение»

Вариант 1. Блок-схемаполная форма ветвленияблок «решение»

Слайд 17
Вариант 1. Программа


max := a;
max := b;
полная форма условного оператора
program

qq;
var a, b, max: integer;
begin
writeln('Введите два целых числа');

read ( a, b );
if a > b then begin

end
else begin

end;
writeln ('Наибольшее число ', max);
end.
Вариант 1. Программа	max := a;max := b;полная форма условного оператора	program qq;	var a, b, max: integer;	begin  writeln('Введите

Слайд 18
Вариант 2. Блок-схема

неполная форма ветвления

Вариант 2. Блок-схеманеполная форма ветвления

Слайд 19
Вариант 2. Программа


program qq;
var a, b, max: integer;
begin
writeln('Введите

два целых числа');
read ( a, b );

max := a;
if b > a then
max := b;
writeln ('Наибольшее число ', max);
end.

неполная форма условного оператора

Вариант 2. Программа		program qq;	var a, b, max: integer;	begin  writeln('Введите два целых числа');  read ( a,

Слайд 20
Сложные условия
Задача. Фирма набирает сотрудников от 25 до 40 лет

включительно. Ввести возраст человека и определить, подходит ли он фирме

(вывести ответ «подходит» или «не подходит»).
Особенность: надо проверить, выполняются ли два условия одновременно.
Сложные условияЗадача. Фирма набирает сотрудников от 25 до 40 лет включительно. Ввести возраст человека и определить, подходит

Слайд 21
Вариант 1. Алгоритм
начало
ввод x
'подходит'
конец




да
нет
x >= 25?


да
нет
x

Вариант 1. Алгоритмначаловвод x'подходит'конецданетx >= 25?данетx

Слайд 22
Вариант 1. Программа



program qq;
var x: integer;
begin
writeln('Введите возраст');

read ( x );
if x >= 25 then

if x <= 40 then
writeln ('Подходит')
else writeln ('Не подходит')
else
writeln ('Не подходит');
end.
Вариант 1. Программа		program qq;	var x: integer;	begin  writeln('Введите возраст');  read ( x );  if x

Слайд 23Вариант 2. Алгоритм
начало
ввод x
'подходит'


да
нет
x >= 25 и
x

Вариант 2. Алгоритмначаловвод x'подходит'данетx >= 25  иx

Слайд 24
Вариант 2. Программа


сложное условие
program qq;
var x: integer;
begin
writeln('Введите возраст');

read ( x );
if (x >= 25)

and (x <= 40) then
writeln ('Подходит')
else writeln ('Не подходит')
end.
Вариант 2. Программасложное условие	program qq;	var x: integer;	begin  writeln('Введите возраст');  read ( x );  if

Слайд 25
Сложные условия
Сложное условие – это условие, состоящее из нескольких простых

условий (отношений), связанных с помощью логических операций:
not – НЕ (отрицание,

инверсия)
and – И (логическое умножение, конъюнкция, одновременное выполнение условий)
or – ИЛИ (логическое сложение, дизъюнкция, выполнение хотя бы одного из условий)
xor – исключающее ИЛИ (выполнение только одного из двух условий, но не обоих)
Простые условия (отношения)
< <= > >= = <>

равно

не равно

Сложные условияСложное условие – это условие, состоящее из нескольких простых условий (отношений), связанных с помощью логических операций:not

Слайд 26
Сложные условия
Порядок выполнения (приоритет = старшинство)
выражения в скобках
not
and
or, xor

>, >=, =,
Особенность – каждое из простых условий обязательно

заключать в скобки.
Пример

4 1 6 2 5 3

if not (a > b) or (c <> d) and (b <> a)
then begin
...
end

Сложные условияПорядок выполнения (приоритет = старшинство)выражения в скобкахnotandor, xor=, =, Особенность – каждое из простых условий обязательно

Слайд 27Истинно или ложно при a := 2; b := 3;

c := 4;
not (a > b)
(a < b) and (b

< c)
not (a >= b) or (c = b)
(a < c) or (b < c) and (b < a)
(a < b) xor not (b > c)
Для каких значений x истинны условия:
(x < 6) and (x < 10)
(x < 6) and (x > 10)
(x > 6) and (x < 10)
(x > 6) and (x > 10)
(x < 6) or (x < 10)
(x < 6) or (x > 10)
(x > 6) or (x < 10)
(x > 6) or (x > 10)


Сложные условия

True

True

FALSE

(-∞, 6)


(6, 10)

(10, ∞)

(-∞, 10)

(-∞, 6) ∪ (10,∞)

(-∞, ∞)

(6, ∞)

x < 6

x > 10

x < 10

x > 6

True

True

Истинно или ложно при a := 2; b := 3; c := 4;not (a > b)(a <

Слайд 28Оператор case позволяет сделать выбор между несколькими вариантами.
Оператор варианта состоит
из

выражения, называемого селектором,
и списка операторов, каждый из которых отмечен

константой того же типа, что и селектор.
Селектор должен относиться только к порядковому типу данных, но не к типу longint.
Селектор может быть переменной или выражением.
Список констант может задаваться как явным перечислением, так и интервалом или их объединением. Повторение констант не допускается.
Тип переключателя и типы всех констант должны быть совместимыми.

Оператор выбора case

Оператор case позволяет сделать выбор между несколькими вариантами.Оператор варианта состоитиз выражения, называемого селектором, и списка операторов, каждый

Слайд 29Оператор выбора case
Формат:
Case < выражение {селектор}> of

: < оператор 1>;
 . . .

< список констант K> : < оператор K>;
[else < оператор K+1> ]
end;
Оператор выбора case Формат:Case < выражение {селектор}> of   : < оператор 1>;	 .  . .

Слайд 30Оператор выбора case
Выполнение оператора case происходит следующим образом:
вычисляется значение

селектора;
полученный результат проверяется на принадлежность к тому или иному

списку констант;
если такой список найден, то дальнейшие проверки уже не производятся, а выполняется оператор, соответствующий выбранной ветви, после чего управление передается оператору, следующему за ключевым словом end, которое закрывает всю конструкцию case;
если подходящего списка констант нет, то выполняется оператор, стоящий за ключевым словом else; если else-ветви нет, то не выполняется ничего.
Оператор выбора case Выполнение оператора case происходит следующим образом:вычисляется значение селектора; полученный результат проверяется на принадлежность к

Слайд 31В операторе case по всем ветвям может выполняться только один

оператор!
При необходимости выполнения нескольких требуется использовать операторные скобки begin-end.

В операторе case по всем ветвям может выполняться только один оператор!При необходимости выполнения нескольких требуется использовать операторные

Слайд 32Оператор выбора case
Схема выполнения оператора:

Оператор выбора case Схема выполнения оператора:

Слайд 33Оператор выбора case
Примеры:
case Index mod 4 of
0 :

x:= y*y + 1;
1 : x:= y*y

– 2*y;
2, 3 : x:= 0
end;

case ch of
’a’,’b’,’c’ : ch := succ(ch);
’y’,’z’ : ch := pred(ch);
’f’,’g’ : {пустой вариант};
else ch := pred(pred(ch))
end;
Оператор выбора case Примеры:case Index mod 4 of	0 :   x:= y*y + 1;	1 :

Слайд 34Оператор выбора case
Примеры:
case symbol(* :char *) of

'a'..'z', 'A'..'Z' : writeln('Это латинская буква');
'а'..'я', 'А'..'Я' : writeln('Это

русская буква');
'0'..'9' : writeln('Это цифра');
' ',#10,#13,#26 : writeln('Это пробельный символ');
else writeln('Это служебный символ');
end;
Оператор выбора case Примеры:case symbol(* :char *) of   'a'..'z', 'A'..'Z' : writeln('Это латинская буква'); 'а'..'я',

Слайд 35
Оператор выбора
Задача: Ввести номер месяца и вывести количество

дней в этом месяце.


Решение: Число дней по месяцам:
28 дней – 2 (февраль)
30 дней – 4 (апрель), 6 (июнь), 9 (сентябрь), 11 (ноябрь)
31 день – 1 (январь), 3 (март), 5 (май), 7 (июль), 8 (август), 10 (октябрь), 12 (декабрь)
Особенность: Выбор не из двух, а из нескольких вариантов в зависимости от номера месяца.
Оператор выбораЗадача: Ввести номер месяца и вывести количество

Слайд 36Алгоритм
начало
конец

выбор
ни один вариант не подошел
ввод M

да
нет
M = 1?
D := 31;
нет
M

= 2?
D := 28;
да
нет
M = 12?
D := 31;
да
вывод D
ошибка



Алгоритмначалоконецвыборни один вариант не подошелввод MданетM = 1?D := 31;нетM = 2?D := 28;данетM = 12?D :=

Слайд 37
Программа
program qq;
var M, D: integer;
begin
writeln('Введите номер месяца:');

read ( M );
case M of
2:

begin D := 28; end;
4,6,9,11: begin D := 30; end;
1,3,5,7,8,10,12: D := 31;
else D := -1;
end;
if D > 0 then
writeln('В этом месяце ', D, ' дней.')
else
writeln('Неверный номер месяца');
end.

case M of
2: begin D := 28; end;
4,6,9,11: begin D := 30; end;
1,3,5,7,8,10,12: D := 31;
else D := -1;
end;

ни один вариант не подошел

Программаprogram qq;var M, D: integer;begin  writeln('Введите номер месяца:');  read ( M );  case M

Слайд 38
Оператор выбора
Особенности:
после case может быть имя переменной или арифметическое выражение

целого типа (integer)
или символьного типа (char)
case i+3 of


1: begin a := b; end;
2: begin a := c; end;
end;

var c: char;
...
case c of
'а': writeln('Антилопа');
'б': writeln('Барсук');
else writeln('Не знаю');
end;

Оператор выбораОсобенности:после case может быть имя переменной или арифметическое выражение целого типа (integer)  или символьного типа

Слайд 39
Оператор выбора
Особенности:
если нужно выполнить только один оператор, слова begin и

end можно не писать
нельзя ставить два одинаковых значения
case i+3 of


1: a := b;
1: a := c;
end;

case i+3 of
1: a := b;
2: a := c;
end;

Оператор выбораОсобенности:если нужно выполнить только один оператор, слова begin и end можно не писатьнельзя ставить два одинаковых

Слайд 40
Оператор выбора
Особенности:
значения, при которых выполняются одинаковые действия, можно группировать
case i

of
1: a :=

b;
2,4,6: a := c;
10..15: a := d;
20,21,25..30: a := e;
else writeln('Ошибка');
end;

перечисление

диапазон

смесь

Оператор выбораОсобенности:значения, при которых выполняются одинаковые действия, можно группироватьcase i of 1:

Слайд 41
Что неправильно?
case a of
2: begin a := b;

4: a := c;
end;
case a of
2: a :=

b
4: a := c
end;

;

case a of
2..5: a := b;
4: a := c;
end;

case a of
0..2: a := b;
6..3: a := c;
end;

3..6:

case a+c/2 of
2: a := b;
4: a := c;
end;

case a of
2: a := b; d := 0;
4: a := c;
end;

begin

end;


Что неправильно?case a of 2: begin a := b; 4: a := c;end;case a of 2: a

Слайд 42Иллюстрация if и case
В качестве примера, иллюстрирующего использование операторов

ветвления, приведем пример решения системы уравнений:

Иллюстрация if и case В качестве примера, иллюстрирующего использование операторов ветвления, приведем пример решения системы уравнений:

Слайд 43Иллюстрация if и case
if x=0 then y:= x;
if x=1

then y:= sqr(x);
if x=2 then y:= power(x,3);
Реализовать эту функцию

можно следующими способами:

Это так называемая реализация "в лоб". Здесь нет никаких хитростей и никаких попыток оптимизации:
даже если сработает первый вариант, второй и третий все равно будут проверены, невзирая на то, что результат уже получен.

Иллюстрация if и case if x=0 then y:= x;if x=1 then y:= sqr(x);if x=2 then y:= power(x,3);

Слайд 44Иллюстрация if и case
case x of
0: y:= x;


1: y:= sqr(x);
2: y:= power(x,3);
end;


Иллюстрация if и case case x of	 	0: y:= x; 	1: y:= sqr(x); 2: y:= power(x,3);end;

Слайд 452. Цикл типа счетчик

2. Цикл типа счетчик

Слайд 46Цикл – это последовательность операторов, которая может выполняться более одного

раза.
Для реализации циклических алгоритмов в языке Паскаль используются операторы

повторения:
оператор цикла с параметром (типа счетчик);
оператор цикла с предусловием;
оператор цикла с постусловием.
Если количество повторов известно заранее, используется оператор цикла с параметром (типа счетчик).
Если количество повторов неизвестно, а задано некоторое условие окончания или продолжения цикла применяются операторы цикла с предусловием или оператор цикла с постусловием.

Виды циклов

Цикл – это последовательность операторов, которая может выполняться более одного раза. Для реализации циклических алгоритмов в языке

Слайд 47Оператор For состоит из заголовка и тела цикла. Он может

быть представлен в двух форматах:
Цикл for
for := N1

to N2 do
<оператор>;

for <имя> := N1 downto N2 do
<оператор>;

Инкрементный цикл с параметром

Декрементный цикл с параметром

Здесь for … do – заголовок цикла; <имя> – это имя переменной – параметра цикла; N1 – ее начальное значение; N2 – ее конечное значение; <оператор> – тело цикла.
Тело цикла может быть простым или составным оператором.

Оператор For состоит из заголовка и тела цикла. Он может быть представлен в двух форматах:Цикл for for

Слайд 48Переменная цикла (счетчик), нижняя граница N1 (переменная, константа или выражение)

и верхняя граница N2 (переменная, константа или выражение) должны относиться

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

Цикл for

Переменная цикла (счетчик), нижняя граница N1 (переменная, константа или выражение) и верхняя граница N2 (переменная, константа или

Слайд 49Схема выполнения оператора:
Цикл for

Схема выполнения оператора:Цикл for

Слайд 50Цикл for-to работает следующим образом:
вычисляется значение верхней границы N2;
переменной

цикла присваивается значение нижней границы N1;
производится проверка того, что

переменная цикла не превосходит N2;
если это так, то выполняется <оператор>;
значение переменной цикла увеличивается на единицу;
пункты 3-5, составляющие одну итерацию цикла, выполняются до тех пор, пока переменная цикла не станет строго больше, чем N2; как только это произошло, выполнение цикла прекращается, а управление передается следующему за ним оператору.

Цикл for

Цикл for-to работает следующим образом:вычисляется значение верхней границы N2; переменной цикла присваивается значение нижней границы N1; производится

Слайд 51Параметр цикла, начальное и конечное значения должны быть одного и

того же порядкового типа (лучше всего – целого типа, недопустимо

- вещественного).
Начальное и конечное значения вычисляются лишь один раз – при входе в цикл, и, следовательно, должны быть определены до входа в цикл и не могут быть изменены в теле цикла.
Дополнительно (принудительно) изменять значение параметра в теле цикла не рекомендуется, поскольку контроль за правильностью исполнения такого цикла очень затруднен.
Не допускается изменение параметра цикла на величину, отличную от единицы.

Основные требования к оператору FOR

!

Параметр цикла, начальное и конечное значения должны быть одного и того же порядкового типа (лучше всего –

Слайд 52Примеры:
Цикл for
For i:=1 to 20 do writeln(Sqrt(i));
{выведет 20 результатов

извлечения
квадратного корня из i }
For ch:=’A’ to ’z’ do

writeln(ch);
{выведет латинские буквы }
For j:=14 downto 10 do writeln(j);
{выведет числа от 14 до 10}
Примеры:Цикл for For i:=1 to 20 do writeln(Sqrt(i));	{выведет 20 результатов извлечения	 	квадратного корня из i }For ch:=’A’

Слайд 53
Задача. Вывести на экран квадраты и кубы целых чисел от

1 до 8 (от a до b).
Особенность: одинаковые действия выполняются

8 раз.

Цикл for

Задача. Вывести на экран квадраты и кубы целых чисел от 1 до 8 (от a до b).Особенность:

Слайд 54
Алгоритм

начало
i, i2, i3
конец
нет
да
i

1;

i2 := i * i;
i3 := i2 * i;
задать начальное

значение переменной цикла

проверить, все ли сделали

вычисляем квадрат и куб

вывод результата

перейти к следующему i

Алгоритмначалоi, i2, i3конецнетдаi

Слайд 55
Алгоритм (с блоком «цикл»)

начало
i, i2, i3
конец

i2 := i * i;
i3

:= i2 * i;
i := 1,8
блок «цикл»
тело цикла

Алгоритм (с блоком «цикл»)началоi, i2, i3конецi2 := i * i;i3 := i2 * i;i := 1,8блок «цикл»тело

Слайд 56
Программа


program qq;
var i, i2, i3: integer;
begin


for i:=1 to

8 do begin
i2 := i*i;
i3 :=

i2*i;
writeln(i:4, i2:4, i3:4);
end;
end.

переменная
цикла

начальное значение

конечное значение

Программаprogram qq;var i, i2, i3: integer;begin  for i:=1 to 8 do begin  i2 := i*i;

Слайд 57
Цикл с уменьшением переменной
Задача. Вывести на экран квадраты и кубы

целых чисел от 8 до 1 (в обратном порядке).
Особенность: переменная

цикла должна уменьшаться.
Решение:

for i:=8 1 do begin
i2 := i*i;
i3 := i2*i;
writeln(i:4, i2:4, i3:4);
end;

downto

Цикл с уменьшением переменнойЗадача. Вывести на экран квадраты и кубы целых чисел от 8 до 1 (в

Слайд 58for i:=1 to 9 do begin
if

??? then begin
i2 :=

i*i;
i3 := i2*i;
writeln(i:4, i2:4, i3:4);
end;
end;


Как изменить шаг?

Задача. Вывести на экран квадраты и кубы нечётных целых чисел от 1 до 9.
Особенность: переменная цикла должна увеличиваться на 2.
Проблема: в Паскале шаг может быть 1 или -1.
Решение:

i mod 2 = 1

i2 := i*i;
i3 := i2*i;
writeln(i:4, i2:4, i3:4);

выполняется только для нечетных i

for i:=1 to 9 do begin  if   ???   then begin

Слайд 59
Как изменить шаг? – II
Идея: Надо вывести всего 5 чисел,

переменная k изменяется от 1 до 5. Начальное значение i

равно 1, с каждым шагом цикла i увеличивается на 2.
Решение:

???
for k:=1 to 5 do begin
i2 := i*i;
i3 := i2*i;
writeln(i:4, i2:4, i3:4);
???
end;

i := i + 2;

i := 1;

Как изменить шаг? – IIИдея: Надо вывести всего 5 чисел, переменная k изменяется от 1 до 5.

Слайд 60
Как изменить шаг? – III
Идея: Надо вывести всего 5 чисел,

переменная k изменяется от 1 до 5. Зная k, надо

рассчитать i.


Решение:

i = 2k-1

for k:=1 to 5 do begin
???
i2 := i*i;
i3 := i2*i;
writeln(i:4, i2:4, i3:4);
end;

i := 2*k – 1;

Как изменить шаг? – IIIИдея: Надо вывести всего 5 чисел, переменная k изменяется от 1 до 5.

Слайд 61Program NFactorial;
var Factorial, Argument: Integer;
i : Integer;
Begin
Write(’ введите

аргумент факториала ’);
Readln(Argument) ;
Factorial := 1;
For

i:=2 to Argument do
Factorial := i*Factorial;
Writeln(Argument,’! = ’, Factorial)
End.


Пример 1

Вычислить факториал числа n. По определению факториалом натурального числа n (обозначается n!) называется произведение чисел от 1 до n:

Program NFactorial;var Factorial, Argument: Integer; 	i : Integer;Begin Write(’ введите аргумент факториала ’); Readln(Argument) ; Factorial :=

Слайд 62Рrogram Tabulation;
var MinBound, MaxBound, Step, x, y, Coef :Real;
i,

n : Integer;
Begin
Write(’Введите пределы табулирования ’);
Readln(MinBound, MaxBound);

Write(’Введите шаг табулирования ’);
Readln(Step);
n := Round((MaxBound – MinBound)/Step);
x := MinBound;
for i:=0 to n do begin
y := exp(–Sqr(x)/2);
writeln(’ x = ’, x, ’ y = ’, y);
x := x + Step
end;
End.


Пример 2

Табулирование (таблица значений) функции y=exp(-x2/2).

Рrogram Tabulation;var  MinBound, MaxBound, Step, x, y, Coef :Real;	i, n : Integer;Begin Write(’Введите пределы табулирования ’);

Слайд 63PROGRAM SUM_N; { расчет конечной суммы }
var a, S, i, N:

integer;
Begin
write('Введите число членов суммы N=');

readln(N);
S:= 0;
For i:=1 to N do begin { цикл суммирования}
a:= Sqr(2*i-1);
S:= S+a
end;
Writeln('Конечная сумма S=', S:10);
End.


Пример 3

Вычислить сумму N первых членов ряда 12+32+52+...+ (2*N-1)2.

PROGRAM SUM_N;		{ расчет конечной суммы }var a, S, i, N: integer;Begin   write('Введите число членов суммы

Слайд 64Циклы с условием

Циклы с условием

Слайд 65
Цикл с предусловием
while do begin
{тело цикла}


end;
Формат:
Схема выполнения оператора:
Последовательность действий при выполнении цикла:
Проверяется истинно

ли <условие>.
Если это так, то выполняется операторы, заданные в теле цикла.
Пункты 1 и 2 выполняются до тех пор, пока <условие> не станет ложным.
Цикл с предусловием	while do begin  {тело цикла}    end;Формат:Схема выполнения оператора:Последовательность действий при выполнении

Слайд 66
Цикл с предусловием
Особенности:
условие окончания цикла может быть выражено переменной, константой

или выражением, имеющим логический тип.
можно использовать сложные условия:
если в

теле цикла только один оператор, слова begin и end можно не писать:

while (a {тело цикла}
end;

while a < b do
a := a + 1;

Цикл с предусловиемОсобенности:условие окончания цикла может быть выражено переменной, константой или выражением, имеющим логический тип. можно использовать

Слайд 67
Особенности:
условие пересчитывается каждый раз при входе в цикл
если условие на

входе в цикл ложно, цикл не выполняется ни разу
если условие

никогда не станет ложным, программа зацикливается

a := 4; b := 6;
while a > b do
a := a – b;

a := 4; b := 6;
while a < b do
d := a + b;

Цикл с предусловием

Особенности:условие пересчитывается каждый раз при входе в циклесли условие на входе в цикл ложно, цикл не выполняется

Слайд 68
Цикл с предусловием

Цикл с предусловием

Слайд 69
Цикл с неизвестным числом шагов
Пример: Определить количество цифр числа.
Задача: Ввести

целое число (

Отсекаем последовательно последнюю цифру, увеличиваем счетчик.




Проблема: Неизвестно, сколько шагов надо сделать.
Решение: Надо остановиться, когда n = 0, т.е. надо делать «пока n <> 0».
Цикл с неизвестным числом шаговПример: Определить количество цифр числа.Задача: Ввести целое число (

Слайд 70

Алгоритм

начало
count
конец
нет
да
n 0?

count := 0;

count := count + 1;

n := n div 10;
обнулить счетчик цифр
ввод n

выполнять «пока n

<> 0»
Алгоритмначалоcountконецнетдаn 0?count := 0;count := count + 1;  n := n div 10;обнулить счетчик цифрввод nвыполнять

Слайд 71Программа
program qq;
var n, count: integer;
begin
writeln('Введите целое число');
read(n);
count

:= 0;
while n 0 do begin
count

:= count + 1;
n := n div 10;
end;
writeln('В числе ', n, ' нашли ',
count, ' цифр');
end.

while n <> 0 do begin
count := count + 1;
n := n div 10;
end;

, n1: integer;

n1 := n;

n1,

выполнять «пока n <> 0»

значение n потеряно: печатается 0!

Программаprogram qq;var n, count: integer;begin writeln('Введите целое число'); read(n); count := 0; while n 0 do begin

Слайд 72
Замена for на while и наоборот
for i:=1 to 10 do

begin
{тело цикла}
end;
i := 1;
while i

{тело цикла}
i := i + 1;
end;

for i:=a downto b do
begin
{тело цикла}
end;

i := a;
while i >= b do begin
{тело цикла}
i := i - 1;
end;

Замена while на for возможна только тогда, когда можно заранее рассчитать число шагов цикла.

Замена цикла for на while возможна всегда.

Замена for на while и наоборотfor i:=1 to 10 do begin {тело цикла}end;i := 1;while i =

Слайд 73
Цикл с постусловием
Repeat
;

. . .

Until ;
Оператор используется, когда

количество повторений заранее неизвестно, а задано некоторое условие выхода из цикла.
Формат:

Цикл с постусловием – это цикл, в котором проверка условия выполняется в конце цикла.

Цикл с постусловиемRepeat   ;   . . .   Until ;Оператор используется, когда

Слайд 74
Цикл с постусловием
Схема выполнения оператора:
Последовательность действий при выполнении цикла:
Выполняются

1>, … .
Проверяется . Если оно ложно, то

выполняется возврат к метке Repeat, т.е. к выполнению операторов тела цикла.
Пункты 1 и 2 выполняются до тех пор, пока <условие> не станет истинным.
Цикл с постусловиемСхема выполнения оператора:Последовательность действий при выполнении цикла:Выполняются , … . Проверяется . Если оно ложно,

Слайд 76
Пример 1: цикл с постусловием
Задача: Ввести целое положительное число (

и определить число цифр в нем.
Проблема: Как не дать

ввести отрицательное число или ноль?
Решение: Если вводится неверное число, вернуться назад к вводу данных (цикл!).
Особенность: Один раз тело цикла надо сделать в любом случае, значит, проверку условия цикла надо делать в конце цикла (цикл с постусловием).
Пример 1: цикл с постусловиемЗадача: Ввести целое положительное число (

Слайд 77
Цикл с постусловием: алгоритм

начало
конец
да
нет
n > 0?


тело цикла
условие ВЫХОДА
блок «типовой

процесс»
ввод n
основной алгоритм

Цикл с постусловием: алгоритм началоконецданетn > 0?тело циклаусловие ВЫХОДАблок «типовой процесс»ввод nосновной  алгоритм

Слайд 78
Программа
program qq;
var n: integer;
begin
repeat
writeln('Введите положительное

число');
read(n);
until n > 0;

... { основной алгоритм }
end.

repeat
writeln('Введите положительное число');
read(n);
until n > 0;

until n > 0;

условие ВЫХОДА

Особенности:
тело цикла всегда выполняется хотя бы один раз
после слова until ("до тех пор, пока не…") ставится условие ВЫХОДА из цикла

Программаprogram qq;var n: integer;begin  repeat   writeln('Введите положительное число');   read(n);  until n

Слайд 79
Пример 2
Решение:
вводим начальное a и конечное b значение переменной х;
вводим

шаг h, с которым будет изменяться значение переменной.
Задача: Табулирование (таблица

значений) функции

!

repeat
y:=x*sin(x);
writeln('x = ',x:5, ' y= ',y:5);
x:=x+h;
until x>b;

Пример 2Решение:вводим начальное a и конечное b значение переменной х;вводим шаг h, с которым будет изменяться значение

Слайд 80Пример 2
Program pr2;
var a, b, h, x, y: real;
begin
writeln('Введите

a,b,h:');
read(a,b,h);
x:=a;
repeat
y:=x*sin(x);
writeln('x = ',x:5, ' y= ',y:5);
x:=x+h; {К "старому" значению х


добавляется h и результат
пересылается снова в х}
until x>b;
End.

Слайд 813. Операторы ограничения и прерывания цикла

3. Операторы ограничения и прерывания цикла

Слайд 82Существует возможность прервать выполнение цикла (или одной его итерации), не

дождавшись конца его (или ее) работы.
Оператор break прерывает работу

всего цикла и передает управление на следующий за ним оператор, при этом не контролируется условие выхода из цикла.

Формат:

Break;

Оператор break

При прерывании работы циклов for-to и for-downto с помощью процедуры break переменная цикла (счетчик) сохраняет свое текущее значение, не "портится".

Существует возможность прервать выполнение цикла (или одной его итерации), не дождавшись конца его (или ее) работы. Оператор

Слайд 83Действие оператора Continue заключается в передаче управления на начало цикла,

при этом контролируется условие выхода из цикла, т.е. прерывается работа

текущей итерации цикла и передается управление:
следующей итерации (цикл repeat-until)
или на предшествующую ей проверку (циклы for-to, for-downto, while).

Формат:

Continue;

Оператор continue

Действие оператора Continue заключается в передаче управления на начало цикла, при этом контролируется условие выхода из цикла,

Слайд 84Пример использования операторов для блокировки несанкционированного доступа в программу
For i:=

1 to 3 do begin


Write( 'Введите ПАРОЛЬ:' );
Readln(S); {S и Parol - переменные одного типа}
If S=Parol Then Break { прерывание цикла }
else If i<>3 Then Continue;
{ ограничение цикла }
Writeln( 'Доступ к программе ЗАПРЕЩЕН' );
Writeln( 'Нажмите Enter' );
Readln;
Halt { прерывание программы }
end;

Пример

Пример использования операторов для блокировки несанкционированного доступа в программуFor i:= 1 to 3  do  begin

Слайд 85Возвращаясь к сказанному об операторе goto, необходимо отметить, что при

всей его нежелательности все-таки существует ситуация, когда предпочтительно использовать именно

этот оператор - как с точки зрения структурированности текста программы, так и с точки зрения логики ее построения, и уж тем более с точки зрения уменьшения трудозатрат программиста.
Эта ситуация - необходимость передачи управления изнутри нескольких вложенных циклов на самый верхний уровень.

Оператор goto

Возвращаясь к сказанному об операторе goto, необходимо отметить, что при всей его нежелательности все-таки существует ситуация, когда

Слайд 86Дело в том, что процедуры break и continue прерывают только

один цикл - тот, в теле которого они содержатся.
Поэтому

в упомянутой выше ситуации пришлось бы заметно усложнить текст программы, вводя много дополнительных прерываний.
А один оператор goto способен заменить их все.


Оператор goto

Дело в том, что процедуры break и continue прерывают только один цикл - тот, в теле которого

Слайд 874. Массивы

4. Массивы

Слайд 88Массив – это последовательность однотипных данных, объединенная общим именем, элементы

(компоненты) которой отличаются (идентифицируются) индексами.
Индекс элемента указывает место (номер) элемента

в массиве.
Количество элементов массива фиксировано и определено в его описании. К элементам массива можно обращаться только по их номеру (индексу). Все компоненты массива являются одинаково доступными. Значения элементам массива присваиваются также как и другим переменным с учетом типа массива.
Массив – это последовательность однотипных данных, объединенная общим именем, элементы (компоненты) которой отличаются (идентифицируются) индексами.Индекс элемента указывает

Слайд 89
Массивы
Массив – это группа однотипных элементов, имеющих общее имя и

расположенных в памяти рядом.
Особенности:
все элементы имеют один тип
весь массив имеет

одно имя
все элементы расположены в памяти рядом
Примеры:
список студентов в группе
квартиры в доме
школы в городе
данные о температуре воздуха за год
МассивыМассив – это группа однотипных элементов, имеющих общее имя и расположенных в памяти рядом.Особенности:все элементы имеют один

Слайд 90Объявление массива
Для того чтобы задать массив, необходимо в разделе

описания переменных (var) указать его размеры и тип его компонент.
Общий

вид описания (одномерного) массива:

array [<тип_индексов>] of <тип_компонент>;

Чаще всего это трактуется так:

array [<левая_граница>..<правая_граница>]
of <тип_компонент>;

Объявление массива Для того чтобы задать массив, необходимо в разделе описания переменных (var) указать его размеры и

Слайд 91
Массивы

A
массив
3
15
НОМЕР элемента массива
(ИНДЕКС)
A[1]
A[2]
A[3]
A[4]
A[5]
ЗНАЧЕНИЕ элемента массива
A[2]
НОМЕР (ИНДЕКС) элемента массива: 2
ЗНАЧЕНИЕ элемента

массива: 10


МассивыAмассив315НОМЕР  элемента массива(ИНДЕКС)A[1]A[2]A[3]A[4]A[5]ЗНАЧЕНИЕ элемента массиваA[2]НОМЕР (ИНДЕКС)  элемента массива: 2ЗНАЧЕНИЕ  элемента массива: 10

Слайд 92

Объявление массивов
Зачем объявлять?
определить имя массива
определить тип массива
определить число элементов
выделить

место в памяти
Массив целых чисел:


Размер через константу:
имя
начальный индекс
конечный

индекс

тип
элементов


var A: array[1.. ] of integer;

const N=5;

N





var A : array[ 1 .. 5 ] of integer ;

Объявление массивовЗачем объявлять? определить имя массиваопределить тип массиваопределить число элементоввыделить место в памятиМассив целых чисел: Размер через

Слайд 93Объявление массивов
Массивы других типов:
Другой диапазон индексов:
Индексы других типов:
var

X, Y: array [1..10] of real;
C: array [1..20]

of char;

var Q: array [0..9] of real;
C: array [-5..13] of char;

var A: array ['A'..'Z'] of real;
B: array [False..True] of integer;
...
A['C'] := 3.14259*A['B'];
B[False] := B[False] + 1;

Объявление массивовМассивы других типов: Другой диапазон индексов: Индексы других типов:var X, Y: array [1..10] of real;

Слайд 94Нумерация
Нумеровать компоненты массива можно не только целыми числами.
Любой

порядковый тип данных (перечислимый, интервальный, символьный, логический, а также произвольный

тип, созданный на их основе) имеет право выступать в роли нумератора.
Таким образом, допустимы следующие описания массивов:

type charrr = 'a','c'..'z';
(- отсутствует символ "b")
var a1: array[charrr] of integer;
- 25 компонент
a2: array [char] of integer;
- 256 целых компонент
a3: array [shortint] of real;
- 256 вещественных компонент

Нумерация Нумеровать компоненты массива можно не только целыми числами. Любой порядковый тип данных (перечислимый, интервальный, символьный, логический,

Слайд 95Тип компонент
Тип компонент массива может быть любым:
var a4: array[10..20]

of real;
- массив из компонент простого типа
a5: array[0..100] of

record1;
- массив из записей
a6: array[-10..10] of ^string;
- массив из указателей на строки
a7: array[-1..1] of file;
- массив из имен файловых переменных
a8: array[1..100] of array[1..100] of char;
- двумерный массив (массив векторов)
Тип компонентТип компонент массива может быть любым: var a4: array[10..20] of real; 	- массив из компонент простого

Слайд 96Что неправильно?
var a: array[10..1] of integer;
...
A[5] := 4.5;
[1..10]
var a:

array ['z'..'a'] of integer;
...
A['B'] := 15;
A['b']
['a'..'z']
var a: array [0..9]

of integer;
...
A[10] := 'X';
Что неправильно?var a: array[10..1] of integer;... A[5] := 4.5;[1..10]var a: array ['z'..'a'] of integer;... A['B'] := 15;A['b']['a'..'z']var

Слайд 97Массивы
Объявление:
Ввод с клавиатуры:
Поэлементные операции:
Вывод на экран:
const N = 5;
var

a: array[1..N] of integer;
i: integer;
for i:=1 to N

do begin
write('a[', i, ']=');
read ( a[i] );
end;

a[1] =
a[2] =
a[3] =
a[4] =
a[5] =

5
12
34
56
13

for i:=1 to N do a[i]:=a[i]*2;

writeln('Массив A:');
for i:=1 to N do write(a[i]:4);

Массив A:
10 24 68 112 26

МассивыОбъявление:Ввод с клавиатуры:Поэлементные операции:Вывод на экран:const N = 5; var a: array[1..N] of integer;  i: integer;for

Слайд 98Многомерные массивы
Для краткости и удобства многомерные массивы можно описывать и

более простым способом:
var a9: array[1..10,1..20] of real;
- двумерный

массив 10 х 20
a10: array[boolean, -1..1, char, -10..10]
of word;
- четырехмерный массив 2 х 3 х 256 х 21

Общее ограничение на размер массива - не более 65 520 байт - сохраняется и для многомерных массивов.
Количество компонент многомерного массива вычисляется как произведение всех его "измерений".
Таким образом, в массиве а9 содержится 200 компонент, а в массиве а10 - 32 256 компонент.

Многомерные массивыДля краткости и удобства многомерные массивы можно описывать и более простым способом: var a9: array[1..10,1..20] of

Слайд 99Описание переменных размерностей
Если ваша программа должна обрабатывать матрицы переменных

размерностей (N по горизонтали и М по вертикали), то вы

столкнетесь с проблемой изначального задания массива, ведь в разделе var не допускается использование переменных.
Следовательно, самый логичный, казалось бы, вариант

var m, n: integer;
a: array[1..m, 1..n] of real;

придется отбросить.



Описание переменных размерностей Если ваша программа должна обрабатывать матрицы переменных размерностей (N по горизонтали и М по

Слайд 100Описание переменных размерностей
Если на этапе написания программы ничего нельзя

сказать о предполагаемом размере входных данных, то не остается ничего

другого, как воспользоваться техникой динамически распределяемой памяти.
Описание переменных размерностей Если на этапе написания программы ничего нельзя сказать о предполагаемом размере входных данных, то

Слайд 101Описание переменных размерностей
Предположим, однако, что известны максимальные границы, в

которые могут попасть индексы обрабатываемого массива. Скажем, N и М

заведомо не могут превосходить 100.
Тогда можно выделить место под наибольший возможный массив, а реально работать только с малой его частью:

const nnn=100;
var a: array[1..nnn,1..nnn] of real;
m, n: integer;

!

Описание переменных размерностей Предположим, однако, что известны максимальные границы, в которые могут попасть индексы обрабатываемого массива. Скажем,

Слайд 102Обращение к компонентам массива
Массивы относятся к структурам прямого доступа.

Это означает, что возможно напрямую (не перебирая предварительно все предшествующие

компоненты) обратиться к любой интересующей нас компоненте массива.
Доступ к компонентам линейного массива осуществляется так:

<имя_массива>[<индекс_компоненты>]

а многомерного – так:

<имя_массива>[ <индекс 1>, ..., <индекс K>]

Обращение к компонентам массива Массивы относятся к структурам прямого доступа. Это означает, что возможно напрямую (не перебирая

Слайд 103Обращение к компонентам массива
Правила употребления индексов при обращении к

компонентам массива:
Индекс компоненты может быть константой, переменной или выражением,

куда входят операции и вызовы функций.
Тип каждого индекса должен быть совместим с типом, объявленным в описании массива именно для соответствующего "измерения"; менять индексы местами нельзя.
Количество индексов не должно превышать количество "измерений" массива. Попытка обратиться к линейному массиву как к многомерному обязательно вызовет ошибку. А вот обратная ситуация вполне возможна: например, если вы описали N-мерный массив, то его можно воспринимать как линейный массив, состоящий из (N-1)-мерных массивов.
Обращение к компонентам массива Правила употребления индексов при обращении к компонентам массива: Индекс компоненты может быть константой,

Слайд 104Описание переменных размерностей
Примеры использования компонент массива:
a1[1, 3]:= 0;
a1[i,

2]:= a1[i, 2]-1;
a2['z']:= a2['z']+1;
a3[-10]:= 2.5;
a3[i+j]:= a9[i, j];
a10[x>0, sgn(x), '!', abs(k*5)]:=

0;
Описание переменных размерностей Примеры использования компонент массива: a1[1, 3]:= 0;a1[i, 2]:= a1[i, 2]-1;a2['z']:= a2['z']+1;a3[-10]:= 2.5;a3[i+j]:= a9[i, j];a10[x>0,

Слайд 105Задание массива константой
Чтобы не вводить массивы вручную во время

отладки программы, можно воспользоваться более простым способом, когда входные данные

задаются прямо в тексте программы при помощи типизированных констант.

Если массив линейный (вектор), то начальные значения для компонент этого вектора задаются через запятую, а сам вектор заключается в круглые скобки.
Задание массива константой Чтобы не вводить массивы вручную во время отладки программы, можно воспользоваться более простым способом,

Слайд 106Задание массива константой
Многомерный массив также можно рассматривать как линейный,

предполагая, что его компонентами служат другие массивы. Т.о., для системы

вложенных векторов действует то же правило задания типизированной константы: каждый вектор ограничивается снаружи круглыми скобками.

Исключение составляют только массивы, компонентами которых являются величины типа char. Такие массивы можно задавать проще: строкой символов.
Задание массива константой Многомерный массив также можно рассматривать как линейный, предполагая, что его компонентами служат другие массивы.

Слайд 107Задание массива константой
Примеры задания массивов типизированными константами:
type mass

= array[1..3, 1..2] of byte;
const a: array[-1..1] of byte

= (0,0,0);
{линейный}
b: mass = ((1, 2),(3, 4),(5, 6));
{двумерный}
s: array[0..9] of char = '0123456789';
Задание массива константой Примеры задания массивов типизированными константами: type mass = array[1..3, 1..2] of byte; const a:

Слайд 1085. Решение некоторых типовых задач

5. Решение некоторых типовых задач

Слайд 109Постановка задачи
Пусть A = {a1, a2, ...} – последовательность однотипных

элементов и b – некоторый элемент, обладающий свойством P. Найти

место элемента b в последовательности А.

Поиск элемента в массиве

Постановка задачиПусть A = {a1, a2, ...} – последовательность однотипных элементов и b – некоторый элемент, обладающий

Слайд 110Постановка задачи
Поскольку представление последовательности в памяти может быть осуществлено в

виде массива, задачи могут быть уточнены как одна из следующих

задач поиска элемента в массиве A:
найти максимальный (минимальный) элемент массива;
найти заданный элемент массива;
найти k–ый по величине элемент массива.

Наиболее простые и часто оптимальные алгоритмы основаны на последовательном просмотре массива A с проверкой свойства P на каждом элементе.

Постановка задачиПоскольку представление последовательности в памяти может быть осуществлено в виде массива, задачи могут быть уточнены как

Слайд 111Максимальный элемент
Задача: найти в массиве максимальный элемент.
Алгоритм:
Считаем, что первый элемент

максимальный
Сравниваем его с остальными элементами массива
Если в массиве есть элемент,

больший первого, запоминаем его

Псевдокод:

{ считаем, что первый элемент – максимальный }
for i:=2 to N do
if a[i] > { максимального } then
{ запомнить новый максимальный элемент a[i] }

Максимальный элементЗадача: найти в массиве максимальный элемент.Алгоритм:Считаем, что первый элемент максимальныйСравниваем его с остальными элементами массиваЕсли в

Слайд 112Максимальный элемент
max := a[1]; { считаем, что первый – максимальный

}
iMax := 1;
for i:=2 to N do {

проверяем все остальные }
if a[i] > max then { нашли новый максимальный }
begin
max := a[i]; { запомнить a[i] }
iMax := i; { запомнить i }
end;

Дополнение: как найти номер максимального элемента?

По номеру элемента iMax всегда можно найти его значение a[iMax]. Поэтому везде меняем max на a[iMax] и убираем переменную max.

a[iMax]

Максимальный элементmax := a[1]; { считаем, что первый – максимальный }iMax := 1;for i:=2 to N do

Слайд 113program qq;
const N = 5;
var a: array [1..N] of integer;

i, iMax: integer;
begin
writeln('Исходный массив:');
for i:=1 to N

do begin
a[i] := random(100) + 50;
write(a[i]:4);
end;
iMax := 1; { считаем, что первый – максимальный }
for i:=2 to N do { проверяем все остальные }
if a[i] > a[iMax] then { новый максимальный }
iMax := i; { запомнить i }
writeln; {перейти на новую строку}
writeln('Максимальный элемент a[', iMax, ']=', a[iMax]);
end.

for i:=1 to N do begin
a[i] := random(100) + 50;
write(a[i]:4);
end;

iMax := 1; { считаем, что первый – максимальный }
for i:=2 to N do { проверяем все остальные }
if a[i] > a[iMax] then { новый максимальный }
iMax := i; { запомнить i }

случайные числа в интервале [50,150)

поиск максимального

Максимальный элемент

program qq;const N = 5;var a: array [1..N] of integer;  i, iMax: integer;begin writeln('Исходный массив:'); for

Слайд 114Поиск в массиве
Задача – найти в массиве элемент, равный X,

или установить, что его нет.
Решение: для произвольного массива: линейный

поиск (перебор)
недостаток: низкая скорость
Поиск в массивеЗадача – найти в массиве элемент, равный X, или установить, что его нет. Решение: для

Слайд 115Линейный поиск
nX := 0;
for i:=1 to N do
if A[i]

= X then begin
nX := i;

break; {выход из цикла}
end;

nX := 0; { пока не нашли ...}



if nX < 1 then writeln('Не нашли...')
else writeln('A[', nX, ']=', X);

nX – номер нужного элемента в массиве

Улучшение: после того, как нашли X, выходим из цикла.

for i:=1 to N do { цикл по всем элементам }
if A[i] = X then { если нашли, то ... }
nX := i; { ... запомнили номер}

nX := 0; i := 1;
while i <= N do begin
if A[i] = X then begin
nX := i; i := N;
end;
i := i + 1;
end;

break;

i := N;

Линейный поискnX := 0;for i:=1 to N do if A[i] = X then begin  nX :=

Слайд 116Program Search_in_Array;
Label 1;
Const n = 100;

Var A : Array[1..n] of Real;
b : Real;

Flag : Boolean; i : Integer;
Begin
Writeln(’Введите массив’); {Блок ввода массива}
For i:=1 to n do Read (A[i]);
Writeln(’Введите элемент для поиска’);
Read (b);
Flag := true;
For i:=1 to n do
If A[i] = b then begin { прерывание цикла }
Flag := false; goto 1 end;
1: If Flag then Writeln(’Элемента ’, b,
’ в массиве нет’)
else Writeln(’Элемент ’, b, ’ стоит на ’,
i, ’–м месте’);
End.

Поиск заданного элемента в массиве

Program Search_in_Array; Label  1; Const  n = 100; Var  A : Array[1..n] of Real;

Слайд 117Реверс массива
Задача: переставить элементы массива в обратном порядке.
Алгоритм:
поменять местами A[1]

и A[N], A[2] и A[N-1], …
Псевдокод:



for i:=1 to N do


{ поменять местами A[i] и A[N+1-i] }

сумма индексов N+1

N div 2

do



Реверс массиваЗадача: переставить элементы массива в обратном порядке.Алгоритм:поменять местами A[1] и A[N], A[2] и A[N-1], …Псевдокод:for i:=1

Слайд 118Как переставить элементы?
2
3
1
Задача: поменять местами содержимое двух чашек.
Задача: поменять местами

содержимое двух ячеек памяти.
4
6
?
4
6
4
x
y
c
c := x;
x := y;
y := c;
x

:= y;
y := x;


3

2

1

Как переставить элементы?231Задача: поменять местами содержимое двух чашек.Задача: поменять местами содержимое двух ячеек памяти.46?464xycc := x;x :=

Слайд 119Программа
program qq;
const N = 10;
var A: array[1..N] of integer;

i, c: integer;
begin
{ заполнить массив }
{ вывести исходный

массив }



{ вывести полученный массив }
end.

for i:=1 to N div 2 do begin
c:=A[i]; A[i]:=A[N+1-i]; A[N+1-i]:=c;
end;

Программаprogram qq;const N = 10;var A: array[1..N] of integer;  i, c: integer;begin { заполнить массив }

Слайд 120Циклический сдвиг
Задача: сдвинуть элементы массива влево на 1 ячейку, первый

элемент становится на место последнего.
Алгоритм:
A[1]:=A[2]; A[2]:=A[3];… A[N-1]:=A[N];
Цикл:

for i:=1 to N-1

do
A[i]:=A[i+1];
Циклический сдвигЗадача: сдвинуть элементы массива влево на 1 ячейку, первый элемент становится на место последнего.Алгоритм:A[1]:=A[2]; A[2]:=A[3];… A[N-1]:=A[N];Цикл:for

Слайд 121Программа
program qq;
const N = 10;
var A: array[1..N] of integer;

i, c: integer;
begin
{ заполнить массив }
{ вывести исходный

массив }



{ вывести полученный массив }
end.

c := A[1];
for i:=1 to N-1 do A[i]:=A[i+1];
A[N] := c;

Программаprogram qq;const N = 10;var A: array[1..N] of integer;  i, c: integer;begin { заполнить массив }

Слайд 122Способы перебора элементов массивов

Способы перебора элементов массивов

Слайд 123Часто при работе с массивами задача ставится так, что требуется

все элементы или их часть обработать одинаково. Для такой обработки

организуется перебор элементов.
Схему перебора элементов массива можно охарактеризовать:
направлением перебора;
количеством одновременно обрабатываемых элементов;
характером изменения индекса.
По направлению перебора различают схемы:
от первого элемента к последнему (от начала массива к концу);
от последнего элемента к первому (от конца к началу);
от обоих концов к середине.
Часто при работе с массивами задача ставится так, что требуется все элементы или их часть обработать одинаково.

Слайд 124В массиве одновременно можно обрабатывать один, два, три и т.д.

элемента.
Часто в качестве параметра цикла используется индекс массива.
Обратите внимание также

на то обстоятельство, что после изменения индекса его необходимо сразу же проверить на попадание в заданный диапазон, иначе возможны ошибки.
В массиве одновременно можно обрабатывать один, два, три и т.д. элемента.Часто в качестве параметра цикла используется индекс

Слайд 125В правильно построенной схеме обязательно должны присутствовать:
блок установки начальных значений

индексов массива,
блок проверки индекса (индекс не должен выходить за границы

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

Если будет нарушено хотя бы одно из перечисленных условий, то в процессе выполнения программы возникнут ошибки.

Общие правила организации перебора

В правильно построенной схеме обязательно должны присутствовать:блок установки начальных значений индексов массива,блок проверки индекса (индекс не должен

Слайд 126Перебрать элементы массива по одному, двигаясь от начала массива к

концу.
Случай 1
Здесь индекс начального элемента 1, индекс последнего обрабатываемого элемента

n, шаг перебора 1. Конечное значение (кз) параметра цикла при условии проверки окончания с помощью сравнения <= может быть вычислено по формуле:
(конечное значение - начальное значение + 1)/шаг = n.

Отсюда: (кз-1+1)/1=n или кз=n.
Перебрать элементы массива по одному, двигаясь от начала массива к концу.Случай 1Здесь индекс начального элемента 1, индекс

Слайд 127Случай 1
Схема перебора может быть представлена в виде:
for i:=1 to

n do
{ обработка a[i] }
или:
i:=1;
while i

{ обработка a[i] }
i:=i+1
end;
Случай 1Схема перебора может быть представлена в виде:for i:=1 to n do { обработка a[i] }или:i:=1;while i

Слайд 128Случай 1
Если условие окончания проверяется с помощью сравнения

конечное значение вычисляется так:
(конечное значение - начальное значение)/шаг=n.
Отсюда: (кз -

1)/1=n или кз=n+1.

Схема перебора может быть представлена в виде:

i:=1;
while i { обработка a[i] }
i:=i+1
end;

Случай 1Если условие окончания проверяется с помощью сравнения

Слайд 129Перебрать элементы массива по одному, двигаясь от конца массива к

началу.
Случай 2
for i:=n downto 1 do
{ обработка a[i] }
или:
i:=n;
while

i>=1 do begin
{ обработка a[i] }
i:=i-1
end;
Перебрать элементы массива по одному, двигаясь от конца массива к началу.Случай 2for i:=n downto 1 do {

Слайд 130Обработать массив по одному элементу, двигаясь с обоих концов к

середине массива.
Случай 3
i:=1; {установка нижней границы}
j:=n; {установка верхней границы}
while i

do begin
{ обработать элемент a[i] }
i:=i+1;
{ обработать элемент a[j] }
j:=j–1;
End;
Обработать массив по одному элементу, двигаясь с обоих концов к середине массива.Случай 3i:=1; {установка нижней границы}j:=n; {установка

Слайд 131Случай 4
Вариант 1. Здесь индекс начинает изменяться с четного числа,

величина шага, равная двум, обеспечивает сохранение четности индекса.
i:=2;
while i

begin
{ обработка a[i] }
i:=i+2
end;

Вариант 2. Здесь внутрь цикла перебора вложен оператор, проверяющий четность индекса (работает медленнее).

for i:=1 to n do
if i mod 2=0 then
{ обработка a[i] };

Перебрать элементы массива с четными индексами, двигаясь от начала к концу.

Случай 4Вариант 1. Здесь индекс начинает изменяться с четного числа, величина шага, равная двум, обеспечивает сохранение четности

Слайд 132Случай 5
Вариант 1. Здесь установка начального значения - не простое

присваивание, а условный оператор, позволяющий отыскать последний элемент массива с

четным индексом.

if n mod 2 =0 then
i:=n
else i:=n-1;
while i>0 do begin
{ обработка a[i] };
i:=i-2
end;

Перебрать элементы массива с четными индексами, двигаясь от конца массива к началу.

Случай 5Вариант 1. Здесь установка начального значения - не простое присваивание, а условный оператор, позволяющий отыскать последний

Слайд 133Случай 5
Вариант 2. Условный оператор, устанавливающий начальное значение индекса, можно

внести в тело цикла.
i:=n;
while i>0 do begin
if i

mod 2 =0 then
{ обработка a[i] } ;
i:=i-1
end;
Случай 5Вариант 2. Условный оператор, устанавливающий начальное значение индекса, можно внести в тело цикла. i:=n;	while i>0 do

Слайд 134Случай 6
Для решения этой задачи соединим схемы перебора, рассмотренные в

случаях 4 и 5:
i:=2;
if n mod 2 =0 then

j:=n else j:=n-1;
while i<=j do begin
{ обработать элемент a[i] };
i:=i+2;
{ обработать элемент a[j] };
j:=j–2;
end;

Перебрать элементы массива с четным индексом, двигаясь с обоих концов массива к его середине.

Случай 6Для решения этой задачи соединим схемы перебора, рассмотренные в случаях 4 и 5:i:=2; if n mod

Слайд 135Случай 7
Для решения этой задачи соединим схемы перебора, рассмотренные в

случаях 4 и 5:
i:=k;
while i

}
i:=i+k
end;

Перебрать элементы массива с индексом, кратным k, двигаясь от начала массива к его концу.

Случай 7Для решения этой задачи соединим схемы перебора, рассмотренные в случаях 4 и 5:i:=k;while i

Слайд 136Случай 8
Для массива из 5 элементов нужно последовательно обработать пары:


a[1] и a[2], a[2] и a[3], a[3] и a[4], a[4]

и a[5].
Вариант 1.

for i:=1 to n-1 do
{ обработать a[i] и a[i+1] };

Перебрать соседние элементы массива, двигаясь от начала массива к концу (случай двух соседей).

Вариант 2.

for i:=2 to n do
{ обработать a[i-1] и a[i] };

Случай 8Для массива из 5 элементов нужно последовательно обработать пары: a[1] и a[2], 	a[2] и a[3], 	a[3]

Слайд 137Случай 8
Для массива из 5 элементов нужно последовательно обработать пары:


a[1]-a[2]-a[3], a[2]-a[3]-a[4], a[3]-a[4]-a[5].
Вариант 1.
for i:=1 to n-2 do
{

обработать a[i] - a[i+1] - a[i+2] };

Перебрать соседние элементы массива, двигаясь от начала массива к концу (случай трех соседей).

Вариант 2.

for i:=2 to n-1 do
{ обработать a[i-1] - a[i] - a[i+1] };

Вариант 3.

for i:=3 to n do
{ обработать a[i-2] - a[i-1] - a[i] };

Случай 8Для массива из 5 элементов нужно последовательно обработать пары: a[1]-a[2]-a[3], 	a[2]-a[3]-a[4], 	a[3]-a[4]-a[5]. Вариант 1.for i:=1 to

Слайд 138Примеры решения некоторых типовых задач

Примеры решения некоторых типовых задач

Слайд 139Задача 1
Последовательность элементов задана формулой общего члена ai=sin(i+i/n), где i

изменяется от 1 до n.
Написать программу для нахождения первого

элемента последовательности, большего заданного числа Z.
Задача 1Последовательность элементов задана формулой общего члена ai=sin(i+i/n), где i изменяется от 1 до n. Написать программу

Слайд 140Задача 1: решение
Исходными данными для решения задачи являются элементы последовательности:


a1=sin(1+1/n), a2=sin(2+2/n), ..., an=sin(n+n/n).
В результате получаем либо номер элемента,

большего заданного Z, либо ответ: «Такого элемента нет».
Решение этой задачи может закончиться по двум причинам:
перебрали все элементы последовательности и не нашли нужного элемента;
в процессе перебора обнаружился элемент, больший Z. В этом случае перебор прекращается и формируется ответ.

Первую причину окончания можно определить, проверив условие: i > n, где i - текущий элемент последовательности, а n - количество элементов в ней.
Задача 1: решениеИсходными данными для решения задачи являются элементы последовательности: a1=sin(1+1/n), a2=sin(2+2/n), ..., an=sin(n+n/n). В результате получаем

Слайд 141Задача 1: решение
Вторая причина имеет два значения:
«найдено»
или «не

найдено».
Поэтому ее можно изображать логическим значением, где true соответствует

найдено, а false - не найдено.
Таким образом, условие окончания поиска может быть записано в виде
(i>n) or f,
что соответствует фразе русского языка: «Просмотрены все элементы или найдено».
Просмотр элементов последовательности в цикле будет выполняться в случае ложности приведенного условия.
Задача 1: решениеВторая причина имеет два значения: «найдено» или «не найдено». Поэтому ее можно изображать логическим значением,

Слайд 142Задача 1: программа
program pr4;
var n, i : integer;
z: real;

{ заданное число }
f: boolean; { true, если найден

искомый элемент }
Begin
write('Введите n и z ');
readln(n, z);
i:=1; f:=false;
while (i<=n) and not f do
if sin(i+i/n)>z then
f:=true { искомый элемент найден }
else i:=i+1; { переходим к след. элементу }
if f then
writeln('Номер 1-го элемента больше ', z,
' =', i)
else writeln('Нет элементов больших ', z);
end.
Задача 1: программаprogram pr4; var	n, i : integer; 		z: real; 	 { заданное число }	f: boolean;	 {

Слайд 143Задача 2
Вычислить значение выражения:
y=cos(1+cos(2+cos(3+...+cos(n-1+cos(n)...)).

Задача 2Вычислить значение выражения: y=cos(1+cos(2+cos(3+...+cos(n-1+cos(n)...)).

Слайд 144Задача 2: решение
Для начала запишем заданную формулу при различных значениях

n.
Для n=3 получим y=cos(1+cos(2+cos(3))).
Для n=5 получим y=cos(1+cos(2+cos(3+cos(4+cos(5))))).
Чтобы вычислить это выражение

без компьютера, «вручную», нужно начать вычисления с самых последних вложенных скобок:
1. y1=cos(5)
2. y2=cos(4+cos(5)) или с учетом первого шага y2=cos(4+y1)
3. y3=cos(3+y2)
4. y4=cos(2+y3)
5. y5=cos(1+y4)
Таким образом, в теле цикла будет повторяться оператор
y=cos(i+y),
где i изменяется от n до 1.
Задача 2: решениеДля начала запишем заданную формулу при различных значениях n.Для n=3 получим y=cos(1+cos(2+cos(3))).Для n=5 получим y=cos(1+cos(2+cos(3+cos(4+cos(5))))).Чтобы

Слайд 145Задача 2: программа
y:=0;
for i:=n downto 1 do
y:=cos(i+y);
Фрагмент программы

решения задачи:

Задача 2: программаy:=0;for i:=n downto 1 do  y:=cos(i+y);Фрагмент программы решения задачи:

Слайд 146Задача 3
Вычислить для произвольного натурального n

Решение.
Этот пример очень похож

на предыдущий, однако здесь вместо функции cos(x) используется квадратный корень

и натуральные числа под корнями уменьшаются.
Отсюда получаем фрагмент программы:

y:=0;
for i:=1 to n do y:= sqrt(i+y);

Задача 3Вычислить для произвольного натурального nРешение. Этот пример очень похож на предыдущий, однако здесь вместо функции cos(x)

Слайд 147Задача 4
Вычислить для произвольного натурального n

Решение. Этот пример также похож

на предыдущие. В нем используются функция деления и натуральные числа

от 1 до n. Аналогично предыдущим примерам, здесь повторяется следующий оператор: y=i+p/y, где р - степень х.
Степень можно получить последовательными умножениями на х.

y:=1; p:=1; { степени x }
for i:=n downto 1 do begin
p:=p*x;
y:=i+p/y
end;

Задача 4Вычислить для произвольного натурального nРешение. Этот пример также похож на предыдущие. В нем используются функция деления

Слайд 148Задача 5
Дано натуральное число n. Поменять порядок цифр числа n

на обратный.
Решение. Например, для n=1829 должно получиться m=9281. Для определения

последней цифры числа нужно найти остаток от деления этого числа на 10, а для отбрасывания этой цифры - найти частное от деления целых чисел. Но последовательно получаемые цифры числа не отбрасываются, а результат m домножается на 10 и цифра прибавляется к результату.
Цикл выполняется до тех пор, пока есть цифры в исходном числе.

s:=0; { сумма цифр числа n }
while n>0 do begin { пока есть цифры в числе n }
s:=s+n mod 10; { прибавить последнюю цифру к сумме }
n:=n div 10 { отбросить последнюю цифру }
end;

Задача 5Дано натуральное число n. Поменять порядок цифр числа n на обратный.Решение. Например, для n=1829 должно получиться

Слайд 149Задача 6
Решение.
Первый элемент последовательности объявляем кандидатом на максимум.
Последовательно

сравниваем все остальные элементы последовательности с кандидатом на максимум:
если

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

Последовательность элементов задана формулой общего члена ai=sin(i+i/n), где i изменяется от 1 до n (n - натуральное). Найти максимальный элемент и его номер в последовательности.

Задача 6Решение. Первый элемент последовательности объявляем кандидатом на максимум. Последовательно сравниваем все остальные элементы последовательности с кандидатом

Слайд 150Задача 6: программа
program primer;
var n, i : integer;
a: real;

{ элемент посл-сти }
max: real; { максимальный элемент

}
mi: integer; { номер максимального элемента }
begin
write('введите число ');
readln(n);
max:=sin(1+n/1); mi:=1;
i:=2;
while i<=n do begin
a:=sin(i+n/i);
if max max:=a; mi:=i end;
i:=i+1;
end;
write('max=', max:15:2, ' номер max=', mi);
end.

Слайд 151Задача 7
Решение.
Чтобы вычислить дневной путь баржи, начиная с шестого

дня, необходимо знать расстояния, пройденные баржей за предыдущие пять дней.


Введем обозначения: yi - a, yi-1 - b, yi-2 - c, yi-3 - d, yi-4 - e, yi-5 - f.
Необходимо найти путь баржи за n дней (сумма расстояний) и сравнить его с z.

Баржа, двигаясь по реке, ежедневно проходит расстояние, определяемое формулой



Определить, сможет ли баржа за n дней пройти расстояние в z километров, если в каждый из первых пяти дней она проходила по одному километру.

Задача 7Решение. Чтобы вычислить дневной путь баржи, начиная с шестого дня, необходимо знать расстояния, пройденные баржей за

Слайд 152Задача 7: программа
Var a, b, c, d, e, f: real;


i, n: integer; { i - счетчик,

n - количество дней }
s: real; { сумма расстояний, пройденных за n дней }
z: real; { расстояние для сравнения }
begin
f:=1; e:=1; d:=1; c:=1; b:=1; s:=5;
write('Введите количество дней ');
readln(n);
for i:=5 to n do begin
if i mod 2=0 then a:=b+0.5*c
else a:=0.7*f-0.2*e;
f:=e; e:=d; d:=c; c:=b; b:=a;
s:=s+a;
end;
writeln('Пройденное расстояние ', s)
if s>z then write(' больше ', z)
else if s=z then write(' равно ', z)
else write(' меньше ', z)
end.
Задача 7: программаVar a, b, c, d, e, f: real; 	   i, n: integer; 	{

Слайд 153Задача 8
Решение.
Для решения задачи нужно m раз выполнить вычисление

очередного члена последовательности.
Для его вычисления необходим еще один цикл,

в котором цифры последовательно отделяются от очередного члена последовательности и находится сумма их квадратов.

Последовательность (an) задается так: a1 - некоторое натуральное число, an+1 - сумма квадратов цифр числа an, n>=1. Найти m-й член последовательности.

Задача 8Решение. Для решения задачи нужно m раз выполнить вычисление очередного члена последовательности. Для его вычисления необходим

Слайд 154Задача 8: программа
var a, { член последовательности }
s:

integer; { сумма квадратов цифр предыдущего члена посл-сти }

i, m: integer;
begin
write('Введите 1-й член посл-сти и m');
readln(a, m);
for i:=2 to m do begin
s:=0; { находим сумму квадратов цифр }
While a>0 do begin
s:=s + sqr(a mod 10);
a:=a div 10
end;
a:=s { запоминаем новый член последовательности }
end;
end.
Задача 8: программаvar a, 	{ член последовательности }  s: integer; { сумма квадратов цифр предыдущего 					члена

Слайд 155Задача 9
Решение.
Здесь признаком окончания ввода является число 0, заранее

количество вводимых данных неизвестно, поэтому организуем итерационный цикл.
Исходные данные

для этой задачи могут быть такими: 2 4 7 9 13 0. Нужно получить: 2! 4! 7! 9! 13!.
Заметим, что для вычисления факториала следующего числа можно использовать факториал предыдущего числа (по условию числа возрастают!).
Введем следующие обозначения: a - введенное число, b - число, с которого нужно продолжить вычисление факториала, i - счетчик выполненных умножений, p - факториал числа.

Возрастающая последовательность натуральных чисел вводится с клавиатуры до ввода числа 0. Вычислить и напечатать факториал каждого введенного числа.

Задача 9Решение. Здесь признаком окончания ввода является число 0, заранее количество вводимых данных неизвестно, поэтому организуем итерационный

Слайд 156Задача 9: фрагмент программы
p:=1; b:=1;
read(a);
while a0 do begin
for

i:=b to a do
p:=p*i;
write('факториал ', a, '

= ', p, ' ');
b:=a+1;
read(a)
end;
Задача 9: фрагмент программыp:=1;	 b:=1;	read(a);while a0 do begin  for i:=b to a do 	p:=p*i;  write('факториал

Слайд 157Задача 10
Решение.
Для ввода данных нужно организовать арифметический цикл по

счетчику до ввода n чисел. Для работы на каждом шаге

цикла нужно хранить два соседних числа.
Начальным значением для максимума и минимума может быть значение x1.

Последовательность из n положительных чисел вводится с клавиатуры. Найти сумму максимального и минимального элементов последовательности: x1, x2+1/x1, x3+1/x2, ... , xn+1/xn-1, где xi - введенное число.

Задача 10Решение. Для ввода данных нужно организовать арифметический цикл по счетчику до ввода n чисел. Для работы

Слайд 158Задача 10: фрагмент программы
read(a); { вводим первое число посл-сти }
max:=a; min:=a;
for

i:=2 to n do begin
read(b);

c:=b+1/a; { вычисляем элемент заданной посл-сти }
{ находим max и min }
if max else if min>c then min:=c;
a:=b { запоминаем предыдущий элемент }
end;
write(max + min);
Задача 10: фрагмент программыread(a); 	{ вводим первое число посл-сти }max:=a;	min:=a;for  i:=2  to  n

Слайд 159Задача 11
Решение.
Например, числу 1234 соответствует дробь 0,0081, а числу

9876 - 0,003.
Для перебора всех четырехзначных чисел организуем четыре

вложенных цикла:
в первом цикле будут перебираться цифры тысяч от 1 до 9 (ноль исключается, потому что число заведомо четырехзначное),
во втором - сотни от 0 до 9,
в третьем - десятки от 0 до 9,
в четвертом цикле - единицы от 0 до 9.
Исходным значением искомого отношения может быть ноль.

Для каждого четырехзначного числа составляется дробь: отношение суммы цифр числа к самому числу.
Найти четырехзначное число, для которого эта дробь наибольшая.

Задача 11Решение. Например, числу 1234 соответствует дробь 0,0081, а числу 9876 - 0,003. Для перебора всех четырехзначных

Слайд 160Задача 11: фрагмент программы
y:=0; { начальное значение отношения }
a:=0; {

искомое число }
for i:=1 to 9 do
for j:=0 to

9 do
for k:=0 to 9 do
for m:=0 to 9 do begin
s:=I + j + k + m;
x:=((10 * I + j) * 10 + k) * 10 + m;
if y y:=s/x; a:=x end
end;
Задача 11: фрагмент программыy:=0; 	{ начальное значение отношения }a:=0; 	{ искомое число }for i:=1 to 9 do

Слайд 161Задача 12
Решение.
Простое решение можно получить по аналогии с предыдущим:
Найти

все натуральные трехзначные числа, каждое из которых обладает двумя следующими

свойствами:
- первая цифра в три раза меньше последней его цифры;
- сумма самого числа с числом, получающимся из него перестановкой второй и третьей его цифр, делится на 8 без остатка.

for i:=1 to 9 do { цифра сотен }
for j:=0 to 9 do { цифра десятков }
for k:=0 to 9 do begin { цифра единиц }
c:=100*i+10*j+k;
if (3*i=k) and ((c+100*i+10*k+j) mod 8=0)
then write(c:4);

Задача 12Решение. Простое решение можно получить по аналогии с предыдущим:Найти все натуральные трехзначные числа, каждое из которых

Обратная связь

Если не удалось найти и скачать доклад-презентацию, Вы можете заказать его на нашем сайте. Мы постараемся найти нужный Вам материал и отправим по электронной почте. Не стесняйтесь обращаться к нам, если у вас возникли вопросы или пожелания:

Email: Нажмите что бы посмотреть 

Что такое TheSlide.ru?

Это сайт презентации, докладов, проектов в PowerPoint. Здесь удобно  хранить и делиться своими презентациями с другими пользователями.


Для правообладателей

Яндекс.Метрика