Презентация - Решение задач по теме «Цикл с параметром» на языке программирования Паскаль

Слайд 1

Цикл с параметром

Слайд 2

Вопросы для повторения
Какой оператор описывает в программе вывод результата? Write(<список вывода>), writeln(<список вывода>) Какой оператор описывает в программе ввод данных? read(<список ввода>), readln(<список ввода>)

Слайд 3

Вопросы для повторения
Какая геометрическая фигура обозначает в блок-схеме действие? Прямоугольник Какая геометрическая фигура обозначает в блок-схеме ввод/вывод результата? Параллелограмм Какие алгоритмические структуры вам знакомы? Линейный алгоритм, ветвление и цикл

Слайд 4

Какое значение будет иметь переменная d после выполнения следующих операторов:
1. a:=3; b:=2; If a>b then d:=a else d:=b; Ответ: 3 2. a:=-3; b:=2; If a>b then d:=a else d:=b; Ответ: 2

Слайд 5

ЦИКЛ С ПАРАМЕТРОМ
Цикл с параметром – повторное выполнение тела цикла, пока целочисленный параметр (i) пробегает множество всех значений от начального (In) до конечного (Ik):

Слайд 6

ДВА ВАРИАНТА ЗАПИСИ:
For i := In to Ik do <тело цикла> For i := In downto Ik do <тело цикла> Цикл повторяется, пока значение параметра лежит в интервале между In и Ik. В первом варианте при каждом повторении цикла значение параметра изменяется на следующее значение в данном типе (для целого типа – увеличивается на 1). Во втором варианте при каждом повторении цикла значение параметра изменяется на предыдущее значение в данном типе (для целого типа – уменьшается на 1).

Слайд 7

ВЫЧИСЛИТЬ
ввод n
S:=0
i:=1,n
S:=S+sqr(i)
конец
вывод S
начало

Слайд 8

Program primer_1; Var i,n: integer; s: integer; Begin Write(‘Введите n=‘); Readln(n); S:=0; For i:=1 to n do S:=S+sqr(i); Writeln(‘Summa=‘,s); End.
ВЫЧИСЛИТЬ
ввод n
S:=0
i:=1,n
S:=S+sqr(i)
конец
вывод S
начало

Слайд 9

ВЫЧИСЛИТЬ
ввод n
S:=0
i:=1,n
S:=S+sqrt(i)
конец
вывод S
начало

Слайд 10

Program primer_2; Var i,n: integer; s: real; Begin Write(‘Введите n=‘); Readln(n); S:=0; For i:=1 to n do S:=S+sqrt(i); Writeln(‘Summa=‘,s:6:4); End.
ВЫЧИСЛИТЬ
ввод n
S:=0
i:=1,n
S:=S+sqrt(i)
конец
вывод S
начало

Слайд 11

Вычислить сумму
ввод n
S:=0
i:=n,1
S:=sqrt(s+i)
конец
вывод S
начало

Слайд 12

Вычислить сумму
Program primer_3; Var i,n: integer; s: real; Begin Write(‘Введите n=‘); Readln(n); S:=0; For i:=n downto 1 do S:=sqrt(s+i); Writeln(‘Summa=‘,s:6:4); End.
ввод n
S:=0
i:=n,1
S:=sqrt(s+i)
конец
вывод S
начало

Слайд 13

ВЫЧИСЛИТЬ
начало
ввод n,k
S:=0
i:=n*k,k
S:=sqrt(s+i)
конец
вывод S

Слайд 14

ВЫЧИСЛИТЬ
начало
ввод n,k
S:=0
i:=n*k,k
S:=sqrt(s+i)
конец
вывод S
Program primer_4; Var i,n,k: integer; s: real; Begin Write(‘Введите n,k: ‘); Read(n,k); S:=0 For i:=n*k downto k do S:=sqrt(s+i); Writeln(‘Summa=‘,s:6:4); End.

Слайд 15

Задачи для самостоятельного решения
Вычислить Вычислить Вычислить